Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.864.mcz
==================== Summary ====================
Name: Kernel-eem.864 Author: eem Time: 5 August 2014, 9:27:06.696 pm UUID: 3fa01ebb-bef4-4b68-aac7-3cf0a41e3df1 Ancestors: Kernel-eem.863
Allow encoderClass to be stored in a property to allow tsting of methods in different bytecode sets before those sets have been installed. Don't create blocks in the property accessors unless absolutely necessary.
=============== Diff against Kernel-eem.863 ===============
Item was changed: ----- Method: CompiledMethod>>encoderClass (in category 'accessing') ----- encoderClass "Answer the encoder class that encoded the bytecodes in this method. + The sign flag bit is used by the VM to select a bytecode set. This formulation + may seem odd but this has to be fast, so no property probe unless needed." - The sign flag bit is used by the VM to select a bytecode set."
^self header >= 0 + ifTrue: + [PrimaryBytecodeSetEncoderClass] + ifFalse: + [PrimaryBytecodeSetEncoderClass == SecondaryBytecodeSetEncoderClass + ifTrue: "Support for testing prior to installing another set" + [(self propertyValueAt: #encoderClass) ifNil: [SecondaryBytecodeSetEncoderClass]] + ifFalse: + [SecondaryBytecodeSetEncoderClass]]! - ifTrue: [PrimaryBytecodeSetEncoderClass] - ifFalse: [SecondaryBytecodeSetEncoderClass]!
Item was changed: ----- Method: CompiledMethod>>pragmaAt: (in category 'accessing-pragmas & properties') ----- pragmaAt: aKey "Answer the pragma with selector aKey, or nil if none." | propertiesOrSelector | ^(propertiesOrSelector := self penultimateLiteral) isMethodProperties + ifTrue: [propertiesOrSelector at: aKey ifAbsent: nil] - ifTrue: [propertiesOrSelector at: aKey ifAbsent: [nil]] ifFalse: [nil]!
Item was changed: ----- Method: CompiledMethod>>propertyValueAt: (in category 'accessing-pragmas & properties') ----- propertyValueAt: propName | propertiesOrSelector | ^(propertiesOrSelector := self penultimateLiteral) isMethodProperties + ifTrue: [propertiesOrSelector propertyValueAt: propName ifAbsent: nil] - ifTrue: [propertiesOrSelector propertyValueAt: propName ifAbsent: [nil]] ifFalse: [nil]!
packages@lists.squeakfoundation.org