# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 993487855 -7200
# Node ID b726d8a4b8015744acad9ea9dfa6e8cd9009f17d
# Parent  94fcd912ef881a080ce1bab81d57bbf4f5689db3
checkin from browser

diff -r 94fcd912ef88 -r b726d8a4b801 SnapShotImageMemory.st
--- 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