Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.385.mcz==================== Summary ====================
Name: Kernel-ar.385
Author: ar
Time: 2 February 2010, 10:03:42.112 am
UUID: ca133c5e-fb58-834d-aab1-1a61b83d6c3d
Ancestors: Kernel-ar.384
Fix handling of Class>>binding:
- Verify that the registered class in the environment is the receiver
- Install a common binding after recompilation
- Add an accessor for installing the binding in CompiledMethod
=============== Diff against Kernel-ar.384 ===============
Item was changed:
----- Method: Behavior>>compileAllFrom: (in category 'compiling') -----
compileAllFrom: oldClass
"Compile all the methods in the receiver's method dictionary.
This validates sourceCode and variable references and forces
all methods to use the current bytecode set"
+ | binding |
"ar 7/10/1999: Use oldClass selectors not self selectors"
+ oldClass selectorsDo: [:sel | self recompile: sel from: oldClass].
+ "Ensure that we share a common binding after recompilation.
+ This is so that ClassBuilder reshapes avoid creating new bindings
+ for every method when recompiling a large class hierarchy."
+ binding := self binding.
+ self methodsDo:[:m|
+ m methodClassAssociation == binding
+ ifFalse:[m methodClassAssociation: binding]].
+ !
- oldClass selectorsDo: [:sel | self recompile: sel from: oldClass].!
Item was added:
+ ----- Method: CompiledMethod>>methodClassAssociation: (in category 'accessing') -----
+ methodClassAssociation: aBinding
+ "sets the association to the class that I am installed in"
+ ^self literalAt: self numLiterals put: aBinding!
Item was changed:
----- Method: Class>>binding (in category 'compiling') -----
binding
+ "Answer a binding for the receiver, sharing if possible"
+ | binding |
+ binding := Smalltalk associationAt: name ifAbsent: [nil -> self].
+ ^binding value == self ifTrue:[binding] ifFalse:[nil -> self].!
-
- ^ Smalltalk associationAt: name ifAbsent: [nil -> self]
- !
Locked
