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

author	Claus Gittinger <cg@exept.de>
	Wed, 07 Nov 2012 23:18:08 +0100
changeset 2973	9de309c79d6c
parent 2972	204f077ff866
child 2976	6e3f4e2b20f8
permissions	-rw-r--r--