VM Maker: VMMaker.oscog-nice.1747.mcz

 
Nicolas Cellier uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-nice.1747.mcz

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

Name: VMMaker.oscog-nice.1747
Author: nice
Time: 29 March 2016, 11:45:53.394 pm
UUID: 1b765c2a-8d50-4187-8dc2-216c4556a755
Ancestors: VMMaker.oscog-eem.1746

Correct undue sign extension wile promoting 32 to 64 bits int in fetchLong64:ofObject:
This was causing trouble in non spur object memory (V3) especially since I decided to generalize the usage of this message.

My feeling: we urgently need unsignedLong32At: to avoid these beautiful cast.

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

Item was changed:
  ----- Method: ObjectMemory>>fetchLong64:ofObject: (in category 'object access') -----
  fetchLong64: longIndex ofObject: oop
  <returnTypeC: #sqLong>
  ^self cppIf: BytesPerWord = 8
  ifTrue: [self long64At: oop + self baseHeaderSize + (longIndex << 3)]
  ifFalse:
+ ["BEWARE OF SIGN EXTENSION ON LEAST SIGNIFICAND LIMB
+ 'unsigned int) CAST IS THERE TO PREVENT SUCH ERROR"
+ self cppIf: VMBIGENDIAN
- [self cppIf: VMBIGENDIAN
  ifTrue: [((self long32At: oop + self baseHeaderSize + (longIndex << 3)) asUnsignedLongLong << 32)
+ + (self cCoerceSimple: (self long32At: oop + self baseHeaderSize + (longIndex << 3 + 4)) to: #'unsigned int')]
+ ifFalse: [(self cCoerceSimple: (self long32At: oop + self baseHeaderSize + (longIndex << 3)) to: #'unsigned int')
- + (self long32At: oop + self baseHeaderSize + (longIndex << 3 + 4))]
- ifFalse: [(self long32At: oop + self baseHeaderSize + (longIndex << 3))
  + ((self long32At: oop + self baseHeaderSize + (longIndex << 3 + 4)) asUnsignedLongLong << 32)]]!