[gforth] / gforth / fi2c.fs  

gforth: gforth/fi2c.fs

Diff for /gforth/fi2c.fs between version 1.11 and 1.12

version 1.11, Wed Nov 21 10:01:47 2001 UTC version 1.12, Sat Sep 14 08:20:19 2002 UTC
Line 36 
Line 36 
   
 : search-magic ( fd -- )  >r  : search-magic ( fd -- )  >r
     BEGIN  magicbuf 8 r@ read-file throw  8 =  WHILE      BEGIN  magicbuf 8 r@ read-file throw  8 =  WHILE
         magicbuf s" Gforth2" tuck compare 0=  UNTIL          magicbuf s" Gforth2" tuck str=  UNTIL
     ELSE  true abort" No magic found"  THEN      ELSE  true abort" No magic found"  THEN
     1 magicbuf 7 + c@ 5 rshift 3 and lshift tchars !      1 magicbuf 7 + c@ 5 rshift 3 and lshift tchars !
     1 magicbuf 7 + c@ 1 rshift 3 and lshift tcell !      1 magicbuf 7 + c@ 1 rshift 3 and lshift tcell !


Generate output suitable for use with a patch program
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help