equal
deleted
inserted
replaced
1 "{ Package: 'stx:libtool2' }" |
1 "{ Package: 'stx:libtool2' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#SnapShotImageMemory |
5 Object subclass:#SnapShotImageMemory |
4 instanceVariableNames:'image stream msb ptrSize intSize intTag spaceInfos symbolEntries |
6 instanceVariableNames:'image stream msb ptrSize intSize intTag spaceInfos symbolEntries |
5 globalEntries addrToObjectMapping fetchINT hdrSize' |
7 globalEntries addrToObjectMapping fetchINT hdrSize' |
6 classVariableNames:'' |
8 classVariableNames:'' |
3676 "{ Pragma: +optSpace }" |
3678 "{ Pragma: +optSpace }" |
3677 |
3679 |
3678 "return my revision string; that one is extracted from the |
3680 "return my revision string; that one is extracted from the |
3679 classes #version method. Either this is a method returning that string, |
3681 classes #version method. Either this is a method returning that string, |
3680 or its a comment-only method and the comment defines the version. |
3682 or its a comment-only method and the comment defines the version. |
3681 If the source is not accessable or no such method exists, |
3683 If the source is not accessible or no such method exists, |
3682 nil is returned." |
3684 nil is returned." |
3683 |
3685 |
3684 |owner cls meta m src val| |
3686 |owner cls meta m src val| |
3685 |
3687 |
3686 (owner := self owningClass) notNil ifTrue:[^ owner revisionString]. |
3688 (owner := self owningClass) notNil ifTrue:[^ owner revisionString]. |