Diff for /gforth/prims2x.fs between versions 1.106 and 1.107

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 ( -- )

Removed from v.1.106  
changed lines
  Added in v.1.107


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>