[Vm-dev] VM Maker: VMMaker.oscog-eem.940.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.940.mcz

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

Name: VMMaker.oscog-eem.940
Author: eem
Time: 18 November 2014, 4:58:14.552 pm
UUID: 425ce64c-828e-4ddf-adc5-201f2469cce5
Ancestors: VMMaker.oscog-eem.939

Make setHashBitsOf:to: work for 64 as well as 32 bits.

=============== Diff against VMMaker.oscog-eem.939 ===============

Item was removed:
- ----- Method: Spur32BitMemoryManager>>setHashBitsOf:to: (in category 'header access') -----
- setHashBitsOf: objOop to: hash
- 	self flag: #endianness.
- 	self assert: (hash between: 0 and: self identityHashHalfWordMask).
- 	self longAt: objOop + 4
- 		put: ((self longAt: objOop + 4) bitClear: self identityHashHalfWordMask) + hash!

Item was added:
+ ----- Method: Spur64BitMemoryManager>>identityHashFullWordMask (in category 'header access') -----
+ identityHashFullWordMask
+ 	^16r3fffff00000000!

Item was added:
+ ----- Method: Spur64BitMemoryManager>>identityHashFullWordShift (in category 'header access') -----
+ identityHashFullWordShift
+ 	^32!

Item was removed:
- ----- Method: Spur64BitMemoryManager>>setHashBitsOf:to: (in category 'header access') -----
- setHashBitsOf: objOop to: hash
- 	self assert: (hash between: 0 and: self identityHashFullWordMask).
- 	self longAt: objOop
- 		put: ((self longAt: objOop) bitClear: self identityHashFullWordMask) + hash!

Item was changed:
  ----- Method: SpurMemoryManager>>rawHashBitsOf: (in category 'header access') -----
  rawHashBitsOf: objOop
  	self flag: #endianness.
+ 	^(self long32At: objOop + 4) bitAnd: self identityHashHalfWordMask!
- 	^(self longAt: objOop + 4) bitAnd: self identityHashHalfWordMask!

Item was changed:
  ----- Method: SpurMemoryManager>>setHashBitsOf:to: (in category 'header access') -----
  setHashBitsOf: objOop to: hash
+ 	self flag: #endianness.
+ 	self assert: (hash between: 0 and: self identityHashHalfWordMask).
+ 	self long32At: objOop + 4
+ 		put: ((self long32At: objOop + 4) bitClear: self identityHashHalfWordMask) + hash!
- 	self subclassResponsibility!