EvalSymbol
(Available in 00 TS Base(Base) - TS_Base_0_Traverse)
Source
METHOD EvalSymbol( symItem AS SYMBOL ) AS VOID PASCAL CLASS TS_Traverse
SELF:Symbols+=1U
IF symItem==NULL_SYMBOL
SELF:NullSymbols+=1U
END
IF SELF:_Profiling
IF LOGIC( _CAST, symItem )
SELF:_ProfileAddString( "S" )
ELSE
SELF:_ProfileAddString( "s" )
END
END
RETURN