version 1.30, 1998/05/02 21:28:43
|
version 1.31, 1998/05/31 19:29:23
|
Line 353 constant type-description
|
Line 353 constant type-description
|
\ true if item has the same offset as the input TOS |
\ true if item has the same offset as the input TOS |
item-d-offset @ 1+ effect-in-size 2@ drop = ; |
item-d-offset @ 1+ effect-in-size 2@ drop = ; |
|
|
|
: is-out-tos? ( item -- f ) |
|
\ true if item has the same offset as the input TOS |
|
item-d-offset @ 1+ effect-out-size 2@ drop = ; |
|
|
: really-store-single ( item -- ) |
: really-store-single ( item -- ) |
>r |
>r |
r@ item-d-offset @ effect-out-size 2@ data-stack-access ." = (Cell)" |
r@ item-d-offset @ effect-out-size 2@ data-stack-access ." = (Cell)" |
Line 363 constant type-description
|
Line 367 constant type-description
|
>r |
>r |
r@ d-same-as-in? |
r@ d-same-as-in? |
if |
if |
r@ is-in-tos? |
r@ is-in-tos? r@ is-out-tos? xor |
if |
if |
." IF_TOS(" r@ really-store-single ." );" cr |
." IF_TOS(" r@ really-store-single ." );" cr |
endif |
endif |