version 1.54, 2000/12/13 10:15:26
|
version 1.55, 2000/12/24 15:54:18
|
Line 585 does> ( item -- )
|
Line 585 does> ( item -- )
|
stack stack-pointer 2@ type ." += " 0 .r ." ;" cr |
stack stack-pointer 2@ type ." += " 0 .r ." ;" cr |
endif ; |
endif ; |
|
|
|
: inst-pointer-update ( -- ) |
|
inst-stream stack-in @ ?dup-if |
|
." INC_IP(" 0 .r ." );" cr |
|
endif ; |
|
|
: stack-pointer-updates ( -- ) |
: stack-pointer-updates ( -- ) |
inst-stream stack-pointer-update |
inst-pointer-update |
data-stack stack-pointer-update |
data-stack stack-pointer-update |
fp-stack stack-pointer-update |
fp-stack stack-pointer-update |
return-stack stack-pointer-update ; |
return-stack stack-pointer-update ; |