Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
x
authorClaus Gittinger <cg@exept.de>
Sat, 20 Oct 2012 20:22:13 +0200
changeset 2949 aa8ced17ddfa
parent 2948 1af0db8d9945
child 2950 aaed9f9db35c
x
InstrumentingCompiler.st file | annotate | diff | comparison | revisions 
--- a/InstrumentingCompiler.st	Sat Oct 20 17:01:54 2012 +0200
+++ b/InstrumentingCompiler.st	Sat Oct 20 20:22:13 2012 +0200
@@ -1,80 +1,80 @@
 "{ Package: 'stx:libcomp' }"
 
 ByteCodeCompiler subclass:#InstrumentingCompiler
-        instanceVariableNames:'method methodEntryInfo blockInvocationInfo'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'System-Compiler-Instrumentation'
+	instanceVariableNames:'method methodEntryInfo blockInvocationInfo'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Compiler-Instrumentation'
 !
 
 InstrumentationInfo subclass:#StatementExecutionInfo
-        instanceVariableNames:'startPosition count'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:'startPosition count'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 InstrumentationInfo subclass:#MethodInvocationInfo
-        instanceVariableNames:'infoPerReceiverClass'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:'infoPerReceiverClass'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 Object subclass:#MethodInvocationInfoPerReceiverClass
-        instanceVariableNames:'infoPerSendingMethod'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler::MethodInvocationInfo
+	instanceVariableNames:'infoPerSendingMethod'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler::MethodInvocationInfo
 !
 
 Object subclass:#MethodInvocationInfoPerSendingMethod
-        instanceVariableNames:'countPerSendersClass invokedViaPerform'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass
+	instanceVariableNames:'countPerSendersClass invokedViaPerform'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass
 !
 
 InstrumentingCompiler::MethodInvocationInfo subclass:#MethodInvocationInfoForCoverageInAlreadyEnteredState
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 InstrumentingCompiler::MethodInvocationInfo subclass:#MethodInvocationInfoInAlreadyEnteredState
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 InstrumentingCompiler::StatementExecutionInfo subclass:#VariableAccessExecutionInfo
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 InstrumentingCompiler::StatementExecutionInfo subclass:#BlockExecutionInfo
-        instanceVariableNames:'endPosition'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:'endPosition'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 InstrumentingCompiler::VariableAccessExecutionInfo subclass:#ReadAccessExecutionInfo
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 InstrumentingCompiler::VariableAccessExecutionInfo subclass:#WriteAccessExecutionInfo
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:InstrumentingCompiler
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:InstrumentingCompiler
 !
 
 !InstrumentingCompiler class methodsFor:'documentation'!
@@ -510,8 +510,10 @@
 
 callingMethodsDo:aBlock
     infoPerReceiverClass notNil ifTrue:[
-        infoPerReceiverClass do:[:each |
-            each callingMethodsDo:aBlock
+        infoPerReceiverClass ~~ true ifTrue:[
+            infoPerReceiverClass do:[:each |
+                each callingMethodsDo:aBlock
+            ]
         ]
     ]
 !
@@ -602,7 +604,7 @@
             "/ only interested in entry, but not in a per-receiver statistics
             "/ that is the normal coverage usage
             infoPerReceiverClass isNil ifTrue:[
-                infoPerReceiverClass := #dummy.
+                infoPerReceiverClass := true.
                 firstEntry := true.
             ].
         ] ifFalse:[
@@ -882,9 +884,9 @@
 !InstrumentingCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.21 2012-10-20 15:01:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.22 2012-10-20 18:22:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.21 2012-10-20 15:01:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.22 2012-10-20 18:22:13 cg Exp $'
 ! !
hg/stx-libcomp