[Vm-dev] VM Maker: Cog-eem.435.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jan 26 02:53:56 UTC 2021


Eliot Miranda uploaded a new version of Cog to project VM Maker:
http://source.squeak.org/VMMaker/Cog-eem.435.mcz

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

Name: Cog-eem.435
Author: eem
Time: 25 January 2021, 6:53:54.410949 pm
UUID: d02b8a08-b3b8-40f2-afa7-992cd048c258
Ancestors: Cog-eem.434

Fix an edit slip in cloneObjects.  Thanks Tim!!

=============== Diff against Cog-eem.434 ===============

Item was changed:
  ----- Method: Spur32BitPreen>>cloneObjects (in category 'bootstrap image') -----
  cloneObjects
  	"Clone all normal objects.  Of hidden objects only clone the freeLists object and
  	 the classTableRoot and class table pages. In particular, dont clone objStacks.
  	 The refs to the objStacks are nilled out in fillInHeap."
  	| i freeListsObject |
  	i := 0.
  	freeListsObject := oldHeap freeListsObject.
  	oldHeap allOldSpaceObjectsDo:
  		[:obj32|
  		(i := i + 1) >= 100000 ifTrue:
  			[Transcript nextPut: $:; flush. i := 0].
  		 obj32 = freeListsObject
  			ifTrue:
  				[self cloneFreeLists: obj32]
  			ifFalse:
+ 				[(self shouldClone: obj32) ifTrue:
- 				[(self shouldcloneObject: obj32) ifTrue:
  					[self cloneObject: obj32]]]!

Item was changed:
  ----- Method: SpurMtoNBitImageConverter>>cloneObjects (in category 'bootstrap image') -----
  cloneObjects
  	"Clone all normal objects.  Of hidden objects only clone the freeLists object and
  	 the classTableRoot and class table pages. In particular, dont clone objStacks.
  	 The refs to the objStacks are nilled out in fillInHeap."
  	| i freeListsObject |
  	i := 0.
  	freeListsObject := sourceHeap freeListsObject.
  	sourceHeap allOldSpaceObjectsDo:
  		[:sourceObj|
  		(i := i + 1) >= 100000 ifTrue:
  			[Transcript nextPut: $:; flush. i := 0].
  		 sourceObj = freeListsObject
  			ifTrue:
  				[self cloneFreeLists: sourceObj]
  			ifFalse:
+ 				[(self shouldClone: sourceObj) ifTrue:
- 				[(self shouldcloneObject: sourceObj) ifTrue:
  					[self cloneObject: sourceObj]]]!



More information about the Vm-dev mailing list