equal
deleted
inserted
replaced
62 NOTICE: layout known by runtime system and compiler - do not change |
62 NOTICE: layout known by runtime system and compiler - do not change |
63 " |
63 " |
64 ! |
64 ! |
65 |
65 |
66 version |
66 version |
67 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.21 1995-11-23 11:16:31 cg Exp $' |
67 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.22 1996-04-02 22:00:16 cg Exp $' |
68 ! ! |
68 ! ! |
69 |
69 |
70 !CompiledCode class methodsFor:'initialization'! |
70 !CompiledCode class methodsFor:'initialization'! |
71 |
71 |
72 initialize |
72 initialize |
220 |
220 |
221 %{ /* NOCONTEXT */ |
221 %{ /* NOCONTEXT */ |
222 |
222 |
223 /* made this a primitive to get define in stc.h */ |
223 /* made this a primitive to get define in stc.h */ |
224 |
224 |
225 RETURN ((__intVal(_INST(flags)) & F_DYNAMIC) ? true : false); |
225 RETURN ((__intVal(__INST(flags)) & F_DYNAMIC) ? true : false); |
226 %} |
226 %} |
227 ! |
227 ! |
228 |
228 |
229 dynamic:aBoolean |
229 dynamic:aBoolean |
230 "set/clear the flag bit stating that the machine code was created |
230 "set/clear the flag bit stating that the machine code was created |
231 dynamically and should be flushed on image-restart. |
231 dynamically and should be flushed on image-restart. |
232 Obsolete - now done in VM" |
232 Obsolete - now done in VM" |
233 |
233 |
234 %{ /* NOCONTEXT */ |
234 %{ /* NOCONTEXT */ |
235 |
235 |
236 int newFlags = _intVal(_INST(flags)); |
236 int newFlags = __intVal(__INST(flags)); |
237 |
237 |
238 /* made this a primitive to get define in stc.h */ |
238 /* made this a primitive to get define in stc.h */ |
239 if (aBoolean == true) |
239 if (aBoolean == true) |
240 newFlags |= F_DYNAMIC; |
240 newFlags |= F_DYNAMIC; |
241 else |
241 else |
242 newFlags &= ~F_DYNAMIC; |
242 newFlags &= ~F_DYNAMIC; |
243 |
243 |
244 _INST(flags) = _MKSMALLINT(newFlags); |
244 __INST(flags) = __MKSMALLINT(newFlags); |
245 %} |
245 %} |
246 ! |
246 ! |
247 |
247 |
248 literals:aLiteralArray |
248 literals:aLiteralArray |
249 "set the literal array for evaluation - DANGER ALERT" |
249 "set the literal array for evaluation - DANGER ALERT" |
256 |
256 |
257 %{ /* NOCONTEXT */ |
257 %{ /* NOCONTEXT */ |
258 |
258 |
259 /* made this a primitive to get define in stc.h */ |
259 /* made this a primitive to get define in stc.h */ |
260 |
260 |
261 RETURN ((__intVal(_INST(flags)) & F_MARKBIT) ? true : false); |
261 RETURN ((__intVal(__INST(flags)) & F_MARKBIT) ? true : false); |
262 %} |
262 %} |
263 ! |
263 ! |
264 |
264 |
265 markFlag:aBoolean |
265 markFlag:aBoolean |
266 "set/clear the mark flag bit. |
266 "set/clear the mark flag bit. |
268 for any (debugging/tracing) use. For example, the coverage test uses |
268 for any (debugging/tracing) use. For example, the coverage test uses |
269 these to mark reached methods. (inspired by a note in c.l.s)" |
269 these to mark reached methods. (inspired by a note in c.l.s)" |
270 |
270 |
271 %{ /* NOCONTEXT */ |
271 %{ /* NOCONTEXT */ |
272 |
272 |
273 int newFlags = _intVal(_INST(flags)); |
273 int newFlags = __intVal(__INST(flags)); |
274 |
274 |
275 /* made this a primitive to get define in stc.h */ |
275 /* made this a primitive to get define in stc.h */ |
276 if (aBoolean == true) |
276 if (aBoolean == true) |
277 newFlags |= F_MARKBIT; |
277 newFlags |= F_MARKBIT; |
278 else |
278 else |
279 newFlags &= ~F_MARKBIT; |
279 newFlags &= ~F_MARKBIT; |
280 |
280 |
281 _INST(flags) = _MKSMALLINT(newFlags); |
281 __INST(flags) = __MKSMALLINT(newFlags); |
282 %} |
282 %} |
283 ! ! |
283 ! ! |
284 |
284 |
285 !CompiledCode methodsFor:'queries'! |
285 !CompiledCode methodsFor:'queries'! |
286 |
286 |