[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.79 and 1.80

version 1.79, Thu May 20 13:28:20 1999 UTC version 1.80, Sat Jul 24 13:07:18 1999 UTC
Line 2408 
Line 2408 
   TNIL IF    TNIL IF
       s" #! "   r@ write-file throw        s" #! "   r@ write-file throw
       bl parse  r@ write-file throw        bl parse  r@ write-file throw
       s"  -i"   r@ write-file throw        s"  --image-file" r@ write-file throw
       #lf       r@ emit-file throw        #lf       r@ emit-file throw
       r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index )        r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index )
       ?do        ?do

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help