version 1.104, 2003/05/04 08:55:32
|
version 1.105, 2003/05/08 08:49:24
|
Line 846 void finish_code(void)
|
Line 846 void finish_code(void)
|
flush_to_here(); |
flush_to_here(); |
} |
} |
|
|
void compile_prim1(Cell *start) |
/* compile *start into a dynamic superinstruction, updating *start */ |
|
void compile_prim_dyn(Cell *start) |
{ |
{ |
#if defined(DOUBLY_INDIRECT) |
#if defined(DOUBLY_INDIRECT) |
Label prim=(Label)*start; |
Label prim=(Label)*start; |
Line 944 void compile_prim1(Cell *start)
|
Line 945 void compile_prim1(Cell *start)
|
#endif /* !defined(DOUBLY_INDIRECT) */ |
#endif /* !defined(DOUBLY_INDIRECT) */ |
} |
} |
|
|
Label compile_prim(Label prim) |
/* compile *start, possibly rewriting it into a static and/or dynamic |
|
superinstruction */ |
|
void compile_prim1(Cell *start) |
{ |
{ |
Cell x=(Cell)prim; |
compile_prim_dyn(start); |
assert(0); |
|
compile_prim1(&x); |
|
return (Label)x; |
|
} |
} |
|
|
#if defined(PRINT_SUPER_LENGTHS) && !defined(NO_DYNAMIC) |
#if defined(PRINT_SUPER_LENGTHS) && !defined(NO_DYNAMIC) |