version 1.123, 2002/12/27 15:51:28
|
version 1.124, 2002/12/27 16:22:03
|
Line 724 stack inst-stream IP Cell
|
Line 724 stack inst-stream IP Cell
|
endif |
endif |
2drop ; |
2drop ; |
|
|
|
: output-nextp2 ( -- ) |
|
." NEXT_P2;" cr ; |
|
|
|
variable tail-nextp2 \ xt to execute for printing NEXT_P2 in INST_TAIL |
|
' output-nextp2 tail-nextp2 ! |
|
|
: output-label2 ( -- ) |
: output-label2 ( -- ) |
." LABEL2(" prim prim-c-name 2@ type ." )" cr |
." LABEL2(" prim prim-c-name 2@ type ." )" cr |
." NEXT_P2;" cr ; |
." NEXT_P2;" cr ; |
Line 745 stack inst-stream IP Cell
|
Line 751 stack inst-stream IP Cell
|
xt execute ; |
xt execute ; |
|
|
: output-c-tail ( -- ) |
: output-c-tail ( -- ) |
['] noop output-c-tail1 ; |
tail-nextp2 @ output-c-tail1 ; |
|
|
: output-c-tail2 ( -- ) |
: output-c-tail2 ( -- ) |
['] output-label2 output-c-tail1 ; |
['] output-label2 output-c-tail1 ; |
|
|
: output-c-tail-no-stores ( -- ) |
: output-c-tail-no-stores ( -- ) |
['] noop output-c-tail1-no-stores ; |
tail-nextp2 @ output-c-tail1-no-stores ; |
|
|
: output-c-tail2-no-stores ( -- ) |
: output-c-tail2-no-stores ( -- ) |
['] output-label2 output-c-tail1-no-stores ; |
['] output-label2 output-c-tail1-no-stores ; |