Ryan Macnak uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-rmacnak.1494.mcz
==================== Summary ====================
Name: VMMaker.oscog-rmacnak.1494 Author: rmacnak Time: 19 October 2015, 8:40:22.914 pm UUID: b288db64-85ad-44a1-b406-da026226b4fc Ancestors: VMMaker.oscog-eem.1493
Fix missing primitive failure for Alien typeAt: 0 [put:].
=============== Diff against VMMaker.oscog-eem.1493 ===============
Item was changed: ----- Method: IA32ABIPlugin>>index:length:inRange: (in category 'private-support') ----- index: byteIndex length: length inRange: rcvr + "Answer if the indices byteIndex to byteIndex + length - 1 are valid zero-relative indices into the rcvr." - "Answer if the indices byteIndex to byteIndex + length - 1 are valid zero-relative indices into the rcvr. - N.B. This code only works when translated because asUnisgnedInteger only works for non-negative - values. Hence the override in IA32ABIPluginSimulator." | dataSize | <inline: true> + dataSize := self sizeField: rcvr. + ^dataSize = 0 or: [byteIndex >= 0 and: [(byteIndex + length) <= dataSize abs]]! - ^(dataSize := self sizeField: rcvr) = 0 - or: [byteIndex asUnsignedInteger + length <= dataSize abs]!
Item was removed: - ----- Method: IA32ABIPluginSimulator>>index:length:inRange: (in category 'private-support') ----- - index: byteIndex length: length inRange: rcvr - "Answer if the indices byteIndex to byteIndex + length - 1 are valid zero-relative indices into the rcvr." - | dataSize | - <inline: true> - dataSize := self sizeField: rcvr. - ^dataSize = 0 or: [byteIndex > 0 and: [byteIndex + length <= dataSize abs]]!
Item was changed: ----- Method: NewsqueakIA32ABIPlugin>>index:length:inRange: (in category 'private-support') ----- index: byteIndex length: length inRange: rcvr + "Answer if the indices byteIndex to byteIndex + length - 1 are valid zero-relative indices into the rcvr." - "Answer if the indices byteIndex to byteIndex + length - 1 are valid zero-relative indices into the rcvr. - N.B. This code only works when translated because asUnisgnedInteger only works for non-negative - values. Hence the override in NewsqueakIA32ABIPluginSimulator." | dataSize | <inline: true> + dataSize := self sizeField: rcvr. + ^dataSize = 0 or: [byteIndex >= 0 and: [(byteIndex + length) <= dataSize abs]]! - ^(dataSize := self sizeField: rcvr) = 0 - or: [byteIndex asUnsignedInteger + length <= dataSize abs]!
Item was removed: - ----- Method: NewsqueakIA32ABIPluginSimulator>>index:length:inRange: (in category 'private-support') ----- - index: byteIndex length: length inRange: rcvr - "Answer if the indices byteIndex to byteIndex + length - 1 are valid zero-relative indices into the rcvr." - | dataSize | - <inline: true> - dataSize := self sizeField: rcvr. - ^dataSize = 0 or: [byteIndex > 0 and: [byteIndex + length <= dataSize abs]]!
vm-dev@lists.squeakfoundation.org