version 1.149, 2004/01/20 19:07:41
|
version 1.150, 2004/08/23 14:30:23
|
Line 1572 variable offset-super2 0 offset-super2
|
Line 1572 variable offset-super2 0 offset-super2
|
: output-costs-gforth-simple ( -- ) |
: output-costs-gforth-simple ( -- ) |
output-costs-prefix |
output-costs-prefix |
prim output-num-part |
prim output-num-part |
1 2 .r ." }," |
1 2 .r ." ," |
|
inst-stream stack-in @ 1 .r ." }," |
output-name-comment |
output-name-comment |
cr ; |
cr ; |
|
|
: output-costs-gforth-combined ( -- ) |
: output-costs-gforth-combined ( -- ) |
output-costs-prefix |
output-costs-prefix |
." 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 +! |
|
inst-stream stack-in @ 1 .r ." }," |
output-name-comment |
output-name-comment |
cr ; |
cr ; |
|
|
: output-costs ( -- ) |
\ : output-costs ( -- ) |
\ description of superinstructions and simple instructions |
\ \ description of superinstructions and simple instructions |
." {" prim compute-costs |
\ ." {" prim compute-costs |
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." ," |
\ rot 2 .r ." ," swap 2 .r ." ," 2 .r ." ," |
offset-super2 @ 5 .r ." ," |
\ offset-super2 @ 5 .r ." ," |
super2-length dup 2 .r ." }," offset-super2 +! |
\ super2-length dup 2 .r ." ," offset-super2 +! |
output-name-comment |
\ inst-stream stack-in @ 1 .r ." }," |
cr ; |
\ output-name-comment |
|
\ cr ; |
|
|
: output-super2-simple ( -- ) |
: output-super2-simple ( -- ) |
prim prim-c-name 2@ prim prim-c-name-orig 2@ d= if |
prim prim-c-name 2@ prim prim-c-name-orig 2@ d= if |