version 1.30, 1998/05/02 21:28:43
|
version 1.33, 1998/10/25 23:15:46
|
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 |
Line 462 s" DFloat *" single-type starts-with df_
|
Line 466 s" DFloat *" single-type starts-with df_
|
s" SFloat *" single-type starts-with sf_ |
s" SFloat *" single-type starts-with sf_ |
s" Xt" single-type starts-with xt |
s" Xt" single-type starts-with xt |
s" WID" single-type starts-with wid |
s" WID" single-type starts-with wid |
s" F83Name *" single-type starts-with f83name |
s" struct F83Name *" single-type starts-with f83name |
|
|
set-current |
set-current |
|
|
Line 641 set-current
|
Line 645 set-current
|
cr ; |
cr ; |
|
|
: output-label ( -- ) |
: output-label ( -- ) |
." &&I_" c-name 2@ type ." ," cr ; |
." (Label)&&I_" c-name 2@ type ." ," cr ; |
|
|
: output-alias ( -- ) flush-comment on |
: output-alias ( -- ) flush-comment on |
?flush-comment |
?flush-comment |