[squeak-dev] The Trunk: Kernel-eem.846.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 2 23:04:57 UTC 2014


Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.846.mcz

==================== Summary ====================

Name: Kernel-eem.846
Author: eem
Time: 2 May 2014, 4:04:03.262 pm
UUID: b9c690a8-8a32-44bc-b553-2a2bceedae70
Ancestors: Kernel-cmm.845

Fix whichMethodsStoreInto: for pool variables.
Any kind soul who wants to do the same for
whichSelectorsStoreInto: et al is encouraged
to do so. The test case is looking for reads or writes
of a pool variable.

=============== Diff against Kernel-cmm.845 ===============

Item was removed:
- ----- Method: Class>>whichMethodsStoreInto: (in category 'testing') -----
- whichMethodsStoreInto: varName 
- 	"Answer a collection of CompiledMethod whose methods access the argument, varName, as a named class variable. Or let super try with a named instance variable."
- 	| ref |
- 	ref := self classPool
- 		associationAt: varName
- 		ifAbsent: [ ^ super whichMethodsStoreInto: varName ].
- 	^self methodDict values select: [:eachMethod | eachMethod writesRef: ref ]!

Item was added:
+ ----- Method: ClassDescription>>whichMethodsStoreInto: (in category 'testing') -----
+ whichMethodsStoreInto: varName 
+ 	"Answer a collection of CompiledMethod whose methods access the argument, varName,
+ 	 as a named class or pool variable. Or let super try with a named instance variable."
+ 	^(self bindingOf: varName)
+ 		ifNil: [super whichMethodsStoreInto: varName]
+ 		ifNotNil: [:ref| self methodDict values select: [:eachMethod| eachMethod writesRef: ref]]!

Item was removed:
- ----- Method: Metaclass>>whichMethodsStoreInto: (in category 'testing') -----
- whichMethodsStoreInto: varName 
- 	"Answer a collection of CompiledMethod which store into the argument, varName, as a named class variable. Or let super try with a named instance variable."
- 	| ref |
- 	ref := self classPool
- 		associationAt: varName
- 		ifAbsent: [ ^ super whichMethodsStoreInto: varName ].
- 	^self methodDict values select: [:eachMethod | eachMethod writesRef: ref ]!



More information about the Squeak-dev mailing list