0004819: [KernelImageOverride] ImageSegment comeFullyUpOnReload:

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

Category

Severity

Reproducibility

Date Submitted

Last Update

0004819

[Squeak] Kernel

minor

always

09-09-06 16:51

Reporter

Krivanek

View Status

public

Assigned To

Priority

normal

Resolution

open

Status

new

Product Version

3.10

Summary

0004819: [KernelImageOverride] ImageSegment comeFullyUpOnReload:

Description

ImageSegment >> comeFullyUpOnReload:

original:

comeFullyUpOnReload: smartRefStream
    "fix up the objects in the segment that changed size. An
object in the segment is the wrong size for the modern version of the
class. Construct a fake class that is the old size. Replace the
modern class with the old one in outPointers. Load the segment.
Traverse the instances, making new instances by copying fields, and
running conversion messages. Keep the new instances. Bulk forward
become the old to the new. Let go of the fake objects and classes.
    After the install (below), arrayOfRoots is filled in.
Globalize new classes. Caller may want to do some special install on
certain objects in arrayOfRoots.
    May want to write the segment out to disk in its new form."

    | mapFakeClassesToReal ccFixups receiverClasses
rootsToUnhiberhate myProject existing |

    RecentlyRenamedClasses _ nil. "in case old data
hanging around"
    mapFakeClassesToReal _ smartRefStream reshapedClassesIn: outPointers.
        "Dictionary of just the ones that change shape.
Substitute them in outPointers."
    ccFixups _ self remapCompactClasses: mapFakeClassesToReal
                refStrm: smartRefStream.
    ccFixups ifFalse: [^ self error: 'A class in the file is not
compatible'].
    endMarker _ segment nextObject. "for enumeration of objects"
    endMarker == 0 ifTrue: [endMarker _ 'End' clone].
    self fixCapitalizationOfSymbols.
    arrayOfRoots _ self loadSegmentFrom: segment outPointers: outPointers.
        "Can't use install. Not ready for rehashSets"
    mapFakeClassesToReal isEmpty ifFalse: [
        self reshapeClasses: mapFakeClassesToReal refStream:
smartRefStream
    ].
    "When a Project is stored, arrayOfRoots has all objects in
the project, except those in outPointers"
    arrayOfRoots do: [:importedObject |
        ((importedObject isMemberOf: WideString) or: [importedObject isMemberOf: WideSymbol]) ifTrue: [
            importedObject mutateJISX0208StringToUnicode.
            importedObject class = WideSymbol ifTrue: [
                "self halt."
                Symbol hasInterned:
importedObject asString ifTrue: [:multiSymbol |
                    multiSymbol == importedObject
ifFalse: [
                        importedObject
becomeForward: multiSymbol.
                    ].
                ].
            ].
        ].
        (importedObject isKindOf: TTCFontSet) ifTrue: [
            existing _ TTCFontSet familyName:
importedObject familyName
                        pointSize:
importedObject pointSize. "supplies default"
            existing == importedObject ifFalse:
[importedObject becomeForward: existing].
        ].
    ].
    "Smalltalk garbageCollect. MultiSymbol rehash. These take
time and are not urgent, so don't to them. In the normal case, no
bad MultiSymbols will be found."

    receiverClasses _ self restoreEndianness. "rehash sets"
    smartRefStream checkFatalReshape: receiverClasses.

    "Classes in this segment."
    arrayOfRoots do: [:importedObject |
        importedObject class class == Metaclass ifTrue: [self
declare: importedObject]].
    arrayOfRoots do: [:importedObject |
        (importedObject isKindOf: CompiledMethod) ifTrue: [
            importedObject sourcePointer > 0 ifTrue:
[importedObject zapSourcePointer]].
        (importedObject isKindOf: Project) ifTrue: [
            myProject _ importedObject.
            importedObject ensureChangeSetNameUnique.
            Project addingProject: importedObject.
            importedObject restoreReferences.
            self dependentsRestore: importedObject.
            ScriptEditorMorph writingUniversalTiles:
                ((importedObject projectPreferenceAt:
#universalTiles) ifNil: [false])]].

    rootsToUnhiberhate _ arrayOfRoots select: [:importedObject |
        importedObject respondsTo: #unhibernate
    "ScriptEditors and ViewerFlapTabs"
    ].
    myProject ifNotNil: [
        myProject world setProperty: #thingsToUnhibernate
toValue: rootsToUnhiberhate
    ].

    mapFakeClassesToReal isEmpty ifFalse: [
        mapFakeClassesToReal keys do: [:aFake |
            aFake indexIfCompact > 0 ifTrue: [aFake
becomeUncompact].
            aFake removeFromSystemUnlogged].
        SystemOrganization removeEmptyCategories].
    "^ self"

override:

comeFullyUpOnReload: smartRefStream
    "fix up the objects in the segment that changed size. An
object in the segment is the wrong size for the modern version of the
class. Construct a fake class that is the old size. Replace the
modern class with the old one in outPointers. Load the segment.
Traverse the instances, making new instances by copying fields, and
running conversion messages. Keep the new instances. Bulk forward
become the old to the new. Let go of the fake objects and classes.
    After the install (below), arrayOfRoots is filled in.
Globalize new classes. Caller may want to do some special install on
certain objects in arrayOfRoots.
    May want to write the segment out to disk in its new form."

    | mapFakeClassesToReal ccFixups receiverClasses
|

    RecentlyRenamedClasses := nil. "in case old data
hanging around"
    mapFakeClassesToReal := smartRefStream reshapedClassesIn: outPointers.
        "Dictionary of just the ones that change shape.
Substitute them in outPointers."
    ccFixups := self remapCompactClasses: mapFakeClassesToReal
                refStrm: smartRefStream.
    ccFixups ifFalse: [^ self error: 'A class in the file is not
compatible'].
    endMarker := segment nextObject. "for enumeration of objects"
    endMarker == 0 ifTrue: [endMarker := 'End' clone].
    self fixCapitalizationOfSymbols.
    arrayOfRoots := self loadSegmentFrom: segment outPointers: outPointers.
        "Can't use install. Not ready for rehashSets"
    mapFakeClassesToReal isEmpty ifFalse: [
        self reshapeClasses: mapFakeClassesToReal refStream:
smartRefStream
    ].
    "When a Project is stored, arrayOfRoots has all objects in
the project, except those in outPointers"
    arrayOfRoots do: [:importedObject |
        ((importedObject isMemberOf: WideString) or: [importedObject isMemberOf: WideSymbol]) ifTrue: [
            importedObject mutateJISX0208StringToUnicode.
            importedObject class = WideSymbol ifTrue: [
                "self halt."
                Symbol hasInterned:
importedObject asString ifTrue: [:multiSymbol |
                    multiSymbol == importedObject
ifFalse: [
                        importedObject
becomeForward: multiSymbol.
                    ].
                ].
            ].
        ].
    ].
    "Smalltalk garbageCollect. MultiSymbol rehash. These take
time and are not urgent, so don't to them. In the normal case, no
bad MultiSymbols will be found."

    receiverClasses := self restoreEndianness. "rehash sets"
    smartRefStream checkFatalReshape: receiverClasses.

    "Classes in this segment."
    arrayOfRoots do: [:importedObject |
        importedObject class class == Metaclass ifTrue: [self
declare: importedObject]].
    arrayOfRoots do: [:importedObject |
        (importedObject isKindOf: CompiledMethod) ifTrue: [
            importedObject sourcePointer > 0 ifTrue:
[importedObject zapSourcePointer]].
        ].

    mapFakeClassesToReal isEmpty ifFalse: [
        mapFakeClassesToReal keys do: [:aFake |
            aFake indexIfCompact > 0 ifTrue: [aFake
becomeUncompact].
            aFake removeFromSystemUnlogged].
        SystemOrganization removeEmptyCategories].
    "^ self"

Project dependent code removed

Additional Information

Attached Files

Relationships

There are no notes attached to this issue.

Issue History
Date Modified	Username	Field	Change
09-09-06 16:51	Krivanek	New Issue

Mantis 1.0.8[^]

27 total queries executed.
24 unique queries executed.