The Trunk: System-mt.1179.mcz

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

The Trunk: System-mt.1179.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:

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

Name: System-mt.1179
Author: mt
Time: 14 October 2020, 2:07:40.555569 pm
UUID: 8a7e511d-87d7-6042-8478-87417dd33e12
Ancestors: System-mt.1178

Rename #doWithIndex: to #withIndexDo:. See

=============== Diff against System-mt.1178 ===============

Item was changed:
  ----- Method: NativeImageSegment class>>swapOutProjects (in category 'testing') -----
  swapOutProjects  "NativeImageSegment swapOutProjects"  
  "Swap out segments for all projects other than the current one."
  | spaceLeft |
  spaceLeft := Smalltalk garbageCollect.
+ Project allProjects withIndexDo:
- Project allProjects doWithIndex:
  [:p :i | | newSpaceLeft | p couldBeSwappedOut ifTrue:
  [Transcript cr; cr; nextPutAll: p name.
  (NativeImageSegment new copyFromRoots: (Array with: p) sizeHint: 0)
  extract; writeToFile: 'project' , i printString.
  newSpaceLeft := Smalltalk garbageCollect.
  Transcript cr; print: newSpaceLeft - spaceLeft; endEntry.
  spaceLeft := newSpaceLeft]].!

Item was changed:
  ----- Method: SmartRefStream>>storeInstVarsIn:from: (in category 'class changed shape') -----
  storeInstVarsIn: anObject from: dict
  "For instance variables with the same names, store them in the new instance.  Values in variable-length part also.  This is NOT the normal inst var transfer!!  See Object.readDataFrom:size:.  This is for when inst var names have changed and some additional conversion is needed.  Here we handle the unchanged vars.  "
+ (anObject class allInstVarNames) withIndexDo: [:varName :index |
- (anObject class allInstVarNames) doWithIndex: [:varName :index |
  (dict includesKey: varName) ifTrue: [
  anObject instVarAt: index put: (dict at: varName)]].
  "variable part"
  (dict includesKey: #SizeOfVariablePart) ifFalse: [^ anObject].
  1 to: (dict at: #SizeOfVariablePart) do: [:index |
  anObject basicAt: index put: (dict at: index)].
  ^ anObject!