The Trunk: Kernel-eem.670.mcz

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

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

Name: Kernel-eem.670
Author: eem
Time: 19 February 2012, 11:03:50.709 am
UUID: 18d57d21-e007-4be6-b076-13d011b90565
Ancestors: Kernel-eem.669

Add accessors for a CompiledsMethod header's sign bit.
The sign bit is useful for experiments but may also be used
to select an alternate bytecode set in the VM, e.g. for
supporting multiple languages or evolving the bytecode set.

=============== Diff against Kernel-eem.669 ===============

Item was added:
+ ----- Method: CompiledMethod>>clearSignFlag (in category 'accessing') -----
+ clearSignFlag
+ "Clear the sign flag bit.  The sign flag bit may be
+ used by the VM to select an alternate bytecode set."
+
+ self signFlag ifTrue:
+ [self objectAt: 1 put: self header - SmallInteger minVal]!

Item was added:
+ ----- Method: CompiledMethod>>setSignFlag (in category 'accessing') -----
+ setSignFlag
+ "Set the sign flag bit.  The sign flag bit may be
+ used by the VM to select an alternate bytecode set."
+
+ self signFlag ifFalse:
+ [self objectAt: 1 put: self header + SmallInteger minVal]!

Item was added:
+ ----- Method: CompiledMethod>>signFlag (in category 'accessing') -----
+ signFlag
+ "Answer the sign flag bit.  The sign flag bit may be
+ used by the VM to select an alternate bytecode set."
+
+ ^self header < 0!