gforth/fi2c.fs - diff

Return to fi2c.fs CVS log

Up to [gforth] / gforth

version 1.22, 2007/12/31 18:40:24	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 !
Line 169 Variable bitmap-chars	Line 169 Variable bitmap-chars
." INST_ADDR(" type ." )"	." INST_ADDR(" type ." )"
THEN	THEN
ELSE	ELSE
dup IF ." ((void*)image)+" THEN .08x	dup IF ." ((void*)image)+" $10 - THEN .08x
THEN	THEN
ELSE	ELSE
." (void*)" .08x	." (void*)" .08x