--- a/SnapShotImageMemory.st Wed Oct 25 15:41:47 2000 +0200
+++ b/SnapShotImageMemory.st Wed Oct 25 17:56:38 2000 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'cg:private' }"
+"{ Package: 'stx:libtool' }"
Object subclass:#SnapShotImageMemory
instanceVariableNames:'image stream msb ptrSize intSize intTag spaceInfos symbolEntries
@@ -22,13 +22,6 @@
privateIn:SnapShotImageMemory
!
-Object subclass:#SpaceInfo
- instanceVariableNames:'start end size flags imageBase'
- classVariableNames:''
- poolDictionaries:''
- privateIn:SnapShotImageMemory
-!
-
SnapShotImageMemory::ImageHeader variableSubclass:#ImageObject
instanceVariableNames:'cachedContents'
classVariableNames:''
@@ -43,6 +36,13 @@
privateIn:SnapShotImageMemory
!
+Object subclass:#SpaceInfo
+ instanceVariableNames:'start end size flags imageBase'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:SnapShotImageMemory
+!
+
!SnapShotImageMemory class methodsFor:'instance creation'!
@@ -813,58 +813,6 @@
^ byteSize
! !
-!SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
-
-end
- "return the value of the instance variable 'end' (automatically generated)"
-
- ^ end!
-
-end:something
- "set the value of the instance variable 'end' (automatically generated)"
-
- end := something.!
-
-flags
- "return the value of the instance variable 'flags' (automatically generated)"
-
- ^ flags!
-
-flags:something
- "set the value of the instance variable 'flags' (automatically generated)"
-
- flags := something.!
-
-imageBase
- "return the value of the instance variable 'imageBase' (automatically generated)"
-
- ^ imageBase!
-
-imageBase:something
- "set the value of the instance variable 'imageBase' (automatically generated)"
-
- imageBase := something.!
-
-size
- "return the value of the instance variable 'size' (automatically generated)"
-
- ^ size!
-
-size:something
- "set the value of the instance variable 'size' (automatically generated)"
-
- size := something.!
-
-start
- "return the value of the instance variable 'start' (automatically generated)"
-
- ^ start!
-
-start:something
- "set the value of the instance variable 'start' (automatically generated)"
-
- start := something.! !
-
!SnapShotImageMemory::ImageObject methodsFor:'method protocol'!
byteCode
@@ -3575,6 +3523,9 @@
^ (self flags bitAnd:Behavior maskIndexType) ~= 0.
!
+isVisualStartable
+ ^ false!
+
isWords
^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagWords.
!
@@ -3627,6 +3578,58 @@
^ false
! !
+!SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
+
+end
+ "return the value of the instance variable 'end' (automatically generated)"
+
+ ^ end!
+
+end:something
+ "set the value of the instance variable 'end' (automatically generated)"
+
+ end := something.!
+
+flags
+ "return the value of the instance variable 'flags' (automatically generated)"
+
+ ^ flags!
+
+flags:something
+ "set the value of the instance variable 'flags' (automatically generated)"
+
+ flags := something.!
+
+imageBase
+ "return the value of the instance variable 'imageBase' (automatically generated)"
+
+ ^ imageBase!
+
+imageBase:something
+ "set the value of the instance variable 'imageBase' (automatically generated)"
+
+ imageBase := something.!
+
+size
+ "return the value of the instance variable 'size' (automatically generated)"
+
+ ^ size!
+
+size:something
+ "set the value of the instance variable 'size' (automatically generated)"
+
+ size := something.!
+
+start
+ "return the value of the instance variable 'start' (automatically generated)"
+
+ ^ start!
+
+start:something
+ "set the value of the instance variable 'start' (automatically generated)"
+
+ start := something.! !
+
!SnapShotImageMemory class methodsFor:'documentation'!
version