[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.36 and 1.37

version 1.36, Fri Dec 11 22:54:27 1998 UTC version 1.37, Wed Dec 23 21:41:57 1998 UTC
Line 661 
Line 661 
   
 : output-label ( -- )  1 flush-comment !  : output-label ( -- )  1 flush-comment !
     ?flush-comment      ?flush-comment
     ." [" -2 primitive-number @ - 0 .r ." ] "  
     ." (Label)&&I_" c-name 2@ type ." ," cr      ." (Label)&&I_" c-name 2@ type ." ," cr
     -1 primitive-number +! ;      -1 primitive-number +! ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help