gforth/fi2c.fs - diff

Return to fi2c.fs CVS log

Up to [gforth] / gforth

version 1.19, 2007/03/31 12:58:07	version 1.21, 2007/12/31 17:34:58
Line 1	Line 1
\ Convert image to C include file	\ Convert image to C include file

\ Copyright (C) 1998,1999,2002,2003 Free Software Foundation, Inc.	\ Copyright (C) 1998,1999,2002,2003,2007 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 199 Variable bitmap-chars	Line 199 Variable bitmap-chars

: fi2c ( addr u -- ) base @ >r hex	: fi2c ( addr u -- ) base @ >r hex
read-image	read-image
." static void* image[" .imagesize ." ] = {" cr .image ." };" cr	\ .\" const static __attribute__ ((__section__ (\".rodata\"))) void* image[" .imagesize ." ] = {" cr .image ." };" cr
	.\" static void* image[" .imagesize ." ] = {" cr .image ." };" cr
." #ifdef USE_RELOC" cr	." #ifdef USE_RELOC" cr
." const char reloc_bits[" .relocsize ." ] = {" cr .reloc ." };" cr	." const char reloc_bits[" .relocsize ." ] = {" cr .reloc ." };" cr
." #endif" cr	." #endif" cr