[Vm-dev] VM Maker: VMMaker.oscog.seperateMarking-WoC.3249.mcz

[commits at source.squeak.org]

Tom Braun uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog.seperateMarking-WoC.3249.mcz

==================== Summary ====================

Name: VMMaker.oscog.seperateMarking-WoC.3249
Author: WoC
Time: 9 August 2022, 8:36:31.924904 pm
UUID: 36024052-a51b-4749-b14e-6b78e8e5b4a1
Ancestors: VMMaker.oscog.seperateMarking-WoC.3248

kill all the difficult slang problems

=============== Diff against VMMaker.oscog.seperateMarking-WoC.3248 ===============

Item was changed:
  ----- Method: SpurIncrementalGarbageCollector class>>classesForTranslation (in category 'as yet unclassified') -----
  classesForTranslation
  
+ 	^ { SpurGarbageCollector . self . SpurGenerationScavenger . SpurMarker . SpurIncrementalMarker . SpurIncrementalSweeper . SpurIncrementalCompactor . SpurIncrementalSweepAndCompact }!
- 	^ { SpurGarbageCollector . self . SpurGenerationScavenger . SpurIncrementalMarker . SpurIncrementalSweeper . SpurIncrementalCompactor . SpurIncrementalSweepAndCompact }!

Item was changed:
  ----- Method: SpurIncrementalMarker>>incrementalMarkObjects (in category 'marking - incremental') -----
  incrementalMarkObjects
  	"this method is to be run directly after a scavenge -> we can assume there are ony objects in the now past survivor space"
  
  	<inline: #never> "for profiling"
  	
  	"manager runLeakCheckerFor: GCModeIncremental."
  	
  	self initializeForNewMarkingPassIfNecessary.
  
+ 	[ | continueMarking |
+ 	(manager isEmptyObjStack: manager markStack)
- 	[(manager isEmptyObjStack: manager markStack)
  		ifTrue: [self pushAllRootsOnMarkStack.
  			" manager sizeOfObjStack: manager markStack.
  			did we finish marking?"
  			(manager isEmptyObjStack: manager markStack)
  				ifTrue: [self finishMarking.
  					^ true]].
  	
  	
+ 	"due to a slang limitations we have to assign the result into variable"
+ 	continueMarking := self incrementalMark.
+ 	continueMarking] whileTrue.
- 	self incrementalMark] whileTrue.
  
  	^ false
  	!

Item was changed:
  ----- Method: SpurMemoryManager>>ephemeronStack (in category 'accessing') -----
  ephemeronStack
  	
+ 	<cmacro: '() GIV(ephemeronStack)'>
- 	<doNotGenerate>
  	^ ephemeronStack!

Item was changed:
  ----- Method: SpurMemoryManager>>totalFreeOldSpace (in category 'debug support') -----
  totalFreeOldSpace
+ 	
+ 	<cmacro: '() GIV(totalFreeOldSpace)'>
- 	<doNotGenerate>
  	^ totalFreeOldSpace!