Clear
(Available in 00 TS Base(Base) - TS_Base_0_Traverse)
Source
METHOD Clear( ) AS VOID PASCAL CLASS TS_Traverse
IF LOGIC( _CAST, SELF:_ProfilePtr )
IF LOGIC( _CAST, MemFree( SELF:_ProfilePtr ) )
_TS_ModuleInternalErrors( "LOGIC(_CAST,MemFree(SELF:_ProfilePtr))", __ENTITY__ ; ...
... , __LINE__, ES_WARNING )
END
END
SELF:_Indexes:=ArrayCreate( 0U )
SELF:_Objects:=ArrayCreate( 0U )
SELF:_ReUses:=ArrayCreate( 0U )
SELF:_SelfRef:=ArrayCreate( 0U )
SELF:_ProfileMax:=0U
SELF:_ProfileNdx:=0U
SELF:_ProfileOut:=NULL_STRING
SELF:_ProfilePtr:=NULL_PTR
SELF:ArrayReUses:=0U
SELF:Arrays:=0U
SELF:ArraySelfRefs:=0U
SELF:CodeBlocks:=0U
SELF:Dates:=0U
SELF:Errors:=