Skip to content

Commit

Permalink
Mutant pharo-project#484, Installing [ Replace #ifFalse: with #ifTrue…
Browse files Browse the repository at this point in the history
…: ] on method [ scavengingGCTenuringIf: ] 14 test cases.
  • Loading branch information
hogoww committed Feb 25, 2022
1 parent 748f3a8 commit 308cc7d
Showing 1 changed file with 15 additions and 6 deletions.
21 changes: 15 additions & 6 deletions smalltalksrc/VMMaker/SpurMemoryManager.class.st
Expand Up @@ -10919,14 +10919,22 @@ SpurMemoryManager >> scavengingGC [
{ #category : #'gc - scavenging' }
SpurMemoryManager >> scavengingGCTenuringIf: tenuringCriterion [
"Run the scavenger."
<inline: false>
self assert: remapBufferCount = 0.
(self asserta: scavenger eden limit - freeStart > coInterpreter interpreterAllocationReserveBytes) ifFalse:
[coInterpreter tab;
printNum: scavenger eden limit - freeStart; space;
printNum: coInterpreter interpreterAllocationReserveBytes; space;
printNum: coInterpreter interpreterAllocationReserveBytes - (scavenger eden limit - freeStart); cr].
(self asserta: scavenger eden limit - freeStart
> coInterpreter interpreterAllocationReserveBytes) ifTrue: [
coInterpreter
tab;
printNum: scavenger eden limit - freeStart;
space;
printNum: coInterpreter interpreterAllocationReserveBytes;
space;
printNum: coInterpreter interpreterAllocationReserveBytes
- (scavenger eden limit - freeStart);
cr ].
self checkMemoryMap.
self checkFreeSpace: GCModeNewSpace.
self runLeakCheckerFor: GCModeNewSpace.
Expand All @@ -10935,7 +10943,8 @@ SpurMemoryManager >> scavengingGCTenuringIf: tenuringCriterion [
preGCAction: GCModeNewSpace;
"would prefer this to be in mapInterpreterOops, but
compatibility with ObjectMemory dictates it goes here."
flushMethodCacheFrom: newSpaceStart to: newSpaceLimit.
flushMethodCacheFrom: newSpaceStart
to: newSpaceLimit.
needGCFlag := false.
gcStartUsecs := coInterpreter ioUTCMicrosecondsNow.
Expand Down

0 comments on commit 308cc7d

Please sign in to comment.