Diff for /gforth/prims2x.fs between versions 1.122 and 1.123

version 1.122, 2002/12/08 09:57:53 version 1.123, 2002/12/27 15:51:28
Line 669  stack inst-stream IP Cell Line 669  stack inst-stream IP Cell
     prim prim-effect-in prim prim-effect-in-end @ ['] fetch map-items ;      prim prim-effect-in prim prim-effect-in-end @ ['] fetch map-items ;
   
 : stack-pointer-update { stack -- }  : stack-pointer-update { stack -- }
     \ stack grow downwards      \ stacks grow downwards
     stack stack-diff      stack stack-diff
     ?dup-if \ this check is not necessary, gcc would do this for us      ?dup-if \ this check is not necessary, gcc would do this for us
         stack inst-stream = if          stack inst-stream = if
Line 1166  stack inst-stream IP Cell Line 1166  stack inst-stream IP Cell
     r> in-part ! ;      r> in-part ! ;
   
 : part-stack-pointer-updates ( -- )  : part-stack-pointer-updates ( -- )
     max-stacks 0 +do      next-stack-number @ 0 +do
         i part-num @ 1+ s-c-max-depth @ dup          i part-num @ 1+ s-c-max-depth @ dup
         i num-combined @ s-c-max-depth @ =    \ final depth          i num-combined @ s-c-max-depth @ =    \ final depth
         swap i part-num @ s-c-max-depth @ <> \ just reached now          swap i part-num @ s-c-max-depth @ <> \ just reached now

Removed from v.1.122  
changed lines
  Added in v.1.123


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