Diff for /gforth/fi2c.fs between versions 1.23 and 1.24

version 1.23, 2010/01/08 18:54:34 version 1.24, 2010/06/10 09:40:08
Line 113  Variable au Line 113  Variable au
   
 : 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" Gforth3" tuck str=  UNTIL          magicbuf s" Gforth4" 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 !

Removed from v.1.23  
changed lines
  Added in v.1.24


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