[Vm-dev] VM Maker: VMMaker.oscog-eem.2948.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.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!