gforth/savesys.fs - diff

Return to savesys.fs CVS log

Up to [gforth] / gforth

version 1.3, 2000/09/23 15:46:58	version 1.5, 2003/02/06 16:49:17
Line 41	Line 41
: dump-fi ( addr u -- )	: dump-fi ( addr u -- )
w/o bin create-file throw >r	w/o bin create-file throw >r
update-image-included-files	update-image-included-files
	update-image-order
here forthstart - forthstart 2 cells + !	here forthstart - forthstart 2 cells + !
forthstart	forthstart
begin \ search for start of file ("#! " at a multiple of 8)	begin \ search for start of file ("#! " at a multiple of 8)
8 -	8 -
dup 3 s" #! " compare 0=	dup 3 s" #! " str=
until ( imagestart )	until ( imagestart )
here over - r@ write-file throw	here over - r@ write-file throw
r> close-file throw ;	r> close-file throw ;