gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.81, 1999/08/29 21:44:45	version 1.83, 1999/12/31 21:39:59
Line 787 VARIABLE env-current \ save information	Line 787 VARIABLE env-current \ save information

>ENVIRON get-order get-current swap 1+ set-order	>ENVIRON get-order get-current swap 1+ set-order
true SetValue compiler	true SetValue compiler
true SetValue cross	true SetValue cross
true SetValue standard-threading	true SetValue standard-threading
>TARGET previous	>TARGET previous

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