VM Maker: Cog-eem.435.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

VM Maker: Cog-eem.435.mcz

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