| ." NEXT_P2;" cr ; |
." NEXT_P2;" cr ; |
| |
|
| : type-c-code ( c-addr u xt -- ) |
: type-c-code ( c-addr u xt -- ) |
| \ like TYPE, but replaces "TAIL;" with tail code produced by xt |
\ like TYPE, but replaces "INST_TAIL;" with tail code produced by xt |
| { xt } |
{ xt } |
| begin ( c-addr1 u1 ) |
begin ( c-addr1 u1 ) |
| 2dup s" TAIL;" search |
2dup s" INST_TAIL;" search |
| while ( c-addr1 u1 c-addr3 u3 ) |
while ( c-addr1 u1 c-addr3 u3 ) |
| 2dup 2>r drop nip over - type |
2dup 2>r drop nip over - type |
| xt execute |
xt execute |
| 2r> 5 /string |
2r> 10 /string |
| \ !! resync #line missing |
\ !! resync #line missing |
| repeat |
repeat |
| 2drop type ; |
2drop type ; |
| |
|
| : print-entry ( -- ) |
: print-entry ( -- ) |
| ." LABEL(" prim prim-c-name 2@ type ." ):" ; |
." LABEL(" prim prim-c-name 2@ type ." )" ; |
| |
|
| : output-c ( -- ) |
: output-c ( -- ) |
| print-entry ." /* " prim prim-name 2@ type ." ( " prim prim-stack-string 2@ type ." ) */" cr |
print-entry ." /* " prim prim-name 2@ type ." ( " prim prim-stack-string 2@ type ." ) */" cr |
