[Pkg] The Trunk: Kernel-eem.870.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Sep 17 22:56:31 UTC 2014
Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.870.mcz
==================== Summary ====================
Name: Kernel-eem.870
Author: eem
Time: 17 September 2014, 3:55:43.269 pm
UUID: 26720d45-a583-48c1-8bda-02fa0f50cdc4
Ancestors: Kernel-eem.869
Revise blockCreationBytecodeMessage for
multiple bytecode sets. Provide the accessor to
determine which flag an encoder should use.
=============== Diff against Kernel-eem.869 ===============
Item was changed:
----- Method: BlockClosure>>blockCreationBytecodeMessage (in category 'scanning') -----
blockCreationBytecodeMessage
"Answer the abstract bytecode message that created the receiver."
+ ^self method abstractBytecodeMessageAt: self blockCreationPC
- | blockCreationBytecodeSize |
- ^self method abstractBytecodeMessageAt: startpc - (blockCreationBytecodeSize := 4)
"(SortedCollection sortBlock: [:a :b| a compare: b caseSensitive: false]) sortBlock blockCreationBytecodeMessage"!
Item was added:
+ ----- Method: BlockClosure>>blockCreationPC (in category 'scanning') -----
+ blockCreationPC
+ "Answer the pc for the bytecode that created the receuver."
+ | method |
+ method := self method.
+ ^method encoderClass
+ pcOfBlockCreationBytecodeForBlockStartingAt: startpc
+ in: method!
Item was added:
+ ----- Method: CompiledMethod class>>headerFlagForEncoderClass: (in category 'method encoding') -----
+ headerFlagForEncoderClass: anEncoderClass
+ anEncoderClass = PrimaryBytecodeSetEncoderClass ifTrue:
+ [^0].
+ anEncoderClass = SecondaryBytecodeSetEncoderClass ifTrue:
+ [^SmallInteger minVal].
+ self error: 'The encoder is not one of the two installed bytecode sets'!
More information about the Packages
mailing list