Diff for /gforth/prims2x0.6.2.fs between versions 1.5 and 1.6

version 1.5, 2009/02/14 19:50:23 version 1.6, 2009/02/17 20:48:47
Line 1205  variable tail-nextp2 \ xt to execute for Line 1205  variable tail-nextp2 \ xt to execute for
     print-debug-results      print-debug-results
     stores ;      stores ;
   
   : stack-combined-tail-stores { stack -- }
       \ the top stack-out items of this part are stored elsewhere; so
       \ this store everything between max-depth, unless it was stored
       \ previously (below back-max-depth) and stack-out
       stack stack-number @ part-num @ 2dup 2>r s-c-max-depth @ 
       2r> s-c-max-back-depth @ min
       stack stack-depth -
       stack stack-out @ +do
           i stack normal-stack-access ."  = "
           i stack part-stack-access ." ;" cr
       loop ;
   
   : combined-tail-stores ( -- )
       \ All the stores we have yet to do on an INST_TAIL that are the
       \ result of earlier parts (and will be consumed by other parts in
       \ the fallthrough path, and thus have not been stored in the
       \ earlier part).
       ['] stack-combined-tail-stores map-stacks ;
   
 : combined-tail-stack-pointer-update { stack -- }  : combined-tail-stack-pointer-update { stack -- }
     stack stack-number @ { nstack }      stack stack-number @ { nstack }
     nstack part-num @ 1+ s-c-depth @ ( nupdate-raw )      nstack part-num @ 1+ s-c-depth @ ( nupdate-raw )
Line 1220  variable tail-nextp2 \ xt to execute for Line 1239  variable tail-nextp2 \ xt to execute for
     in-part @ >r in-part off      in-part @ >r in-part off
     combined-tail-stack-pointer-updates      combined-tail-stack-pointer-updates
     part-output-c-tail      part-output-c-tail
       combined-tail-stores
     combined ['] output-c-tail-no-stores prim-context      combined ['] output-c-tail-no-stores prim-context
     r> in-part ! ;      r> in-part ! ;
   

Removed from v.1.5  
changed lines
  Added in v.1.6


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