SnapShotImageMemory.st
changeset 1422 948a90b76e72
parent 1420 9a649c1bb8cf
child 1423 5bb61f51152d
equal deleted inserted replaced
1421:a79002bd96bf 1422:948a90b76e72
     1 "{ Package: 'cg:private' }"
     1 "{ Package: 'stx:libtool' }"
     2 
     2 
     3 Object subclass:#SnapShotImageMemory
     3 Object subclass:#SnapShotImageMemory
     4 	instanceVariableNames:'image stream msb ptrSize intSize intTag spaceInfos symbolEntries
     4 	instanceVariableNames:'image stream msb ptrSize intSize intTag spaceInfos symbolEntries
     5 		globalEntries addrToObjectMapping'
     5 		globalEntries addrToObjectMapping'
     6 	classVariableNames:''
     6 	classVariableNames:''
    20 	classVariableNames:''
    20 	classVariableNames:''
    21 	poolDictionaries:''
    21 	poolDictionaries:''
    22 	privateIn:SnapShotImageMemory
    22 	privateIn:SnapShotImageMemory
    23 !
    23 !
    24 
    24 
    25 Object subclass:#SpaceInfo
       
    26 	instanceVariableNames:'start end size flags imageBase'
       
    27 	classVariableNames:''
       
    28 	poolDictionaries:''
       
    29 	privateIn:SnapShotImageMemory
       
    30 !
       
    31 
       
    32 SnapShotImageMemory::ImageHeader variableSubclass:#ImageObject
    25 SnapShotImageMemory::ImageHeader variableSubclass:#ImageObject
    33 	instanceVariableNames:'cachedContents'
    26 	instanceVariableNames:'cachedContents'
    34 	classVariableNames:''
    27 	classVariableNames:''
    35 	poolDictionaries:''
    28 	poolDictionaries:''
    36 	privateIn:SnapShotImageMemory
    29 	privateIn:SnapShotImageMemory
    37 !
    30 !
    38 
    31 
    39 SnapShotImageMemory::ImageObject variableSubclass:#ImageClassObject
    32 SnapShotImageMemory::ImageObject variableSubclass:#ImageClassObject
    40 	instanceVariableNames:''
    33 	instanceVariableNames:''
       
    34 	classVariableNames:''
       
    35 	poolDictionaries:''
       
    36 	privateIn:SnapShotImageMemory
       
    37 !
       
    38 
       
    39 Object subclass:#SpaceInfo
       
    40 	instanceVariableNames:'start end size flags imageBase'
    41 	classVariableNames:''
    41 	classVariableNames:''
    42 	poolDictionaries:''
    42 	poolDictionaries:''
    43 	privateIn:SnapShotImageMemory
    43 	privateIn:SnapShotImageMemory
    44 !
    44 !
    45 
    45 
   811 
   811 
   812 size
   812 size
   813     ^ byteSize
   813     ^ byteSize
   814 ! !
   814 ! !
   815 
   815 
   816 !SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
       
   817 
       
   818 end
       
   819     "return the value of the instance variable 'end' (automatically generated)"
       
   820 
       
   821     ^ end!
       
   822 
       
   823 end:something
       
   824     "set the value of the instance variable 'end' (automatically generated)"
       
   825 
       
   826     end := something.!
       
   827 
       
   828 flags
       
   829     "return the value of the instance variable 'flags' (automatically generated)"
       
   830 
       
   831     ^ flags!
       
   832 
       
   833 flags:something
       
   834     "set the value of the instance variable 'flags' (automatically generated)"
       
   835 
       
   836     flags := something.!
       
   837 
       
   838 imageBase
       
   839     "return the value of the instance variable 'imageBase' (automatically generated)"
       
   840 
       
   841     ^ imageBase!
       
   842 
       
   843 imageBase:something
       
   844     "set the value of the instance variable 'imageBase' (automatically generated)"
       
   845 
       
   846     imageBase := something.!
       
   847 
       
   848 size
       
   849     "return the value of the instance variable 'size' (automatically generated)"
       
   850 
       
   851     ^ size!
       
   852 
       
   853 size:something
       
   854     "set the value of the instance variable 'size' (automatically generated)"
       
   855 
       
   856     size := something.!
       
   857 
       
   858 start
       
   859     "return the value of the instance variable 'start' (automatically generated)"
       
   860 
       
   861     ^ start!
       
   862 
       
   863 start:something
       
   864     "set the value of the instance variable 'start' (automatically generated)"
       
   865 
       
   866     start := something.! !
       
   867 
       
   868 !SnapShotImageMemory::ImageObject methodsFor:'method protocol'!
   816 !SnapShotImageMemory::ImageObject methodsFor:'method protocol'!
   869 
   817 
   870 byteCode
   818 byteCode
   871     |byteCodeSlotOffset byteCodePtr byteCodeRef byteCode|
   819     |byteCodeSlotOffset byteCodePtr byteCodeRef byteCode|
   872 
   820 
  3573 
  3521 
  3574 isVariable
  3522 isVariable
  3575     ^ (self flags bitAnd:Behavior maskIndexType) ~= 0.
  3523     ^ (self flags bitAnd:Behavior maskIndexType) ~= 0.
  3576 !
  3524 !
  3577 
  3525 
       
  3526 isVisualStartable
       
  3527     ^ false!
       
  3528 
  3578 isWords
  3529 isWords
  3579     ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagWords.
  3530     ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagWords.
  3580 !
  3531 !
  3581 
  3532 
  3582 nameSpace
  3533 nameSpace
  3625 
  3576 
  3626 wasAutoloaded
  3577 wasAutoloaded
  3627     ^ false 
  3578     ^ false 
  3628 ! !
  3579 ! !
  3629 
  3580 
       
  3581 !SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
       
  3582 
       
  3583 end
       
  3584     "return the value of the instance variable 'end' (automatically generated)"
       
  3585 
       
  3586     ^ end!
       
  3587 
       
  3588 end:something
       
  3589     "set the value of the instance variable 'end' (automatically generated)"
       
  3590 
       
  3591     end := something.!
       
  3592 
       
  3593 flags
       
  3594     "return the value of the instance variable 'flags' (automatically generated)"
       
  3595 
       
  3596     ^ flags!
       
  3597 
       
  3598 flags:something
       
  3599     "set the value of the instance variable 'flags' (automatically generated)"
       
  3600 
       
  3601     flags := something.!
       
  3602 
       
  3603 imageBase
       
  3604     "return the value of the instance variable 'imageBase' (automatically generated)"
       
  3605 
       
  3606     ^ imageBase!
       
  3607 
       
  3608 imageBase:something
       
  3609     "set the value of the instance variable 'imageBase' (automatically generated)"
       
  3610 
       
  3611     imageBase := something.!
       
  3612 
       
  3613 size
       
  3614     "return the value of the instance variable 'size' (automatically generated)"
       
  3615 
       
  3616     ^ size!
       
  3617 
       
  3618 size:something
       
  3619     "set the value of the instance variable 'size' (automatically generated)"
       
  3620 
       
  3621     size := something.!
       
  3622 
       
  3623 start
       
  3624     "return the value of the instance variable 'start' (automatically generated)"
       
  3625 
       
  3626     ^ start!
       
  3627 
       
  3628 start:something
       
  3629     "set the value of the instance variable 'start' (automatically generated)"
       
  3630 
       
  3631     start := something.! !
       
  3632 
  3630 !SnapShotImageMemory class methodsFor:'documentation'!
  3633 !SnapShotImageMemory class methodsFor:'documentation'!
  3631 
  3634 
  3632 version
  3635 version
  3633     ^ '$Header$'
  3636     ^ '$Header$'
  3634 ! !
  3637 ! !