EvalPointer
(Available in 00 TS Base(Base) - TS_Base_0_Traverse)
Source
METHOD EvalPointer( pItem AS PTR ) AS VOID PASCAL CLASS TS_Traverse
SELF:Pointers+=1U
IF pItem==NULL_PTR
SELF:NullPointers+=1U
END
IF SELF:_Profiling
IF LOGIC( _CAST, pItem )
SELF:_ProfileAddString( "P" )
ELSE
SELF:_ProfileAddString( "p" )
END
END
RETURN