EvalCodeBlock

 (Available in 00 TS Base(Base) - TS_Base_0_Traverse)

Source

METHOD EvalCodeBlock( cbItem AS CODEBLOCK ) AS VOID PASCAL CLASS TS_Traverse
   SELF:CodeBlocks+=1U
   IF cbItem==NULL_CODEBLOCK
      SELF:NullCodeBlocks+=1U
   END
   IF SELF:_Profiling
      IF LOGIC( _CAST, cbItem )
         SELF:_ProfileAddString( "B" )
      ELSE
         SELF:_ProfileAddString( "b" )
      END
   END
RETURN