[Vm-dev] VM Maker: VMMaker.oscog.seperateMarking-WoC.3254.mcz

[commits at source.squeak.org]

Tom Braun uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog.seperateMarking-WoC.3254.mcz

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

Name: VMMaker.oscog.seperateMarking-WoC.3254
Author: WoC
Time: 11 August 2022, 9:37:57.506803 pm
UUID: c10e995c-40c9-4433-85b9-6c4556f50088
Ancestors: VMMaker.oscog.seperateMarking-WoC.3253

add missing equality check

=============== Diff against VMMaker.oscog.seperateMarking-WoC.3253 ===============

Item was changed:
  ----- Method: SpurMemoryManager>>indexOf:in: (in category 'debug support') -----
  indexOf: anElement in: anObject
  	<api>
  	| fmt numSlots |
  	fmt := self formatOf: anObject.
  
  	fmt <= self lastPointerFormat ifTrue:
  		[numSlots := self numSlotsOf: anObject.
  		 0 to: numSlots do:
  			[:i| anElement = (self fetchPointer: i ofMaybeForwardedObject: anObject) ifTrue: [^i]].
  		-1].
  
  	fmt >= self firstByteFormat ifTrue:
  		[fmt >= self firstCompiledMethodFormat ifTrue:
  			[^self primitiveFailFor: PrimErrUnsupported].
  		 numSlots := self numBytesOfBytes: anObject.
  		 0 to: numSlots do:
+ 			[:i| anElement = (self fetchByte: i ofObject: anObject) ifTrue: [^i]].
- 			[:i| (self fetchByte: i ofObject: anObject) ifTrue: [^i]].
  		-1].
  
  	fmt >= self firstShortFormat ifTrue:
  		[numSlots := self num16BitUnitsOf: anObject.
  		 0 to: numSlots do:
  			[:i| anElement = (self fetchUnsignedShort16: i ofObject: anObject) ifTrue: [^i]].
  		-1].
  
  	fmt = self sixtyFourBitIndexableFormat ifTrue:
  		[numSlots := self num64BitUnitsOf: anObject.
  		 0 to: numSlots do:
  			[:i| anElement = (self fetchLong64: i ofObject: anObject) ifTrue: [^i]].
  		-1].
  
  	fmt >= self firstLongFormat ifTrue:
  		[numSlots := self num32BitUnitsOf: anObject.
  		 0 to: numSlots do:
  			[:i| anElement = (self fetchLong32: i ofObject: anObject) ifTrue: [^i]].
  		-1].
  
  	^-1!