[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.100 and 1.101

version 1.100, Sun Nov 11 22:33:31 2001 UTC version 1.101, Sun Dec 9 19:12:45 2001 UTC
Line 647 
Line 647 
     2drop type ;      2drop type ;
   
 : print-entry ( -- )  : print-entry ( -- )
     ." CASE I_" 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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help