[squeak-dev] The Trunk: System-mt.1241.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Aug 25 12:20:51 UTC 2021
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1241.mcz
==================== Summary ====================
Name: System-mt.1241
Author: mt
Time: 25 August 2021, 2:20:46.973495 pm
UUID: 969fdd6d-dc9e-2b42-aa0b-fb1c8e40d63a
Ancestors: System-mt.1240
Fixes issue in space tally for SharedPool pools.
=============== Diff against System-mt.1240 ===============
Item was changed:
----- Method: SpaceTally>>spaceForPoolsOf:depth:seen: (in category 'class analysis') -----
spaceForPoolsOf: aClass depth: anInteger seen: seenObjects
| pools objects total |
pools := {aClass classPool}, aClass sharedPools.
+ objects := Array streamContents: [:stream |
+ pools do: [:pool | pool bindingsDo: [:binding | stream nextPut: binding value]]].
- objects := pools gather: [:pool | pool values].
objects isEmpty ifTrue: [^#(0 0)].
total := 0.
objects do: [:each | total := total + (self spaceForInstance: each depth: anInteger seen: seenObjects)].
^{ total. objects size }!
More information about the Squeak-dev
mailing list
|