version 1.150, 2004/08/23 14:30:23
|
version 1.153, 2005/01/22 22:16:59
|
Line 1
|
Line 1
|
\ converts primitives to, e.g., C code |
\ converts primitives to, e.g., C code |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 913 variable tail-nextp2 \ xt to execute for
|
Line 913 variable tail-nextp2 \ xt to execute for
|
|
|
: output-label2 ( -- ) |
: output-label2 ( -- ) |
." LABEL2(" prim prim-c-name 2@ type ." )" cr |
." LABEL2(" prim prim-c-name 2@ type ." )" cr |
." NEXT_P2;" cr ; |
." NEXT_P1_5;" cr |
|
." LABEL3(" prim prim-c-name 2@ type ." )" cr |
|
." DO_GOTO;" cr ; |
|
|
: output-c-tail1 { xt -- } |
: output-c-tail1 { xt -- } |
\ the final part of the generated C code, with xt printing LABEL2 or not. |
\ the final part of the generated C code, with xt printing LABEL2 or not. |
Line 1567 variable offset-super2 0 offset-super2
|
Line 1569 variable offset-super2 0 offset-super2
|
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , " |
rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , " |
prim prim-branch? negate . ." ," |
prim prim-branch? negate . ." ," |
state-in state-number @ 2 .r ." ," |
state-in state-number @ 2 .r ." ," |
state-out state-number @ 2 .r ." ," ; |
state-out state-number @ 2 .r ." ," |
|
inst-stream stack-in @ 1 .r ." ," |
|
; |
|
|
: 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 ; |
|
|