version 1.59, 2000/12/26 20:01:49
|
version 1.60, 2000/12/30 15:22:52
|
Line 672 does> ( item -- )
|
Line 672 does> ( item -- )
|
." } else " |
." } else " |
1 function-number +! ; |
1 function-number +! ; |
|
|
|
|
|
|
|
|
|
: gen-arg-parm { item -- } |
|
item item-stack @ inst-stream = if |
|
." , " item item-type @ type-c-name 2@ type space |
|
item item-name 2@ type |
|
endif ; |
|
|
|
: gen-args-parm ( -- ) |
|
effect-in-end @ effect-in ?do |
|
i gen-arg-parm |
|
item% %size +loop ; |
|
|
|
: gen-arg-gen { item -- } |
|
item item-stack @ inst-stream = if |
|
." genarg_" item item-type @ print-type-prefix |
|
." (ctp, " item item-name 2@ type ." );" cr |
|
endif ; |
|
|
|
: gen-args-gen ( -- ) |
|
effect-in-end @ effect-in ?do |
|
i gen-arg-gen |
|
item% %size +loop ; |
|
|
|
: output-gen ( -- ) |
|
\ generate C code for generating VM instructions |
|
." /* " declarations ." */" cr |
|
compute-offsets |
|
." void gen_" c-name 2@ type ." (Inst **ctp" gen-args-parm ." )" cr |
|
." {" cr |
|
." gen_inst(ctp, vm_prim[" function-number @ 0 .r ." ]);" cr |
|
gen-args-gen |
|
." }" cr |
|
1 function-number +! ; |
|
|
: stack-used? { stack -- f } |
: stack-used? { stack -- f } |
stack stack-in @ stack stack-out @ or 0<> ; |
stack stack-in @ stack stack-out @ or 0<> ; |
|
|