Diff for /gforth/fi2c.fs between versions 1.11 and 1.13

version 1.11, 2001/11/21 10:01:47 version 1.13, 2003/03/09 15:16:49
Line 1 Line 1
 \ Convert image to C include file  \ Convert image to C include file
   
 \ Copyright (C) 1998,1999 Free Software Foundation, Inc.  \ Copyright (C) 1998,1999,2002 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 36  Variable au Line 36  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" 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 !

Removed from v.1.11  
changed lines
  Added in v.1.13


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