Mutant pharo-project#565, Installing [ Replace #ifTrue: receiver with true ] on method [ markWeaklingsAndMarkAndFireEphemerons ]

Author: hogoww

smalltalksrc/VMMaker/SpurMemoryManager.class.st

@@ -8456,30 +8456,34 @@ SpurMemoryManager >> markStack: anOop [
 
 { #category : #'gc - global' }
 SpurMemoryManager >> markWeaklingsAndMarkAndFireEphemerons [
+
 	"After the initial scan-mark is complete ephemerons can be processed.
 	 Weaklings have accumulated on the weaklingStack, but more may be
 	 uncovered during ephemeron processing.  So trace the strong slots
 	 of the weaklings, and as ephemerons are processed ensure any newly
 	 reached weaklings are also traced."
-	| numTracedWeaklings |
+
 	<inline: false>
+	| numTracedWeaklings |
 	numTracedWeaklings := 0.
-	[coInterpreter markAndTraceUntracedReachableStackPages.
-	 coInterpreter markAndTraceMachineCodeOfMarkedMethods.
-	 "Make sure all reached weaklings have their strong slots traced before firing ephemerons..."
-	 [numTracedWeaklings := self markAndTraceWeaklingsFrom: numTracedWeaklings.
-	  (self sizeOfObjStack: weaklingStack) > numTracedWeaklings] whileTrue.
-	 self noUnscannedEphemerons ifTrue:
-		[coInterpreter
+	[ 
+	coInterpreter markAndTraceUntracedReachableStackPages.
+	coInterpreter markAndTraceMachineCodeOfMarkedMethods.
+	"Make sure all reached weaklings have their strong slots traced before firing ephemerons..."
+	[ 
+	numTracedWeaklings := self markAndTraceWeaklingsFrom:
+		                      numTracedWeaklings.
+	(self sizeOfObjStack: weaklingStack) > numTracedWeaklings ] whileTrue.
+	true ifTrue: [ 
+		coInterpreter
 			markAndTraceUntracedReachableStackPages;
-	 		markAndTraceMachineCodeOfMarkedMethods;
+			markAndTraceMachineCodeOfMarkedMethods;
 			freeUntracedStackPages;
 			freeUnmarkedMachineCode.
-		 ^self].
-	 self markInactiveEphemerons ifFalse:
-		[self fireAllUnscannedEphemerons].
-	 self markAllUnscannedEphemerons]
-		repeat
+		^ self ].
+	self markInactiveEphemerons ifFalse: [ 
+		self fireAllUnscannedEphemerons ].
+	self markAllUnscannedEphemerons ] repeat
 ]
 
 { #category : #'header format' }