Diff for /gforth/prims2x.fs between versions 1.111 and 1.112

version 1.111, 2002/08/20 16:59:01 version 1.112, 2002/08/28 21:46:58
Line 86  variable skipsynclines \ are sync lines Line 86  variable skipsynclines \ are sync lines
 skipsynclines on  skipsynclines on
 variable out-nls \ newlines in output (for output sync lines)  variable out-nls \ newlines in output (for output sync lines)
 0 out-nls !  0 out-nls !
   variable store-optimization \ use store optimization?
   store-optimization off
   
   
 : th ( addr1 n -- addr2 )  : th ( addr1 n -- addr2 )
     cells + ;      cells + ;
Line 380  defer inst-stream-f ( -- stack ) Line 383  defer inst-stream-f ( -- stack )
     rdrop ;      rdrop ;
   
 : store-single ( item -- )  : store-single ( item -- )
  >r      >r
  r@ same-as-in?      store-optimization @ r@ same-as-in? and if
  if          r@ item-in-index 0= r@ item-out-index 0= xor if
    r@ item-in-index 0= r@ item-out-index 0= xor              ." IF_" r@ item-stack @ stack-pointer 2@ type
    if              ." TOS(" r@ really-store-single ." );" cr
        ." IF_" r@ item-stack @ stack-pointer 2@ type          endif
        ." TOS(" r@ really-store-single ." );" cr      else
    endif          r@ really-store-single cr
  else      endif
    r@ really-store-single cr      rdrop ;
  endif  
  rdrop ;  
   
 : store-double ( item -- )  : store-double ( item -- )
 \ !! store optimization is not performed, because it is not yet needed  \ !! store optimization is not performed, because it is not yet needed

Removed from v.1.111  
changed lines
  Added in v.1.112


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