SnapShotImageMemory.st
changeset 3250 48b1dfb0b16f
parent 3091 4ec02687f35f
child 3324 dee0c393db4e
equal deleted inserted replaced
3249:a322cc9c9193 3250:48b1dfb0b16f
     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].