version 1.89, 2001/01/28 16:54:55
|
version 1.91, 2001/01/29 11:39:43
|
Line 1516 variable ResolveFlag
|
Line 1516 variable ResolveFlag
|
>CROSS |
>CROSS |
\ Header states 12dec92py |
\ Header states 12dec92py |
|
|
: flag! ( w -- ) tlast @ dup >r T @ xor r> ! H ; |
bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+ |
|
: flag! ( w -- ) tlast @ flag+ + dup >r T c@ xor r> c! H ; |
|
|
VARIABLE ^imm |
VARIABLE ^imm |
|
|
\ !! should be target wordsize specific |
\ !! should be target wordsize specific |
$80000000 constant alias-mask |
$80 constant alias-mask |
$40000000 constant immediate-mask |
$40 constant immediate-mask |
$20000000 constant restrict-mask |
$20 constant restrict-mask |
|
|
>TARGET |
>TARGET |
: immediate immediate-mask flag! |
: immediate immediate-mask flag! |
Line 2210 Builder Field
|
Line 2211 Builder Field
|
: cell% ( n -- size align ) |
: cell% ( n -- size align ) |
T 1 cells H dup ; |
T 1 cells H dup ; |
|
|
Build: ( m v -- m' v ) dup T , H cell+ ; |
Build: ( m v -- m' v ) dup T , cell+ H ; |
DO: abort" Not in cross mode" ;DO |
DO: abort" Not in cross mode" ;DO |
Builder input-method |
Builder input-method |
|
|