version 1.142, 2003/08/24 09:56:09
|
version 1.143, 2003/08/27 12:13:49
|
Line 876 variable tail-nextp2 \ xt to execute for
|
Line 876 variable tail-nextp2 \ xt to execute for
|
endif |
endif |
." }" cr ; |
." }" cr ; |
|
|
|
: prim-branch? { prim -- f } |
|
\ true if prim is a branch or super-end |
|
prim prim-c-code 2@ s" SET_IP" search nip nip 0<> ; |
|
|
: output-superend ( -- ) |
: output-superend ( -- ) |
\ output flag specifying whether the current word ends a dynamic superinst |
\ output flag specifying whether the current word ends a dynamic superinst |
prim prim-c-code 2@ s" SET_IP" search nip nip |
prim prim-branch? |
prim prim-c-code 2@ s" SUPER_END" search nip nip or 0<> |
prim prim-c-code 2@ s" SUPER_END" search nip nip 0<> or |
prim prim-c-code 2@ s" SUPER_CONTINUE" search nip nip 0= and |
prim prim-c-code 2@ s" SUPER_CONTINUE" search nip nip 0= and |
negate 0 .r ." , /* " prim prim-name 2@ type ." */" cr ; |
negate 0 .r ." , /* " prim prim-name 2@ type ." */" cr ; |
|
|
Line 1317 variable tail-nextp2 \ xt to execute for
|
Line 1321 variable tail-nextp2 \ xt to execute for
|
|
|
variable offset-super2 0 offset-super2 ! \ offset into the super2 table |
variable offset-super2 0 offset-super2 ! \ offset into the super2 table |
|
|
: output-costs-gforth-simple ( -- ) |
: output-costs-prefix ( -- ) |
." {" prim compute-costs |
." {" prim compute-costs |
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , " |
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , " |
|
prim prim-branch? negate . ." ," ; |
|
|
|
: output-costs-gforth-simple ( -- ) |
|
output-costs-prefix |
prim output-num-part |
prim output-num-part |
1 2 .r ." }," |
1 2 .r ." }," |
output-name-comment |
output-name-comment |
cr ; |
cr ; |
|
|
: output-costs-gforth-combined ( -- ) |
: output-costs-gforth-combined ( -- ) |
." {" prim compute-costs |
output-costs-prefix |
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , " |
|
." N_START_SUPER+" offset-super2 @ 5 .r ." ," |
." N_START_SUPER+" offset-super2 @ 5 .r ." ," |
super2-length dup 2 .r ." }," offset-super2 +! |
super2-length dup 2 .r ." }," offset-super2 +! |
output-name-comment |
output-name-comment |