Mutant pharo-project#578, Installing [ Replace #and: with #or: ] on m…

…ethod [ attemptToShrink ] 10 test cases.
hogoww · Feb 25, 2022 · a2e3d42 · a2e3d42
1 parent 7ee3e83
commit a2e3d42
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 or: [ 
+			 segmentManager shrinkObjectMemory:
+				 (totalFreeOldSpace - growHeadroom max: growHeadroom) ] ]) 
+		ifTrue: [ statShrinkMemory := statShrinkMemory + 1 ]
 ]
 
 { #category : #accessing }