hg/stx-libcomp: InstrumentingCompiler.st@c690dec12b7e (annotated)

2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:libcomp' }"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
3570 0ac6e8f11416 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	3	"{ NameSpace: Smalltalk }"
0ac6e8f11416 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	4
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	ByteCodeCompiler subclass:#InstrumentingCompiler
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	6	instanceVariableNames:'method methodEntryInfo blockInvocationInfo'
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	7	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	8	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	9	category:'System-Compiler-Instrumentation'
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
2634 767b874018f9 x Claus Gittinger <cg@exept.de> parents: 2632 diff changeset	12	InstrumentationInfo subclass:#StatementExecutionInfo
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	13	instanceVariableNames:'startPosition endPosition count'
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	14	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	15	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	16	privateIn:InstrumentingCompiler
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	17	!
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	18
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	19	InstrumentingCompiler::StatementExecutionInfo subclass:#StatementExecutionInfoForCoverageInAlreadyEnteredState
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	20	instanceVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	21	classVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	22	poolDictionaries:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	23	privateIn:InstrumentingCompiler::StatementExecutionInfo
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	24	!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	25
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	26	InstrumentingCompiler::StatementExecutionInfo subclass:#StatementExecutionInfoInAlreadyEnteredState
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	27	instanceVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	28	classVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	29	poolDictionaries:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	30	privateIn:InstrumentingCompiler::StatementExecutionInfo
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	31	!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	32
2635 8d4c21b1f8e3 x Claus Gittinger <cg@exept.de> parents: 2634 diff changeset	33	InstrumentationInfo subclass:#MethodInvocationInfo
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	34	instanceVariableNames:'count recursiveEntry infoPerReceiverClass'
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	35	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	36	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	37	privateIn:InstrumentingCompiler
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	Object subclass:#MethodInvocationInfoPerReceiverClass
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	41	instanceVariableNames:'infoPerSendingMethod'
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	42	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	43	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	44	privateIn:InstrumentingCompiler::MethodInvocationInfo
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	Object subclass:#MethodInvocationInfoPerSendingMethod
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	48	instanceVariableNames:'countPerSendersClass invokedViaPerform'
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	49	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	50	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	51	privateIn:InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	52	!
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	53
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	54	InstrumentingCompiler::MethodInvocationInfo subclass:#MethodInvocationInfoForCoverageInAlreadyEnteredState
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	55	instanceVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	56	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	57	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	58	privateIn:InstrumentingCompiler
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
2711 63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	61	InstrumentingCompiler::MethodInvocationInfo subclass:#MethodInvocationInfoInAlreadyEnteredState
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	62	instanceVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	63	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	64	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	65	privateIn:InstrumentingCompiler
2711 63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	66	!
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	67
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	68	InstrumentingCompiler::StatementExecutionInfo subclass:#VariableAccessExecutionInfo
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	69	instanceVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	70	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	71	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	72	privateIn:InstrumentingCompiler
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	73	!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	74
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	75	InstrumentingCompiler::StatementExecutionInfo subclass:#BlockExecutionInfo
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	76	instanceVariableNames:''
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	77	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	78	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	79	privateIn:InstrumentingCompiler
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	80	!
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	81
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	82	InstrumentingCompiler::BlockExecutionInfo subclass:#BlockExecutionInfoForCoverageInAlreadyEnteredState
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	83	instanceVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	84	classVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	85	poolDictionaries:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	86	privateIn:InstrumentingCompiler::BlockExecutionInfo
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	87	!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	88
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	89	InstrumentingCompiler::BlockExecutionInfo subclass:#BlockExecutionInfoInAlreadyEnteredState
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	90	instanceVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	91	classVariableNames:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	92	poolDictionaries:''
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	93	privateIn:InstrumentingCompiler::BlockExecutionInfo
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	94	!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	95
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	96	InstrumentingCompiler::VariableAccessExecutionInfo subclass:#ReadAccessExecutionInfo
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	97	instanceVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	98	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	99	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	100	privateIn:InstrumentingCompiler
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	101	!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	102
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	103	InstrumentingCompiler::VariableAccessExecutionInfo subclass:#WriteAccessExecutionInfo
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	104	instanceVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	105	classVariableNames:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	106	poolDictionaries:''
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	107	privateIn:InstrumentingCompiler
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	108	!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	109
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	!InstrumentingCompiler class methodsFor:'documentation'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	documentation
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	"
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	114	an experiment - recompile classes using this compiler adds instrumentation code.
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	115	This remembers who calls a method from where (methodInvocationInfo) what the receiver's types are
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	116	(inherited classes) and how often basic blocks (blockExecutionInfo) and statements
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	117	(statementExecutionInfo) are invoked .
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	118
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	119	The who-calls and receiver type info may produce some overhead, which can be avoided by
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	120	using the somewhat more naive InstrumentingForSimpleCoverageCompiler (that is what people are
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	121	used to from the C/Java world, anyway).
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	122
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	123	From the first bulk, we can compute the inheritanceCoverage info (which methods have been called for which
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	124	subclass) in addition to the known line and block coverages.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	!InstrumentingCompiler class methodsFor:'compilation-public'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	compileClass:aClass
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	"compile all methods of aClass with instrumentation"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132
2958 4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	133	aClass instAndClassMethodsDo:[:eachMethod \|
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	self compileMethod:eachMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	compileMethod:aMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	"compile a single method with instrumentation"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140
2972 204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	141	Class withoutUpdatingChangesDo:[
3237 a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	142	Class packageQuerySignal answer: aMethod package do:[
a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	143	self
a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	144	compile:(aMethod source)
a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	145	forClass:(aMethod mclass)
a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	146	inCategory:(aMethod category)
a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	147	]
2972 204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	148	]
3237 a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	149
a6b2f875bcc3 Fix in InstrumentingCompiler>>#compileMethod: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3192 diff changeset	150	"Modified: / 28-07-2013 / 16:59:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2958 4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	151	!
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	152
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	153	compilePackage:aPackageID
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	154	"compile all classes of a package instrumentation"
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	155
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	156	Smalltalk allClassesInPackage:aPackageID do:[:eachClass \|
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	157	self compileClass:eachClass
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	158	].
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	159
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	160	"
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	161	InstrumentingCompiler compilePackage:'exept:workflow'.
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	162	InstrumentingCompiler compilePackage:'exept:expecco'.
4bb6acd04cfe added: #compilePackage: Claus Gittinger <cg@exept.de> parents: 2951 diff changeset	163	"
2972 204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	164	!
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	165
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	166	compilePackages:aCollectionOfPackageIDs
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	167	"compile all classes of some packages with instrumentation"
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	168
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	169	aCollectionOfPackageIDs do:[:eachPackage \|
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	170	self compilePackage:eachPackage
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	171	].
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	172
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	173	"
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	174	InstrumentingCompiler compilePackages:#( 'exept:workflow' 'exept:expecco' ).
204f077ff866 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2967 diff changeset	175	"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	!InstrumentingCompiler class methodsFor:'special'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	allInstrumentedMethods
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	^ InstrumentedMethod allInstances
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	self allInstrumentedMethods
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	"Modified: / 27-04-2010 / 13:37:51 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	callersOf:aMethod do:aBlock
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	191	"enumerate all callers of aMethod into a block"
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	192
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	\|info\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	info := aMethod methodInvocationInfo.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	info notNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	info callingMethodsDo:[:callingMethod \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	aBlock value:callingMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	"Modified: / 27-04-2010 / 13:35:00 / cg"
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	203	"Modified (comment): / 07-08-2011 / 15:08:33 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	isInstrumented:aMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	^ aMethod isInstrumented
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	self methodInfoOf:aMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	"Modified: / 27-04-2010 / 13:35:21 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	methodInfoOf:aMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	<resource: #obsolete>
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	self obsoleteMethodWarning:'please use Method >> methodInvocationInfo'.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	^ aMethod methodInvocationInfo
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	self methodInfoOf:aMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	"Modified: / 27-04-2010 / 13:37:31 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	methodInvocationInfoOf:aMethod
3192 4a3a9fa54b94 class: InstrumentingCompiler Stefan Vogel <sv@exept.de> parents: 2981 diff changeset	230	<resource: #obsolete>
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	self obsoleteMethodWarning:'please use method>>methodInvocationInfo'.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	^ aMethod methodInvocationInfo
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	self methodInfoOf:aMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238	"Created: / 27-04-2010 / 12:28:56 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	"Modified: / 27-04-2010 / 13:34:36 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	!InstrumentingCompiler methodsFor:'code generation helpers'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	addBlockCounterTo:aBlockNode
2951 340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	245	"called by the compiler to instrument a block node"
340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	246
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	\|countCode blockEntryInfo\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249	blockInvocationInfo isNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	blockInvocationInfo := OrderedCollection new.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	].
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	252	blockEntryInfo := self blockExecutionInfoInstance.
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	253	blockEntryInfo startPosition:aBlockNode startPosition endPosition:aBlockNode endPosition.
2675 3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	254	"/ Transcript show:aBlockNode startPosition;
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	255	"/ show:' -> ';
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	256	"/ showCR: aBlockNode endPosition.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257	blockInvocationInfo add:blockEntryInfo.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	countCode :=
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260	StatementNode
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	expression:(MessageNode
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	receiver:(ConstantNode value:blockEntryInfo)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	selector:#entry:
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	arg:(VariableNode type:#ThisContext context:contextToEvaluateIn)).
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	aBlockNode isEmptyBlock ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	"/ q: are we interested in empty blocks ?
2665 2071b01a050f changed: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2635 diff changeset	268	countCode nextStatement:(StatementNode expression:(ConstantNode value:nil)).
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	aBlockNode statements:countCode.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	] ifFalse:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271	countCode nextStatement:aBlockNode statements.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	aBlockNode statements:countCode.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274
2675 3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	275	"Modified: / 21-08-2011 / 16:02:52 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278	addBlockCountersToEachBlockIn:aCollection
2951 340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	279	"called by the compiler to instrument a collection of block nodes"
340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	280
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	aCollection do:[:eachNode \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	eachNode isBlockNode ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	self addBlockCounterTo:eachNode
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	"Created: / 27-04-2010 / 11:47:56 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	createMethod
2951 340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	291	"called by the compiler to instatiate a new method instance"
340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	292
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	method := super createMethod.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	methodEntryInfo notNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	methodEntryInfo owningMethod:method
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	blockInvocationInfo notNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	blockInvocationInfo do:[:eachInfo \| eachInfo owningMethod:method]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	^ method
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	"Modified: / 27-04-2010 / 14:04:50 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307	methodClass
2951 340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	308	"called by the compiler to ask for the method instance's class"
340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	309
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	^ InstrumentedMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312	"Created: / 27-04-2010 / 12:17:22 / cg"
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	313	!
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	314
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	315	statementCounterBefore:aStatementNode
2951 340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	316	"called by the compiler to instrument a statement node (head of a basic block)"
340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	317
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	318	\|countCode statementEntryInfo\|
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	319
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	320	blockInvocationInfo isNil ifTrue:[
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	321	blockInvocationInfo := OrderedCollection new.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	322	].
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	323	statementEntryInfo := self statementExecutionInfoInstance.
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	324	statementEntryInfo startPosition:aStatementNode startPosition.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	325	blockInvocationInfo add:statementEntryInfo.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	326
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	327	countCode :=
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	328	StatementNode
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	329	expression:(MessageNode
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	330	receiver:(ConstantNode value:statementEntryInfo)
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	331	selector:#entry:
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	332	arg:(VariableNode type:#ThisContext context:contextToEvaluateIn)).
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	333
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	334	countCode nextStatement:aStatementNode.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	335	^ countCode
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	336
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	337	"Modified: / 07-08-2011 / 15:32:45 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	340	!InstrumentingCompiler methodsFor:'code generation hooks'!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	341
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	342	assignmentRewriteHookFor:anAssignmentNode
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	343	"invoked whenever an assignment node has been generated"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	344
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	345	^ anAssignmentNode
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	346
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	347	"Created: / 30-09-2011 / 12:28:09 / cg"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	348	!
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	350	blockNodeRewriteHookFor:aBlockNode
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	351	"invoked whenever a block node has been generated"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	352
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	353	"/ add a counter for the block
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	354	self addBlockCounterTo:aBlockNode.
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	355	^ aBlockNode
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	356
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	357	"Created: / 28-04-2010 / 14:21:27 / cg"
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	358	!
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	359
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	messageNodeRewriteHookFor:aMessageNode
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	361	"invoked whenever a message send node has been generated"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	362
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	363	"/ see blockNodeRewriter...
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	364
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	365	"/ "/ argument could be a constantNode (due to contant-folding optimization)
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	366	"/ aMessageNode isConstant ifTrue:[^ aMessageNode].
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	367	"/ (
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	368	"/ #(
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	369	"/ ifTrue:
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	370	"/ ifFalse:
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	371	"/ ifTrue:ifFalse:
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	372	"/ ifFalse:ifTrue:
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	373	"/ )
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	374	"/ includes:aMessageNode selector
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	375	"/ ) ifTrue:[
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	376	"/ "/ add a counter for the block
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	377	"/ self addBlockCountersToEachBlockIn:(aMessageNode arguments)
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	378	"/ ].
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	^ aMessageNode
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	"Created: / 27-04-2010 / 11:43:22 / cg"
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	382	"Modified: / 28-04-2010 / 14:22:05 / cg"
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	383	"Modified (comment): / 30-09-2011 / 12:16:56 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	startCodeGenerationHookOn:codeStream
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	387	"invoked before code is generated"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	388
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	389	methodEntryInfo := self methodInvocationInfoInstance.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391	(StatementNode
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	392	expression:(MessageNode
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393	receiver:(ConstantNode value:methodEntryInfo)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	394	selector:#entry:
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395	arg:(VariableNode type:#ThisContext context:contextToEvaluateIn)))
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	codeForSideEffectOn:codeStream inBlock:nil for:self.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	398	"Modified: / 07-08-2011 / 15:34:09 / cg"
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	399	"Modified (comment): / 30-09-2011 / 12:16:05 / cg"
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	400	!
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	401
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	402	statementListRewriteHookFor:firstStatementArg
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	403	"invoked whenever a statement list node has been generated"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	404
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	405	"/ care for blocks which return...
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	406	\|thisStatement prevStatement countStatement mustInsertExecutionInfo statementInfo firstStatement \|
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	407
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	408	mustInsertExecutionInfo := false.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	409	prevStatement := nil.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	410
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	411	thisStatement := firstStatementArg.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	412	thisStatement isNil ifTrue:[^ firstStatementArg].
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	413	firstStatement := self statementCounterBefore:thisStatement.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	414	statementInfo := firstStatement expression receiver value.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	415	statementInfo endPosition: thisStatement endPosition.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	416
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	417
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	418	[true] whileTrue:[
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	419	mustInsertExecutionInfo ifTrue:[
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	420	"/ prev-stat had a return in it (a block with a return);
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	421	"/ insert a statement-entry here.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	422	thisStatement notNil ifTrue:[
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	423	countStatement := self statementCounterBefore:thisStatement.
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	424	statementInfo := countStatement expression receiver value.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	425	statementInfo endPosition: thisStatement endPosition.
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	426	prevStatement nextStatement:countStatement.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	427	mustInsertExecutionInfo := false.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	428	prevStatement := countStatement.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	429	]
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	430	].
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	431	thisStatement isNil ifTrue:[ ^ firstStatement ].
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	432
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	433	thisStatement isReturnNode ifFalse:[
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	434	thisStatement containsReturn ifTrue:[
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	435	mustInsertExecutionInfo := true
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	436	]
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	437	].
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	438	prevStatement := thisStatement.
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	439	statementInfo notNil ifTrue:[
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	440	statementInfo endPosition: prevStatement endPosition.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	441	].
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	442	thisStatement := thisStatement nextStatement.
cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	443	].
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	444
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	445	"Modified (comment): / 30-09-2011 / 12:15:52 / cg"
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	446	"Modified: / 29-07-2013 / 00:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	447	!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	448
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	449	variableReadRewriteHookFor:aVariableNode
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	450	"invoked whenever a variable access node has been generated"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	451
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	452	^ aVariableNode
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	453
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	454	"Created: / 30-09-2011 / 12:27:47 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	455	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	457	!InstrumentingCompiler methodsFor:'redefinable'!
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	459	blockExecutionInfoInstance
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	460	"one instance is generated for every block,
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	461	and called at execution time with entry:"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	462
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	463	^ BlockExecutionInfo new cleanInfoWithChange:false.
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	464
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	465	"Created: / 07-08-2011 / 15:13:42 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	468	methodInvocationInfoInstance
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	469	"one instance is generated for every method,
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	470	and called at execution time with entry:"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	472	^ MethodInvocationInfo new.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	474	"Created: / 07-08-2011 / 15:33:57 / cg"
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	475	!
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	477	statementExecutionInfoInstance
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	478	"one instance is generated for every statement,
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	479	and called at execution time with entry:"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	481	^ StatementExecutionInfo new cleanInfoWithChange:false.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	483	"Created: / 07-08-2011 / 15:32:36 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	486	!InstrumentingCompiler::StatementExecutionInfo class methodsFor:'documentation'!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	487
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	488	documentation
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	489	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	490	(sub)instances of me are updated by instrumented code when statements are executed.
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	491	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	492	! !
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	493
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	494	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'accessing'!
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	495
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	496	callCount
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	497	^ count
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	498
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	499	"Created: / 27-04-2010 / 13:45:15 / cg"
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	500	!
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	501
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	502	characterPosition
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	503	^ startPosition
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	504
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	505	"Created: / 23-06-2006 / 13:31:19 / cg"
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	506	"Modified: / 28-04-2010 / 15:54:24 / cg"
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	507	!
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	508
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	509	characterPosition:something
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	510	startPosition := something.
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	511
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	512	"Created: / 23-06-2006 / 13:31:19 / cg"
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	513	"Modified: / 28-04-2010 / 15:54:30 / cg"
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	514	!
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	515
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	516	count
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	517	"how often have I been called"
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	518
2981 f82dd89f0459 count values Claus Gittinger <cg@exept.de> parents: 2976 diff changeset	519	^ count ? 0
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	520
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	521	"Created: / 23-06-2006 / 13:31:28 / cg"
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	522	!
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	523
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	524	endPosition
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	525	^ endPosition
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	526
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	527	"Created: / 28-04-2010 / 15:57:14 / cg"
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	528	!
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	529
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	530	endPosition:anInteger
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	531	endPosition := anInteger.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	532	!
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	533
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	534	startPosition
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	535	^ startPosition
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	536
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	537	"Created: / 28-04-2010 / 15:54:26 / cg"
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	538	!
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	539
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	540	startPosition:anInteger
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	541	startPosition := anInteger.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	542	!
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	543
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	544	startPosition:startArg endPosition:endArg
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	545	startPosition := startArg.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	546	endPosition := endArg.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	547
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	548	"Created: / 28-04-2010 / 15:54:47 / cg"
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	549	! !
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	550
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	551	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'cleanup'!
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	552
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	553	cleanInfoWithChange:withChange
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	554	count := 0.
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	555	withChange ifTrue:[
b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	556	Smalltalk changed:#methodCoverageInfo with:owningMethod.
b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	557	].
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	558
2570 f0b8fc6cdabb change info Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	559	"Modified: / 20-07-2011 / 17:55:49 / cg"
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	560	"Created: / 20-07-2011 / 18:59:01 / cg"
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	561	! !
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	562
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	563	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'debugging'!
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	564
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	565	inspector2TabSource
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	566
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	567	\| source \|
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	568
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	569	source := owningMethod source asText.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	570	startPosition isNil ifTrue:[
3862 42354ffef3a1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 3585 diff changeset	571	source withColor: Color red.
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	572	] ifFalse:[
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	573	endPosition isNil ifTrue:[
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	574	source emphasizeFrom:startPosition to:source string size with: #bold.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	575	source emphasizeFrom:startPosition to:source string size with: #color -> Color red.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	576	] ifFalse:[
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	577	source emphasizeFrom:startPosition to: endPosition with: #bold.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	578	source emphasizeFrom:startPosition to: endPosition with: #color -> Color blue.
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	579	].
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	580	].
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	581
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	582	^self newInspector2Tab
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	583	label: 'Source';
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	584	priority: 50;
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	585	view: ((ScrollableView for:EditTextView) contents: source; yourself)
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	586
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	587	"Created: / 28-07-2013 / 23:16:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	588	!
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	589
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	590	inspector2Tabs
3585 1f2291b908b7 Fixed #inspector2Tabs method: always call 'super inspector2Tabs' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3570 diff changeset	591	^ super inspector2Tabs , #( inspector2TabSource )
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	592
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	593	"Created: / 28-07-2013 / 23:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3585 1f2291b908b7 Fixed #inspector2Tabs method: always call 'super inspector2Tabs' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3570 diff changeset	594	"Modified: / 13-02-2015 / 21:03:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3239 a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	595	! !
a603d73841d4 Coverage refactored - add statement execution info even for the Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3237 diff changeset	596
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	597	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'instrumentation calls'!
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	598
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	599	entry:callingContext
2528 e57cc8caf6f9 dont instrument the instrumentation code Claus Gittinger <cg@exept.de> parents: 2391 diff changeset	600	"invoked by instrumented code;
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	601	called whenever the block/statment is entered"
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	602
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	603	\|context\|
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	604
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	605	context := InstrumentationContext current.
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	606	context isNil ifTrue:[^ self].
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	607	context inInstrumentedCode ifTrue:[^ self].
2711 63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	608	context coverageOnly ifTrue:[
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	609	self hasBeenExecuted ifTrue:[^ self].
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	610	].
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	611	context enabledAndNotInInstrumentedCode ifFalse:[^ self].
2528 e57cc8caf6f9 dont instrument the instrumentation code Claus Gittinger <cg@exept.de> parents: 2391 diff changeset	612
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	613	count := count + 1.
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	614	count == 1 ifTrue:[
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	615	"/ the very first time, send a change notification, so the browsers update the coloring
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	616
2944 b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	617	[
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	618	context inInstrumentedCode:true.
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	619	Smalltalk changed:#methodCoverageInfo with:owningMethod.
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	620	context coverageOnly ifTrue:[
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	621	self changeClassToCoverageAndAlreadyEntered.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	622	] ifFalse:[
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	623	self changeClassToAlreadyEntered.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	624	].
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	625	"/ attention: no self sends here - class has changed!!
2944 b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	626	] ensure:[
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	627	context inInstrumentedCode:false.
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	628	]
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	629	].
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	630
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	631	"Created: / 23-06-2006 / 13:31:16 / cg"
2711 63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	632	"Modified: / 23-08-2011 / 21:29:39 / cg"
2359 b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	633	! !
b70f2c9dddcf * empty log message * Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	634
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	635	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'private'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	636
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	637	changeClassToAlreadyEntered
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	638	self class == InstrumentingCompiler::StatementExecutionInfo ifTrue:[
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	639	self changeClassTo: StatementExecutionInfoInAlreadyEnteredState
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	640	].
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	641	!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	642
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	643	changeClassToCoverageAndAlreadyEntered
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	644	self class == InstrumentingCompiler::StatementExecutionInfo ifTrue:[
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	645	self changeClassTo: StatementExecutionInfoForCoverageInAlreadyEnteredState
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	646	].
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	647	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	648
2390 cada66e1eb70 changed: Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	649	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'queries'!
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	650
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	651	hasBeenExecuted
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	652	^ count > 0
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	653
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	654	"Created: / 28-04-2010 / 14:39:46 / cg"
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	655	! !
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	656
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	657	!InstrumentingCompiler::StatementExecutionInfo methodsFor:'testing'!
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	658
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	659	isStatementExecutionInfo
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	660	^ true
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	661
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	662	"Created: / 08-08-2011 / 14:40:51 / cg"
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	663	! !
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	664
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	665	!InstrumentingCompiler::StatementExecutionInfo::StatementExecutionInfoForCoverageInAlreadyEnteredState methodsFor:'cleanup'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	666
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	667	cleanInfoWithChange:withChange
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	668	super cleanInfoWithChange:withChange.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	669	self changeClassTo:InstrumentingCompiler::StatementExecutionInfo.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	670	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	671
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	672	!InstrumentingCompiler::StatementExecutionInfo::StatementExecutionInfoForCoverageInAlreadyEnteredState methodsFor:'instrumentation calls'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	673
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	674	entry:callingContext
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	675	"already been invoked - nothing to record"
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	676
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	677	^ self
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	678	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	679
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	680	!InstrumentingCompiler::StatementExecutionInfo::StatementExecutionInfoForCoverageInAlreadyEnteredState methodsFor:'queries'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	681
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	682	hasBeenExecuted
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	683	^ true
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	684	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	685
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	686	!InstrumentingCompiler::StatementExecutionInfo::StatementExecutionInfoInAlreadyEnteredState methodsFor:'cleanup'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	687
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	688	cleanInfoWithChange:withChange
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	689	super cleanInfoWithChange:withChange.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	690	self changeClassTo:InstrumentingCompiler::StatementExecutionInfo.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	691	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	692
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	693	!InstrumentingCompiler::StatementExecutionInfo::StatementExecutionInfoInAlreadyEnteredState methodsFor:'instrumentation calls'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	694
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	695	entry:callingContext
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	696	"already been invoked - no update notifications to browsers"
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	697
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	698	count := count + 1.
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	699	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	700
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	!InstrumentingCompiler::MethodInvocationInfo methodsFor:'accessing'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703	callingMethodsDo:aBlock
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	704	infoPerReceiverClass notNil ifTrue:[
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	705	infoPerReceiverClass ~~ true ifTrue:[
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	706	infoPerReceiverClass do:[:each \|
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	707	each callingMethodsDo:aBlock
aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	708	]
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	709	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	710	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	711	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	712
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	713	count
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	714	"how often have I been called"
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	715
2981 f82dd89f0459 count values Claus Gittinger <cg@exept.de> parents: 2976 diff changeset	716	^ count ? 0
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	717	!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	718
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	719	hasBeenCalled
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	720	^ infoPerReceiverClass notEmptyOrNil
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	"Created: / 27-04-2010 / 13:43:15 / cg"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	725	invokedViaPerform
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	726	^ infoPerReceiverClass contains:[:someInfo \| someInfo invokedViaPerform].
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	727
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	728	"Created: / 27-04-2010 / 18:21:56 / cg"
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	729	!
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	730
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	731	invokingMethods
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732	\|setOfMethods\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734	setOfMethods := IdentitySet new.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	self invokingMethodsDo:[:m \| setOfMethods add:m].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736	^ setOfMethods.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739	invokingMethodsDo:aBlock
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	740	infoPerReceiverClass isNil ifTrue:[ ^ self].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	^ infoPerReceiverClass do:[:eachInfo \| eachInfo invokingMethodsDo:aBlock].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744	numberOfInvocations
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	infoPerReceiverClass isNil ifTrue:[ ^ 0].
2951 340d0405f582 comment/format in:5 methods Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	746	infoPerReceiverClass == true ifTrue:[ ^ 0].
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	^ infoPerReceiverClass inject:0 into:[:sumSoFar :info \| sumSoFar + info numberOfInvocations]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750	numberOfInvocationsFromExternalOf:aClass
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	\|sum\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	infoPerReceiverClass isNil ifTrue:[ ^ 0].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	sum := 0.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756	infoPerReceiverClass keysAndValuesDo:[:recClass :info \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757	sum := sum + (info numberOfInvocationsFromExternalOf:aClass)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759	^ sum
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	761
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762	numberOfInvocationsFromInternalOf:aClass
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763	\|sum\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765	infoPerReceiverClass isNil ifTrue:[ ^ 0].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	766
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767	sum := 0.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768	infoPerReceiverClass keysAndValuesDo:[:recClass :info \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769	sum := sum + (info numberOfInvocationsFromInternalOf:aClass)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771	^ sum
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	774	!InstrumentingCompiler::MethodInvocationInfo methodsFor:'cleanup'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	775
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	776	cleanInfoWithChange:withChange
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	777	infoPerReceiverClass := nil.
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	778	withChange ifTrue:[
b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	779	Smalltalk changed:#methodCoverageInfo with:owningMethod.
b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	780	]
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	781
2570 f0b8fc6cdabb change info Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	782	"Modified: / 20-07-2011 / 17:55:35 / cg"
2571 b441a3fc0ce6 added: Claus Gittinger <cg@exept.de> parents: 2570 diff changeset	783	"Created: / 20-07-2011 / 18:59:22 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	786	!InstrumentingCompiler::MethodInvocationInfo methodsFor:'instrumentation calls'!
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	787
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788	entry:aContext
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789	"invoked by instrumented compiled code, upon method entry"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	791	\|context receiversClass infoPerReceiver firstEntry coverageOnly\|
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	792
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	793	recursiveEntry == true ifTrue:[
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	794	"/ hurry, get out of here
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	795	].
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	796
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	797	"/ this is a hack - we have to be very careful to avoid recursive
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	798	"/ instrumentation entries when instrumenting collection classes!!
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	799	"/ Do not change without extensive testing.
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	800	recursiveEntry := true.
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	801	context := InstrumentationContext current.
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	802	context isNil ifTrue:[recursiveEntry := false. ^ self].
8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	803	context enabledAndNotInInstrumentedCode ifFalse:[recursiveEntry := false. ^ self].
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	804
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	805	count := (count ? 0) + 1.
2944 b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	806	[
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	807	context inInstrumentedCode:true.
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	808
2875 f7f46f53bc84 entry code tuned Claus Gittinger <cg@exept.de> parents: 2715 diff changeset	809	firstEntry := false.
f7f46f53bc84 entry code tuned Claus Gittinger <cg@exept.de> parents: 2715 diff changeset	810
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	811	(coverageOnly := context coverageOnly) ifTrue:[
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	812	"/ only interested in entry, but not in a per-receiver statistics
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	813	"/ that is the normal coverage usage
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	814	infoPerReceiverClass isNil ifTrue:[
2949 aa8ced17ddfa x Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	815	infoPerReceiverClass := true.
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	816	firstEntry := true.
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	817	].
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	818	] ifFalse:[
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	819	"/ interested in a per-receiver statistics (remembering with which receiver-class a method has been invoked).
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	820	"/ that is used by the OOM package
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	821	infoPerReceiverClass isNil ifTrue:[
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	822	infoPerReceiverClass := IdentityDictionary new.
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	823	firstEntry := true.
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	824	].
2944 b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	825	receiversClass := aContext receiver class.
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	826	infoPerReceiver := infoPerReceiverClass
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	827	at:receiversClass
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	828	ifAbsentPut:[MethodInvocationInfoPerReceiverClass new].
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	829	infoPerReceiver entry:aContext.
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	830	].
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	831
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	832	"/ the very first time, send a change notification, so the browsers update the coloring
2944 b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	833	firstEntry ifTrue:[
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	834	Smalltalk changed:#methodCoverageInfo with:owningMethod.
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	835	].
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	836	coverageOnly ifTrue:[
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	837	self changeClassToCoverageAndAlreadyEntered.
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	838	] ifFalse:[
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	839	self changeClassToAlreadyEntered.
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	840	].
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	841	"/ attention: no self sends here - class has changed!!
2944 b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	842	] ensure:[
b0a2b03382fa fixes and tuning Claus Gittinger <cg@exept.de> parents: 2875 diff changeset	843	context inInstrumentedCode:false.
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	844	recursiveEntry := false.
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	845	].
2528 e57cc8caf6f9 dont instrument the instrumentation code Claus Gittinger <cg@exept.de> parents: 2391 diff changeset	846
2960 8adc66fe55fb care for recursive entry (instrumenting code which is needed Claus Gittinger <cg@exept.de> parents: 2958 diff changeset	847	"Modified (comment): / 26-10-2012 / 12:59:44 / cg"
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	848	! !
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	849
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	850	!InstrumentingCompiler::MethodInvocationInfo methodsFor:'private'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	851
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	852	changeClassToAlreadyEntered
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	853	self class == InstrumentingCompiler::MethodInvocationInfo ifTrue:[
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	854	self changeClassTo: InstrumentingCompiler::MethodInvocationInfoInAlreadyEnteredState
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	855	].
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	856	!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	857
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	858	changeClassToCoverageAndAlreadyEntered
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	859	self class == InstrumentingCompiler::MethodInvocationInfo ifTrue:[
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	860	self changeClassTo: InstrumentingCompiler::MethodInvocationInfoForCoverageInAlreadyEnteredState
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	861	].
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	862	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	863
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	864	!InstrumentingCompiler::MethodInvocationInfo methodsFor:'testing'!
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	865
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	866	isMethodInvocationInfo
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	867	^ true
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	868
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	869	"Created: / 08-08-2011 / 14:37:58 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	!InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass methodsFor:'accessing'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	callingMethodsDo:aBlock
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	infoPerSendingMethod keysAndValuesDo:[:m :eachInfo \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	aBlock value:m
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	880	invokedViaPerform
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	881	^ infoPerSendingMethod contains:[:someInfo \| someInfo invokedViaPerform].
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	882
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	883	"Created: / 27-04-2010 / 18:21:36 / cg"
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	884	!
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	885
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886	invokingMethodsDo:aBlock
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887	infoPerSendingMethod isNil ifTrue:[ ^ self].
3570 0ac6e8f11416 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	888	infoPerSendingMethod keysDo:aBlock.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	numberOfInvocations
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892	infoPerSendingMethod isNil ifTrue:[ ^ 0].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	^ infoPerSendingMethod inject:0 into:[:sumSoFar :info \| sumSoFar + info numberOfInvocations]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	numberOfInvocationsFromExternalOf:aClass
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897	\|sum\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	infoPerSendingMethod isNil ifTrue:[ ^ 0].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	sum := 0.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902	infoPerSendingMethod keysAndValuesDo:[:sendingMethod :info \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903	\|sendingMethodsClass\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905	sendingMethodsClass := sendingMethod mclass.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	sendingMethodsClass notNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	((sendingMethodsClass isSubclassOf:aClass)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	908	or:[(aClass isSubclassOf:sendingMethodsClass )]) ifFalse:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	909	sum := sum + (info numberOfInvocations)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913	^ sum
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914	!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	915
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	916	numberOfInvocationsFromInternalOf:aClass
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917	\|sum\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	918
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919	infoPerSendingMethod isNil ifTrue:[ ^ 0].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	920
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	921	sum := 0.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	infoPerSendingMethod keysAndValuesDo:[:sendingMethod :info \|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923	\|sendingMethodsClass\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	924
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	sendingMethodsClass := sendingMethod mclass.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926	sendingMethodsClass notNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	((sendingMethodsClass isSubclassOf:aClass)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928	or:[(aClass isSubclassOf:sendingMethodsClass)]) ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	sum := sum + (info numberOfInvocations)
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	^ sum
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	936	!InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass methodsFor:'instrumentation calls'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	938	entry:aContext
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939	"invoked by instrumented compiled code, upon method entry"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	941	\|sender sendingMethod infoPerMethod viaPerform\|
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942
2391 2bd90c14cd75 * empty log message * Claus Gittinger <cg@exept.de> parents: 2390 diff changeset	943	aContext selector == #doesNotUnderstand: ifTrue:[
2bd90c14cd75 * empty log message * Claus Gittinger <cg@exept.de> parents: 2390 diff changeset	944	sender := aContext sender sender methodHome.
2bd90c14cd75 * empty log message * Claus Gittinger <cg@exept.de> parents: 2390 diff changeset	945	] ifFalse:[
2bd90c14cd75 * empty log message * Claus Gittinger <cg@exept.de> parents: 2390 diff changeset	946	sender := aContext sender methodHome.
2bd90c14cd75 * empty log message * Claus Gittinger <cg@exept.de> parents: 2390 diff changeset	947	].
2370 a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	948	sender isNil ifTrue:[
a801cc4df234 added: #blockNodeRewriteHookFor: Claus Gittinger <cg@exept.de> parents: 2368 diff changeset	949	^ self.
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	950	].
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	951	sendingMethod := sender method.
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	952	sendingMethod isNil ifTrue:[^ self].
2391 2bd90c14cd75 * empty log message * Claus Gittinger <cg@exept.de> parents: 2390 diff changeset	953
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	954	viaPerform := false.
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	955	(sendingMethod mclass == Object
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	956	and:[ sendingMethod selector startsWith:'perform:'] ) ifTrue:[
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	957	"/ Transcript showCR:('%1 [info]: skipping #perform' bindWith:self class nameWithoutPrefix).
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	958	sender := sender sender methodHome.
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	959	sendingMethod := sender method.
e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	960	viaPerform := true.
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	961	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	963	infoPerSendingMethod isNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	964	infoPerSendingMethod := IdentityDictionary new.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	965	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966	infoPerMethod := infoPerSendingMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	967	at:sendingMethod
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	968	ifAbsentPut:[ MethodInvocationInfoPerSendingMethod new ].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	969
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	970	infoPerMethod entry:aContext viaPerform:viaPerform
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	971
2569 e9fcb54ac3d4 change notifications Claus Gittinger <cg@exept.de> parents: 2528 diff changeset	972	"Modified: / 20-07-2011 / 17:26:31 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	973	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	974
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	975	!InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass::MethodInvocationInfoPerSendingMethod methodsFor:'accessing'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	976
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	977	invokedViaPerform
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	978	^ invokedViaPerform ? false
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	979
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	980	"Created: / 27-04-2010 / 18:20:05 / cg"
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	981	!
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	982
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	983	numberOfInvocations
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	984	countPerSendersClass isNil ifTrue:[ ^ 0].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985	^ countPerSendersClass inject:0 into:[:sumSoFar :count \| sumSoFar + count]
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	986	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	988	!InstrumentingCompiler::MethodInvocationInfo::MethodInvocationInfoPerReceiverClass::MethodInvocationInfoPerSendingMethod methodsFor:'instrumentation calls'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	989
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	990	entry:aContext viaPerform:viaPerformBoolean
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	991	"invoked by instrumented compiled code, upon method entry"
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	993	\|sendersClass count\|
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995	sendersClass := aContext sender receiver class.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997	countPerSendersClass isNil ifTrue:[
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998	countPerSendersClass := IdentityDictionary new.
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	999	].
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1000	count := countPerSendersClass at:sendersClass ifAbsentPut:0.
2368 e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	1001	countPerSendersClass at:sendersClass put:(count + 1).
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	1002	viaPerformBoolean ifTrue:[ invokedViaPerform := true ].
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	1003
e48d46439c08 * empty log message * Claus Gittinger <cg@exept.de> parents: 2359 diff changeset	1004	"Created: / 27-04-2010 / 18:17:27 / cg"
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005	! !
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1007	!InstrumentingCompiler::MethodInvocationInfoForCoverageInAlreadyEnteredState methodsFor:'cleanup'!
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1008
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1009	cleanInfoWithChange:withChange
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1010	super cleanInfoWithChange:withChange.
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1011	self changeClassTo:InstrumentingCompiler::MethodInvocationInfo.
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1012	! !
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1013
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1014	!InstrumentingCompiler::MethodInvocationInfoForCoverageInAlreadyEnteredState methodsFor:'instrumentation calls'!
2948 1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1015
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1016	entry:aContext
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1017	"already been invoked - nothing to record"
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1018
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1019	^ self
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1020	! !
1af0db8d9945 entry fix and speedup Claus Gittinger <cg@exept.de> parents: 2946 diff changeset	1021
2711 63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1022	!InstrumentingCompiler::MethodInvocationInfoInAlreadyEnteredState methodsFor:'cleanup'!
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1023
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1024	cleanInfoWithChange:withChange
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1025	super cleanInfoWithChange:withChange.
2711 63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1026	self changeClassTo:InstrumentingCompiler::MethodInvocationInfo.
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1027
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1028	"Modified: / 20-07-2011 / 17:55:35 / cg"
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1029	"Created: / 24-08-2011 / 11:10:29 / cg"
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1030	! !
63f9264d17f0 speedup for coverage-only Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	1031
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1032	!InstrumentingCompiler::MethodInvocationInfoInAlreadyEnteredState methodsFor:'instrumentation calls'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1033
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1034	entry:aContext
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1035	"already been invoked - no notifications to send"
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1036
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1037	count := count + 1
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1038	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1039
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1040	!InstrumentingCompiler::VariableAccessExecutionInfo class methodsFor:'documentation'!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1041
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1042	documentation
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1043	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1044	(sub)instances of me are updated by instrumented code when a variable is accessed
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1045	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1046	! !
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1047
2976 6e3f4e2b20f8 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2973 diff changeset	1048	!InstrumentingCompiler::VariableAccessExecutionInfo methodsFor:'testing'!
6e3f4e2b20f8 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2973 diff changeset	1049
6e3f4e2b20f8 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2973 diff changeset	1050	isVariableAccessExecutionInfo
6e3f4e2b20f8 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2973 diff changeset	1051	^ true
6e3f4e2b20f8 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2973 diff changeset	1052	! !
6e3f4e2b20f8 class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2973 diff changeset	1053
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1054	!InstrumentingCompiler::BlockExecutionInfo class methodsFor:'documentation'!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1055
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1056	documentation
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1057	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1058	(sub)instances of me are updated by instrumented code when a block is executed.
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1059	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1060	! !
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1061
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1062	!InstrumentingCompiler::BlockExecutionInfo methodsFor:'entry'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1063
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1064	changeClassToAlreadyEntered
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1065	self class == InstrumentingCompiler::BlockExecutionInfo ifTrue:[
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1066	self changeClassTo: BlockExecutionInfoInAlreadyEnteredState
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1067	].
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1068	!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1069
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1070	changeClassToCoverageAndAlreadyEntered
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1071	self class == InstrumentingCompiler::BlockExecutionInfo ifTrue:[
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1072	self changeClassTo: BlockExecutionInfoForCoverageInAlreadyEnteredState
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1073	].
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1074	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1075
2675 3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1076	!InstrumentingCompiler::BlockExecutionInfo methodsFor:'printing'!
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1077
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1078	printOn:aStream
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1079	aStream nextPutAll:'['.
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1080	startPosition printOn:aStream.
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1081	aStream nextPutAll:'...'.
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1082	endPosition printOn:aStream.
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1083	aStream nextPutAll:']'.
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1084
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1085	"Created: / 21-08-2011 / 14:02:01 / cg"
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1086	! !
3e8368ea406e comment/format in: #addBlockCounterTo: Claus Gittinger <cg@exept.de> parents: 2665 diff changeset	1087
2632 734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1088	!InstrumentingCompiler::BlockExecutionInfo methodsFor:'testing'!
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1089
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1090	isBlockExecutionInfo
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1091	^ true
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1092
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1093	"Created: / 07-08-2011 / 17:06:39 / cg"
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1094	! !
734313b470d3 refactoring Claus Gittinger <cg@exept.de> parents: 2571 diff changeset	1095
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1096	!InstrumentingCompiler::BlockExecutionInfo::BlockExecutionInfoForCoverageInAlreadyEnteredState methodsFor:'cleanup'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1097
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1098	cleanInfoWithChange:withChange
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1099	super cleanInfoWithChange:withChange.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1100	self changeClassTo:InstrumentingCompiler::BlockExecutionInfo.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1101	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1102
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1103	!InstrumentingCompiler::BlockExecutionInfo::BlockExecutionInfoForCoverageInAlreadyEnteredState methodsFor:'instrumentation probe calls'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1104
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1105	entry:callingContext
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1106	"already been invoked - nothing to do"
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1107
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1108	^ self
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1109	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1110
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1111	!InstrumentingCompiler::BlockExecutionInfo::BlockExecutionInfoForCoverageInAlreadyEnteredState methodsFor:'queries'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1112
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1113	hasBeenExecuted
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1114	^ true
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1115	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1116
2967 33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1117	!InstrumentingCompiler::BlockExecutionInfo::BlockExecutionInfoInAlreadyEnteredState methodsFor:'cleanup'!
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1118
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1119	cleanInfoWithChange:withChange
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1120	super cleanInfoWithChange:withChange.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1121	self changeClassTo:InstrumentingCompiler::BlockExecutionInfo.
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1122	! !
33ec78ee2aa9 tuning by changing the class to speedup entry into already Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	1123
2973 9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1124	!InstrumentingCompiler::BlockExecutionInfo::BlockExecutionInfoInAlreadyEnteredState methodsFor:'instrumentation probe calls'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1125
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1126	entry:callingContext
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1127	"already been invoked - no update notification for browsers"
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1128
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1129	count := count + 1.
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1130	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1131
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1132	!InstrumentingCompiler::BlockExecutionInfo::BlockExecutionInfoInAlreadyEnteredState methodsFor:'queries'!
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1133
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1134	hasBeenExecuted
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1135	^ true
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1136	! !
9de309c79d6c class: InstrumentingCompiler Claus Gittinger <cg@exept.de> parents: 2972 diff changeset	1137
2715 10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1138	!InstrumentingCompiler::ReadAccessExecutionInfo class methodsFor:'documentation'!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1139
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1140	documentation
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1141	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1142	(sub)instances of me are updated by instrumented code when a variable is read
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1143	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1144	! !
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1145
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1146	!InstrumentingCompiler::WriteAccessExecutionInfo class methodsFor:'documentation'!
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1147
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1148	documentation
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1149	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1150	(sub)instances of me are updated by instrumented code when a variable is written
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1151	"
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1152	! !
10a744f8ce68 comments Claus Gittinger <cg@exept.de> parents: 2711 diff changeset	1153
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	!InstrumentingCompiler class methodsFor:'documentation'!
9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155
2570 f0b8fc6cdabb change info Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	1156	version
3862 42354ffef3a1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 3585 diff changeset	1157	^ '$Header$'
2570 f0b8fc6cdabb change info Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	1158	!
f0b8fc6cdabb change info Claus Gittinger <cg@exept.de> parents: 2569 diff changeset	1159
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160	version_CVS
3862 42354ffef3a1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 3585 diff changeset	1161	^ '$Header$'
2357 9eceec36beca initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162	! !
3192 4a3a9fa54b94 class: InstrumentingCompiler Stefan Vogel <sv@exept.de> parents: 2981 diff changeset	1163

author	sr
	Tue, 21 Feb 2017 16:54:14 +0100
branch	expecco_2_11_0
changeset 4129	c690dec12b7e
parent 3862	42354ffef3a1
child 3874	4f9db2d4c2b7
child 4126	319760fc7900
permissions	-rw-r--r--