Mutant pharo-project#589, Reverting [ Replace #= with #'~=' ] on meth…

…od [ allOldSpaceEntitiesForCompactingFrom:to:do: ] 10/10 Test Cases are NOT EQUIVALENT
hogoww · Feb 25, 2022 · b31aae6 · b31aae6
1 parent d8164ae
commit b31aae6
Showing 1 changed file with 9 additions and 13 deletions.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -1755,25 +1755,21 @@ SpurMemoryManager >> allOldSpaceEntitiesForCoalescingFrom: firstObj do: aBlock [
 
 { #category : #'object enumeration' }
 SpurMemoryManager >> allOldSpaceEntitiesForCompactingFrom: initialObject to: finalObject do: aBlock [
-
 	<inline: true>
 	| limit prevObj prevPrevObj objOop nextObj |
 	self assert: (self isOldObject: initialObject).
 	self assert: (self oop: finalObject isLessThanOrEqualTo: endOfMemory).
 	prevPrevObj := prevObj := nil.
 	objOop := initialObject.
-	limit := (self oop: finalObject isLessThan: endOfMemory)
-		         ifTrue: [ self addressAfter: finalObject ]
-		         ifFalse: [ endOfMemory ].
-	[ 
-	self assert: objOop \\ self allocationUnit ~= 0.
-	self oop: objOop isLessThan: limit ] whileTrue: [ 
-		self assert: (self long64At: objOop) ~= 0.
-		nextObj := self objectAfter: objOop limit: endOfMemory.
-		aBlock value: objOop value: nextObj.
-		prevPrevObj := prevObj.
-		prevObj := objOop.
-		objOop := nextObj ].
+	limit := (self oop: finalObject isLessThan: endOfMemory) ifTrue: [self addressAfter: finalObject] ifFalse: [endOfMemory].
+	[self assert: objOop \\ self allocationUnit = 0.
+	 self oop: objOop isLessThan: limit] whileTrue:
+		[self assert: (self long64At: objOop) ~= 0.
+		 nextObj := self objectAfter: objOop limit: endOfMemory.
+		 aBlock value: objOop value: nextObj.
+		 prevPrevObj := prevObj.
+		 prevObj := objOop.
+		 objOop := nextObj].
 	self touch: prevPrevObj.
 	self touch: prevObj
 ]