gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.79, 1999/05/20 13:28:20	version 1.82, 1999/12/30 20:43:25
Line 864 float Constant tfloat	Line 864 float Constant tfloat
bits/byte Constant tbits/byte	bits/byte Constant tbits/byte
[THEN]	[THEN]
H	H
tbits/byte bits/byte / Constant tbyte	tbits/char bits/byte / Constant tbyte


\ Variables 06oct92py	\ Variables 06oct92py
Line 1222 T has? relocate H	Line 1222 T has? relocate H
: c@ ( taddr -- char ) >image Sc@ ;	: c@ ( taddr -- char ) >image Sc@ ;
: c! ( char taddr -- ) >image Sc! ;	: c! ( char taddr -- ) >image Sc! ;
: 2@ ( taddr -- x1 x2 ) T dup cell+ @ swap @ H ;	: 2@ ( taddr -- x1 x2 ) T dup cell+ @ swap @ H ;
: 2! ( x1 x2 taddr -- ) T swap over ! cell+ ! H ;	: 2! ( x1 x2 taddr -- ) T tuck ! cell+ ! H ;

\ Target compilation primitives 06oct92py	\ Target compilation primitives 06oct92py
\ included A! 16may93jaw	\ included A! 16may93jaw
Line 2406 magic 7 + c!	Line 2406 magic 7 + c!
bl parse ." Saving to " 2dup type cr	bl parse ." Saving to " 2dup type cr
w/o bin create-file throw >r	w/o bin create-file throw >r
TNIL IF	TNIL IF
s" #! " r@ write-file throw	s" #! " r@ write-file throw
bl parse r@ write-file throw	bl parse r@ write-file throw
s" -i" r@ write-file throw	s" --image-file" r@ write-file throw
#lf r@ emit-file throw	#lf r@ emit-file throw
r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index )	r@ dup file-position throw drop 8 mod 8 swap ( file-id limit index )
?do	?do