Adding check to fix when the image is open with an older VM that corr…

…upts the remembered set.
PalumboN · Jul 5, 2023 · 0a2f8a5 · 0a2f8a5
1 parent eddb71f
commit 0a2f8a5
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/smalltalksrc/VMMaker/VMRememberedSet.class.st b/smalltalksrc/VMMaker/VMRememberedSet.class.st
@@ -164,6 +164,15 @@ VMRememberedSet >> initialize [
 VMRememberedSet >> initializeRememberedSetShouldStartEmpty: shouldStartEmpty [
 	| obj |
 	obj := self objectOop.
+
+	(manager isInOldSpace: obj) 
+		ifFalse: [ 
+			manager logWarn: 'Remembered Set is in an invalid position %p. Signal of a corrupted root table.' _: obj.
+			shouldStartEmpty 
+				ifTrue: [ 
+					obj := manager nilObject.
+					manager logWarn: 'As it starts empty, we can ignore it' ]]. 
+
 	obj = manager nilObject
 		ifTrue:
 			[obj := manager allocatePinnedSlots: 1024.