--- a/CompiledCode.st	Tue Oct 24 19:26:05 2000 +0200
+++ b/CompiledCode.st	Tue Oct 24 20:24:56 2000 +0200
@@ -175,7 +175,55 @@
 %{  /* NOCONTEXT */
     RETURN (__MKSMALLINT(MAX_METHOD_ARGS));
 %}
-! !
+!
+
+numArgsMaskInFlags
+
+%{  /* NOCONTEXT */
+    /* made this a primitive to get define in stc.h */
+
+    RETURN (__MKSMALLINT(F_NARGS));
+%}.
+
+    "
+     self numArgsMaskInFlags
+    "!
+
+numArgsShiftInFlags
+
+%{  /* NOCONTEXT */
+    /* made this a primitive to get define in stc.h */
+
+    RETURN (__MKSMALLINT(F_NARGSHIFT));
+%}.
+
+    "
+     self numArgsShiftInFlags
+    "!
+
+numVarsMaskInFlags
+
+%{  /* NOCONTEXT */
+    /* made this a primitive to get define in stc.h */
+
+    RETURN (__MKSMALLINT(F_NVARS));
+%}.
+
+    "
+     self numVarsMaskInFlags
+    "!
+
+numVarsShiftInFlags
+
+%{  /* NOCONTEXT */
+    /* made this a primitive to get define in stc.h */
+
+    RETURN (__MKSMALLINT(F_NVARSHIFT));
+%}.
+
+    "
+     self numVarsShiftInFlags
+    "! !
 
 !CompiledCode methodsFor:'Compatibility - ST80'!
 
@@ -1578,6 +1626,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.81 2000-08-22 13:47:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.82 2000-10-24 18:24:56 cg Exp $'
 ! !
 CompiledCode initialize!