VM Maker: VMMaker.oscog-eem.2948.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

VM Maker: VMMaker.oscog-eem.2948.mcz

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

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

Name: VMMaker.oscog-eem.2948
Author: eem
Time: 16 March 2021, 1:24:48.66302 pm
UUID: 935d1ee7-0e61-47a5-92e2-953224c7ffcf
Ancestors: VMMaker.oscog-eem.2947

...and primitiveNotIdentical contains the same mistake.

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

Item was changed:
  ----- Method: InterpreterPrimitives>>primitiveNotIdentical (in category 'object access primitives') -----
  primitiveNotIdentical
  "is the receiver/first argument not the same object as the (last) argument?.
  pop argumentCount because this can be used as a mirror primitive."
+ "is the receiver/first argument the same object as the (last) argument?.
+ pop argumentCount because this can be used as a mirror primitive."
  | thisObject otherObject |
+ thisObject := self stackValue: 1.
+ otherObject := self stackTop.
+ ((objectMemory isOopForwarded: otherObject)
+ or: [argumentCount > 1
+ and: [objectMemory isOopForwarded: thisObject]])
+ ifTrue:
+ [self primitiveFailFor: PrimErrBadArgument]
+ ifFalse:
+ [self pop: argumentCount + 1 thenPushBool: thisObject ~= otherObject]!
- otherObject := self stackValue: 1.
- thisObject := self stackTop.
- (objectMemory isOopForwarded: otherObject) ifTrue:
- [self assert: argumentCount > 1.
- otherObject := objectMemory followForwarded: thisObject].
- (objectMemory isOopForwarded: thisObject) ifTrue:
- [thisObject := objectMemory followForwarded: thisObject].
- self pop: argumentCount + 1 thenPushBool: thisObject ~= otherObject!