--- a/CompCode.st	Mon Aug 02 12:17:22 1999 +0200
+++ b/CompCode.st	Mon Aug 02 13:38:32 1999 +0200
@@ -1228,6 +1228,18 @@
 
 !CompiledCode methodsFor:'private-compiler interface'!
 
+contextMustBeReturnable:aBoolean
+%{  /* NOCONTEXT */
+    /* made this a primitive to get define in stc.h */
+    if (aBoolean == true) {
+        __INST(flags) = (OBJ)( (INT)__INST(flags) | __MASKSMALLINT(F_RETURNABLE));
+    } else {
+        __INST(flags) = (OBJ)( (INT)__INST(flags) & ~__MASKSMALLINT(F_RETURNABLE));
+    }
+%}
+
+!
+
 flags:newFlags
     "set the flags (number of method variables, stacksize).
      WARNING: for internal use by the compiler only.
@@ -1502,6 +1514,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.68 1999-01-30 13:57:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.69 1999-08-02 11:38:32 cg Exp $'
 ! !
 CompiledCode initialize!

--- a/CompiledCode.st	Mon Aug 02 12:17:22 1999 +0200
+++ b/CompiledCode.st	Mon Aug 02 13:38:32 1999 +0200
@@ -1228,6 +1228,18 @@
 
 !CompiledCode methodsFor:'private-compiler interface'!
 
+contextMustBeReturnable:aBoolean
+%{  /* NOCONTEXT */
+    /* made this a primitive to get define in stc.h */
+    if (aBoolean == true) {
+        __INST(flags) = (OBJ)( (INT)__INST(flags) | __MASKSMALLINT(F_RETURNABLE));
+    } else {
+        __INST(flags) = (OBJ)( (INT)__INST(flags) & ~__MASKSMALLINT(F_RETURNABLE));
+    }
+%}
+
+!
+
 flags:newFlags
     "set the flags (number of method variables, stacksize).
      WARNING: for internal use by the compiler only.
@@ -1502,6 +1514,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.68 1999-01-30 13:57:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.69 1999-08-02 11:38:32 cg Exp $'
 ! !
 CompiledCode initialize!