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