Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1179.mcz==================== 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
http://forum.world.st/The-Inbox-60Deprecated-ct-80-mcz-td5120706.html=============== 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!
Locked
