equal
deleted
inserted
replaced
161 selector:#entry: |
161 selector:#entry: |
162 arg:(VariableNode type:#ThisContext context:contextToEvaluateIn)). |
162 arg:(VariableNode type:#ThisContext context:contextToEvaluateIn)). |
163 |
163 |
164 aBlockNode isEmptyBlock ifTrue:[ |
164 aBlockNode isEmptyBlock ifTrue:[ |
165 "/ q: are we interested in empty blocks ? |
165 "/ q: are we interested in empty blocks ? |
|
166 countCode nextStatement:(StatementNode expression:(ConstantNode value:nil)). |
166 aBlockNode statements:countCode. |
167 aBlockNode statements:countCode. |
167 ] ifFalse:[ |
168 ] ifFalse:[ |
168 countCode nextStatement:aBlockNode statements. |
169 countCode nextStatement:aBlockNode statements. |
169 aBlockNode statements:countCode. |
170 aBlockNode statements:countCode. |
170 ]. |
171 ]. |
171 |
172 |
172 "Modified: / 07-08-2011 / 15:13:50 / cg" |
173 "Modified: / 17-08-2011 / 10:38:20 / cg" |
173 ! |
174 ! |
174 |
175 |
175 addBlockCountersToEachBlockIn:aCollection |
176 addBlockCountersToEachBlockIn:aCollection |
176 aCollection do:[:eachNode | |
177 aCollection do:[:eachNode | |
177 eachNode isBlockNode ifTrue:[ |
178 eachNode isBlockNode ifTrue:[ |
703 ! ! |
704 ! ! |
704 |
705 |
705 !InstrumentingCompiler class methodsFor:'documentation'! |
706 !InstrumentingCompiler class methodsFor:'documentation'! |
706 |
707 |
707 version |
708 version |
708 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.13 2011-08-08 18:10:48 cg Exp $' |
709 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.14 2011-08-17 14:33:41 cg Exp $' |
709 ! |
710 ! |
710 |
711 |
711 version_CVS |
712 version_CVS |
712 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.13 2011-08-08 18:10:48 cg Exp $' |
713 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.14 2011-08-17 14:33:41 cg Exp $' |
713 ! ! |
714 ! ! |