gforth/savesys.fs - diff

Return to savesys.fs CVS log

Up to [gforth] / gforth

version 1.4, 2002/09/14 08:20:20	version 1.6, 2003/03/09 15:16:52
Line 1	Line 1
\ image dump 15nov94py	\ image dump 15nov94py

\ Copyright (C) 1995,1997 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,2003 Free Software Foundation, Inc.

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

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)