[squeak-dev] SmartRefStream tweak?
Stéphane Rollandin
lecteur at zogotounga.net
Sun Jul 24 09:17:06 UTC 2022
I am in the process of porting my code to 6.0, and I found that I had to
tweak the #next method in SmartRefStream in order to load properly some
morphs that were serialized from a 5.1 image.
I had to add four calls to #rehash (see attached code).
Would that be something useful to have, or am I (again) missing something?
Stef
-------------- next part --------------
'From Squeak5.1 of 23 August 2016 [latest update: #16548] on 24 July 2022 at 11:10:23 am'!
!SmartRefStream methodsFor: '*MuO-overrides' stamp: 'spfa 7/24/2022 10:45'!
next
"Really write three objects: (version, class structure, object). But only when called from the outside. "
| version ss object |
^ topCall == nil
ifTrue:
[topCall := #marked.
version := super next.
version class == SmallInteger ifFalse: [^ version].
"version number, else just a regular object, not in our format, "
self checkCrLf.
ss := super next.
ss class == Array ifFalse: [^ ss]. "just a regular object"
(ss at: 1) = 'class structure' ifFalse: [^ ss].
structures := (ss at: 2) rehash.
superclasses := (ss size > 3 and: [(ss at: 3) = 'superclasses'])
ifTrue: [(ss at: 4) rehash] "class name -> superclass name"
ifFalse: [Dictionary new].
(self verifyStructure = 'conversion method needed') ifTrue: [^ nil].
object := super next rehash. "all the action here"
self restoreClassInstVars. "for UniClasses. version 4"
topCall := nil. "reset it"
object]
ifFalse:
[super next rehash]
! !
More information about the Squeak-dev
mailing list
|