version 1.106, 2002/06/02 15:46:16
|
version 1.107, 2002/08/07 10:11:18
|
Line 673 stack inst-stream IP Cell
|
Line 673 stack inst-stream IP Cell
|
|
|
: 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 ( -- ) |