Mutant pharo-project#565, Installing [ Replace #+ with #- ] on method…

… [ attemptToShrink ] 10 test cases.
hogoww · Feb 25, 2022 · 9f9eeba · 9f9eeba
1 parent 7f651d6
commit 9f9eeba
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -2674,13 +2674,16 @@ SpurMemoryManager >> atLeastClassIndexHalfHeader: obj [
 
 { #category : #'growing/shrinking memory' }
 SpurMemoryManager >> attemptToShrink [
+
 	"Attempt to shrink memory after successfully reclaiming lots of memory.
 	 If there's enough memory to shrink then be sure to attept to shrink by
 	 at least growHeaqdroom because segments are typically of that size."
-	(totalFreeOldSpace > shrinkThreshold
-	 and: [totalFreeOldSpace > growHeadroom
-	 and: [segmentManager shrinkObjectMemory: (totalFreeOldSpace - growHeadroom max: growHeadroom)]]) ifTrue:
-		[statShrinkMemory := statShrinkMemory + 1]
+
+	(totalFreeOldSpace > shrinkThreshold and: [ 
+		 totalFreeOldSpace > growHeadroom and: [ 
+			 segmentManager shrinkObjectMemory:
+				 (totalFreeOldSpace - growHeadroom max: growHeadroom) ] ]) 
+		ifTrue: [ statShrinkMemory := statShrinkMemory - 1 ]
 ]
 
 { #category : #accessing }