gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.14, 1994/10/24 19:15:53	version 1.16, 1994/11/17 15:53:07
Line 1	Line 1
\ CROSS.FS The Cross-Compiler 06oct92py	\ CROSS.FS The Cross-Compiler 06oct92py
\ $Id$	\ $Id$
\ Idea and implementation: Bernd Paysan (py)	\ Idea and implementation: Bernd Paysan (py)
\ Copyright 1992 by the ANSI figForth Development Group	\ Copyright 1992-94 by the GNU Forth Development Group

\ Log:	\ Log:
\ changed in ; [ to state off 12may93jaw	\ changed in ; [ to state off 12may93jaw
Line 738 bigendian Constant bigendian	Line 738 bigendian Constant bigendian
: save-cross ( "name" -- )	: save-cross ( "name" -- )
bl parse ." Saving to " 2dup type	bl parse ." Saving to " 2dup type
w/o bin create-file throw >r	w/o bin create-file throw >r
image @ there r@ write-file throw	s" gforth00" r@ write-file throw \ write magic
bit$ @ there 1- cell>bit rshift 1+ r@ write-file throw	image @ there r@ write-file throw \ write image
	bit$ @ there 1- cell>bit rshift 1+
	r@ write-file throw \ write tags
r> close-file throw ;	r> close-file throw ;

\ words that should be in minimal	\ words that should be in minimal