Fix issue with multipass compaction.

lastMobileObject should be the last mobile object observed during one pass of the compaction, and should be reinitialized on each pass
hernanmd · Mar 30, 2023 · 9b4c7cf · 9b4c7cf
1 parent 64f7c6d
commit 9b4c7cf
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/smalltalksrc/VMMaker/SpurPlanningCompactor.class.st b/smalltalksrc/VMMaker/SpurPlanningCompactor.class.st
@@ -464,6 +464,7 @@ SpurPlanningCompactor >> planCompactSavingForwarders [
 	toFinger := manager startOfObject: firstFreeObject.
 	top := savedFirstFieldsSpace start.
 	startOfPreviousPin := 0.
+	lastMobileObject := nil.
 	manager allOldSpaceEntitiesFrom: firstFreeObject do:
 		[:o|
 		 self check: o.
@@ -509,6 +510,7 @@ SpurPlanningCompactor >> planCompactSavingForwarders [
 						[savedFirstFieldsSpace top: top - manager bytesPerOop.
 						 objectAfterLastMobileObject := manager oldSpaceObjectAfter: lastMobileObject.
 						 ^false]]]].
+
 	"If the heap is already fully compacted there will be no lastMobileObject..."
 	lastMobileObject ifNotNil:
 		[savedFirstFieldsSpace top: top - manager bytesPerOop.