[Pkg] The Trunk: Kernel-eem.864.mcz

[commits at source.squeak.org]

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]!