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

version 1.23, 2010/01/08 18:54:34 version 1.25, 2010/12/31 18:09:02
Line 1 Line 1
 \ Convert image to C include file  \ Convert image to C include file
   
 \ Copyright (C) 1998,1999,2002,2003,2007 Free Software Foundation, Inc.  \ Copyright (C) 1998,1999,2002,2003,2007,2010 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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.25


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