| |
|
| : disasm-arg { item -- } |
: disasm-arg { item -- } |
| item item-stack @ inst-stream = if |
item item-stack @ inst-stream = if |
| ." fputc(' ', vm_out); " |
." {" cr |
| \ !! change this to first convert args to the right type and |
item print-declaration |
| \ then print them |
item fetch |
| ." /* printarg_" item item-type @ print-type-prefix |
item print-debug-arg |
| ." ((" item item-type @ type-c-name 2@ type ." )" |
." }" cr |
| ." ip[" item item-offset @ 1+ 0 .r ." ]); */" cr |
|
| endif ; |
endif ; |
| |
|
| : disasm-args ( -- ) |
: disasm-args ( -- ) |
