version 1.126, 2002/12/31 14:50:53
|
version 1.127, 2002/12/31 15:05:58
|
Line 935 variable tail-nextp2 \ xt to execute for
|
Line 935 variable tail-nextp2 \ xt to execute for
|
\ cr ; |
\ cr ; |
|
|
: output-label ( -- ) |
: output-label ( -- ) |
." INST_ADDR(" prim prim-c-name 2@ type ." )" cr ; |
." INST_ADDR(" prim prim-c-name 2@ type ." )," cr ; |
|
|
: output-alias ( -- ) |
: output-alias ( -- ) |
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ; |
( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ; |