gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.13, 1994/09/12 19:00:27	version 1.17, 1994/11/29 16:22:37
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 408 ghost '	Line 408 ghost '

Cond: ['] compile lit ghost gexecute ;Cond	Cond: ['] compile lit ghost gexecute ;Cond

	Cond: chars ;Cond

>CROSS	>CROSS
\ tLiteral 12dec92py	\ tLiteral 12dec92py

Line 736 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