equal
deleted
inserted
replaced
1226 %} |
1226 %} |
1227 ! ! |
1227 ! ! |
1228 |
1228 |
1229 !CompiledCode methodsFor:'private-compiler interface'! |
1229 !CompiledCode methodsFor:'private-compiler interface'! |
1230 |
1230 |
|
1231 contextMustBeReturnable:aBoolean |
|
1232 %{ /* NOCONTEXT */ |
|
1233 /* made this a primitive to get define in stc.h */ |
|
1234 if (aBoolean == true) { |
|
1235 __INST(flags) = (OBJ)( (INT)__INST(flags) | __MASKSMALLINT(F_RETURNABLE)); |
|
1236 } else { |
|
1237 __INST(flags) = (OBJ)( (INT)__INST(flags) & ~__MASKSMALLINT(F_RETURNABLE)); |
|
1238 } |
|
1239 %} |
|
1240 |
|
1241 ! |
|
1242 |
1231 flags:newFlags |
1243 flags:newFlags |
1232 "set the flags (number of method variables, stacksize). |
1244 "set the flags (number of method variables, stacksize). |
1233 WARNING: for internal use by the compiler only. |
1245 WARNING: for internal use by the compiler only. |
1234 playing around here with incorrect values |
1246 playing around here with incorrect values |
1235 may crash smalltalk badly. |
1247 may crash smalltalk badly. |
1500 ! ! |
1512 ! ! |
1501 |
1513 |
1502 !CompiledCode class methodsFor:'documentation'! |
1514 !CompiledCode class methodsFor:'documentation'! |
1503 |
1515 |
1504 version |
1516 version |
1505 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.68 1999-01-30 13:57:36 cg Exp $' |
1517 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.69 1999-08-02 11:38:32 cg Exp $' |
1506 ! ! |
1518 ! ! |
1507 CompiledCode initialize! |
1519 CompiledCode initialize! |