hg/stx-libtool2: comparison SnapShotImageMemory.st

equal deleted inserted replaced

-:9c579009a14b
+:dee0c393db4e
 allClassesDo:aBlock
 globalEntries do:[:eachGlobal |
 |val|
 val := eachGlobal value.
 (val notNil
 and:[(val isKindOf:ImageHeader)
 and:[val isImageBehavior]]) ifTrue:[
 aBlock value:val
 ].
 ].
 flags := classRef flags.
 ^ flags bitTest:Behavior flagSymbol
 !
 isJavaMethod
 |nm|
 nm := classRef name.
 ^ (nm = 'JavaMethod'
 or:[ nm = 'JavaMethodWithException'
 or:[ nm = 'JavaMethodWithHandler'
 or:[ nm = 'JavaNativeMethod' ]]])
 !
 isLazyMethod
 ^ classRef name = 'LazyMethod'
 !
 isMeta
 ^ false
 !
 isMethod
 |cls|
 cls := classRef.
 [cls notNil] whileTrue:[
 cls name = 'Method' ifTrue:[^ true].
 isMethodDictionary
 ^ classRef name = 'MethodDictionary'
 !
 isMethodOrLazyMethod
 classRef name = 'LazyMethod' ifTrue:[^ true].
 ^ self isMethod
 !
 isString
 ].
 self halt.
 !
 sourceStream
 |sourcePosition source aStream fileName junk who
 myClass mgr className sep dir mod package|
 self isMethod ifTrue:[
 sourcePosition := self at:(Method instVarOffsetOf:'sourcePosition').
 source := self at:(Method instVarOffsetOf:'source').
 aStream notNil ifTrue:[
 ^ aStream
 ].
 "/
 "/ nope - look in standard places
 "/ (if there is a source-code manager - otherwise, we already did that)
 "/
 mgr notNil ifTrue:[
 aStream := self localSourceStream.
 aStream notNil ifTrue:[
 aStream notNil ifTrue:[
 ^ aStream
 ].
 ]
 ]
 ].
 ^ nil
 ].
 ^ nil
 ! !
 "return the primitiveDefinition string or nil"
 ^ self getPrimitiveSpecsAt:1
 "
 Object primitiveDefinitionsString
 String primitiveDefinitionsString
 "
 !
 primitiveFunctionsString
 classFilename := self classFilename.
 package := self package.
 name := self name.
 "/
 "/ if there is no SourceCodeManager,
 "/ or TryLocalSourceFirst is true,
 "/ look in standard places first
 "/
 ((mgr := self sourceCodeManager) isNil
 or:[Class tryLocalSourceFirst == true]) ifTrue:[
 aStream := self localSourceStreamFor:source.
 ].
 aStream isNil ifTrue:[
 "/ mhmh - still no source file.
-"/ If there is a SourceCodeManager, ask it to aquire the
+"/ If there is a SourceCodeManager, ask it to acquire the
 "/ the source for my class, and return an open stream on it.
 "/ if that one does not know about the source, look in
 "/ standard places
 mgr notNil ifTrue:[
 self classFilename ~= source ifTrue:[
 aStream := mgr getSourceStreamFor:self.
 ]
 ].
 aStream notNil ifTrue:[
 (self validateSourceStream:aStream) ifFalse:[
 ('Class [info]: repositories source for `'
 , (self isMeta ifTrue:[self soleInstance name]
 ifFalse:[name])
 , ''' is invalid.') infoPrintCR.
 aStream close.
 aStream := nil
 ].
 ]
 ].
 aStream isNil ifTrue:[
 "/
 "/ hard case - there is no source file for this class
 "/ (in the source-dir-path).
 "/
 "/
 "/ look if my binary is from a dynamically loaded module,
 "/ and, if so, look in the modules directory for the
 "/ source file.
 "/
 ObjectFileLoader notNil ifTrue:[
 ObjectFileLoader loadedObjectHandlesDo:[:h |
 |f classes|
 aStream isNil ifTrue:[
 ^ superclass notNil
 and:[ superclass name = 'NameSpace' ].
 !
 isPrivate
 ^ classRef isPrivateMeta
 !
 isPrivateMeta
 thisContext isRecursive ifTrue:[^ false].
 byteSize = memory privateMetaClassByteSize ifFalse:[^ false].
 ].
 ^ self halt.
 !
 wasAutoloaded
 ^ false
 ! !
 !SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
 end

changeset 3324	dee0c393db4e
parent 3250	48b1dfb0b16f
child 3326	4ecde59f7563