version 1.30, 1998/05/02 21:28:43
|
version 1.32, 1998/08/29 20:46:13
|
Line 42
|
Line 42
|
|
|
warnings off |
warnings off |
|
|
include search.fs |
require search.fs |
include extend.fs |
require extend.fs |
|
|
\ require interpretation.fs |
\ require interpretation.fs |
\ require debugs.fs |
\ require debugs.fs |
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 |