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:=FALSE
   SELF:Logics:=0U
   SELF:NILs:=0U
   SELF:NullArrays:=0U
   SELF:NullCodeBlocks:=0U
   SELF:NullDates:=0U
   SELF:NullNumericFloats:=0U
   SELF:NullObjects:=0U
   SELF:NullPointers:=0U
   SELF:NullStrings:=0U
   SELF:NullSymbols:=0U
   SELF:NumericFloats:=0U
   SELF:NumericLongs:=0U
   SELF:Objects:=0U
   SELF:Pointers:=0U
   SELF:Source:=NIL
   SELF:Strings:=0U
   SELF:Symbols:=0U
   SELF:ValTypeError:=0U
RETURN