Diff for /gforth/prims2x.fs between versions 1.30 and 1.33

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

Removed from v.1.30  
changed lines
  Added in v.1.33


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>