Diff for /gforth/prims2x.fs between versions 1.144 and 1.145

version 1.144, 2003/10/09 14:15:19 version 1.145, 2003/10/09 20:25:59
Line 887  stack inst-stream IP Cell Line 887  stack inst-stream IP Cell
     endif      endif
     2drop ;      2drop ;
   
   
   defer output-nextp0
   :noname ( -- )
       ." NEXT_P0;" cr ;
   is output-nextp0
   
   defer output-nextp1
   :noname ( -- )
       ." NEXT_P1;" cr ;
   is output-nextp1
   
 : output-nextp2 ( -- )  : output-nextp2 ( -- )
     ." NEXT_P2;" cr ;      ." NEXT_P2;" cr ;
   
Line 901  variable tail-nextp2 \ xt to execute for Line 912  variable tail-nextp2 \ xt to execute for
     \ the final part of the generated C code, with xt printing LABEL2 or not.      \ the final part of the generated C code, with xt printing LABEL2 or not.
     output-super-end      output-super-end
     print-debug-results      print-debug-results
     ." NEXT_P1;" cr      output-nextp1
     stores      stores
     fill-state       fill-state 
     xt execute ;      xt execute ;
Line 909  variable tail-nextp2 \ xt to execute for Line 920  variable tail-nextp2 \ xt to execute for
 : output-c-tail1-no-stores { xt -- }  : output-c-tail1-no-stores { xt -- }
     \ the final part of the generated C code for combinations      \ the final part of the generated C code for combinations
     output-super-end      output-super-end
     ." NEXT_P1;" cr      output-nextp1
     fill-state       fill-state 
     xt execute ;      xt execute ;
   
Line 952  variable tail-nextp2 \ xt to execute for Line 963  variable tail-nextp2 \ xt to execute for
     ." {" cr      ." {" cr
     ." DEF_CA" cr      ." DEF_CA" cr
     print-declarations      print-declarations
     ." NEXT_P0;" cr      output-nextp0
     spill-state      spill-state
     fetches      fetches
     print-debug-args      print-debug-args
Line 1454  variable reprocessed-num 0 reprocessed-n Line 1465  variable reprocessed-num 0 reprocessed-n
     ." {" cr      ." {" cr
     ." DEF_CA" cr      ." DEF_CA" cr
     print-declarations-combined      print-declarations-combined
     ." NEXT_P0;" cr      output-nextp0
     spill-state      spill-state
     \ fetches \ now in parts      \ fetches \ now in parts
     \ print-debug-args      \ print-debug-args

Removed from v.1.144  
changed lines
  Added in v.1.145


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