| 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 |
| 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 |
