--- a/SnapShotImageMemory.st Thu May 17 13:09:50 2001 +0200
+++ b/SnapShotImageMemory.st Mon Jun 25 18:50:55 2001 +0200
@@ -891,6 +891,21 @@
self halt.
!
+flags
+ |flagsSlotOffset flagsPtr flags|
+
+ self isMethod ifTrue:[
+ flagsSlotOffset := Method instVarOffsetOf:'flags'.
+ ].
+ flagsSlotOffset notNil ifTrue:[
+ flagsPtr := self at:flagsSlotOffset.
+ flags := memory fetchObjectAt:flagsPtr.
+ ^ flags
+ ].
+
+ self halt.
+!
+
hasCode
^ false
!
@@ -995,18 +1010,10 @@
!
numArgs
- |flagsSlotOffset flagsPtr flags|
-
- self isMethod ifTrue:[
- flagsSlotOffset := Method instVarOffsetOf:'flags'.
- ].
- flagsSlotOffset notNil ifTrue:[
- flagsPtr := self at:flagsSlotOffset.
- flags := memory fetchObjectAt:flagsPtr.
- ^ (flags bitAnd:(Method numArgsMaskInFlags)) bitShift:(Method numArgsShiftInFlags negated)
- ].
-
- self halt.
+ |flags|
+
+ flags := self flags.
+ ^ (flags bitAnd:(Method numArgsMaskInFlags)) bitShift:(Method numArgsShiftInFlags negated)
!
package