--- a/SnapShotImageMemory.st Mon Feb 18 17:21:04 2002 +0100
+++ b/SnapShotImageMemory.st Mon Feb 18 18:37:16 2002 +0100
@@ -30,7 +30,7 @@
!
SnapShotImageMemory::ImageObject variableSubclass:#ImageMethodObject
- instanceVariableNames:'cachedPackage'
+ instanceVariableNames:'cachedPackage cachedMClass cachedSelector'
classVariableNames:''
poolDictionaries:''
privateIn:SnapShotImageMemory
@@ -1355,6 +1355,13 @@
^ nil
!
+mclass
+ cachedMClass isNil ifTrue:[
+ cachedMClass := super mclass.
+ ].
+ ^ cachedMClass
+!
+
package
|packageSlotOffset packagePtr packageRef package|
@@ -1377,6 +1384,13 @@
^ cachedPackage
!
+selector
+ cachedSelector isNil ifTrue:[
+ self mclass methodDictionary keysAndValuesDo:[:sel :mthd | mthd == self ifTrue:[cachedSelector := sel]].
+ ].
+ ^ cachedSelector
+!
+
source
|sourcePosition sourcePositionPtr sourcePtr sourceRef source aStream junk|