Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1527.mcz
==================== Summary ====================
Name: Kernel-mt.1527 Author: mt Time: 28 September 2023, 10:21:53.11702 am UUID: d4fc65b6-ef98-b64b-af96-464763affa9d Ancestors: Kernel-mt.1526
Complements Collections-mt.1051
=============== Diff against Kernel-mt.1526 ===============
Item was changed: ----- Method: Object>>readDataFrom:size: (in category 'objects from disk') ----- readDataFrom: aDataStream size: varsOnDisk "Fill in the fields of self based on the contents of aDataStream. Return self. Read in the instance-variables written by Object>>storeDataOn:. NOTE: This method must send beginReference: before reading any objects from aDataStream that might reference it. Allow aDataStream to have fewer inst vars. See SmartRefStream." | cntInstVars cntIndexedVars |
cntInstVars := self class instSize. self class isVariable ifTrue: [cntIndexedVars := varsOnDisk - cntInstVars. cntIndexedVars < 0 ifTrue: [ self error: 'Class has changed too much. Define a convertxxx method']] ifFalse: [cntIndexedVars := 0. cntInstVars := varsOnDisk]. "OK if fewer than now"
aDataStream beginReference: self. 1 to: cntInstVars do: [:i | self instVarAt: i put: aDataStream next]. 1 to: cntIndexedVars do: [:i | self basicAt: i put: aDataStream next]. "Total number read MUST be equal to varsOnDisk!!" - self rehash. ^ self "If we ever return something other than self, fix calls on (super readDataFrom: aDataStream size: anInteger)"!
packages@lists.squeakfoundation.org