equal
deleted
inserted
replaced
1 "{ Package: 'stx:libcomp' }" |
1 "{ Package: 'stx:libcomp' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 ByteCodeCompiler subclass:#InstrumentingCompiler |
5 ByteCodeCompiler subclass:#InstrumentingCompiler |
4 instanceVariableNames:'method methodEntryInfo blockInvocationInfo' |
6 instanceVariableNames:'method methodEntryInfo blockInvocationInfo' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
880 "Created: / 27-04-2010 / 18:21:36 / cg" |
882 "Created: / 27-04-2010 / 18:21:36 / cg" |
881 ! |
883 ! |
882 |
884 |
883 invokingMethodsDo:aBlock |
885 invokingMethodsDo:aBlock |
884 infoPerSendingMethod isNil ifTrue:[ ^ self]. |
886 infoPerSendingMethod isNil ifTrue:[ ^ self]. |
885 ^ infoPerSendingMethod keysDo:aBlock. |
887 infoPerSendingMethod keysDo:aBlock. |
886 ! |
888 ! |
887 |
889 |
888 numberOfInvocations |
890 numberOfInvocations |
889 infoPerSendingMethod isNil ifTrue:[ ^ 0]. |
891 infoPerSendingMethod isNil ifTrue:[ ^ 0]. |
890 ^ infoPerSendingMethod inject:0 into:[:sumSoFar :info | sumSoFar + info numberOfInvocations] |
892 ^ infoPerSendingMethod inject:0 into:[:sumSoFar :info | sumSoFar + info numberOfInvocations] |
1149 ! ! |
1151 ! ! |
1150 |
1152 |
1151 !InstrumentingCompiler class methodsFor:'documentation'! |
1153 !InstrumentingCompiler class methodsFor:'documentation'! |
1152 |
1154 |
1153 version |
1155 version |
1154 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.33 2013-07-28 23:20:46 vrany Exp $' |
1156 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.34 2015-02-03 14:21:35 cg Exp $' |
1155 ! |
1157 ! |
1156 |
1158 |
1157 version_CVS |
1159 version_CVS |
1158 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.33 2013-07-28 23:20:46 vrany Exp $' |
1160 ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.34 2015-02-03 14:21:35 cg Exp $' |
1159 ! ! |
1161 ! ! |
1160 |
1162 |