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 |