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]]]!