Mutant pharo-project#564, Installing [ Creates an overflow as per C semantics. VM mutation. ] on method [ attemptToShrink ] 10 test cases.

Author: hogoww

smalltalksrc/VMMaker/SpurMemoryManager.class.st

@@ -2674,13 +2674,17 @@ 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 + (1152921504606846976 + 1) ]
 ]
 
 { #category : #accessing }