version 1.51, 2008/07/27 10:34:06
|
version 1.52, 2008/07/29 09:01:44
|
Line 284 const+ d \ double
|
Line 284 const+ d \ double
|
const+ r \ float |
const+ r \ float |
const+ func \ C function pointer |
const+ func \ C function pointer |
const+ void |
const+ void |
const+ file \ C file pointer |
|
drop |
drop |
|
|
set-current |
set-current |
Line 301 set-current
|
Line 300 set-current
|
parse-libcc-type dup 0< -32 and throw swap c! ; |
parse-libcc-type dup 0< -32 and throw swap c! ; |
|
|
: type-letter ( n -- c ) |
: type-letter ( n -- c ) |
chars s" nadrfvF" drop + c@ ; |
chars s" nadrfv" drop + c@ ; |
|
|
\ count-stacks |
\ count-stacks |
|
|
Line 330 create count-stacks-types
|
Line 329 create count-stacks-types
|
' count-stacks-r , |
' count-stacks-r , |
' count-stacks-func , |
' count-stacks-func , |
' count-stacks-void , |
' count-stacks-void , |
' count-stacks-a , |
|
|
|
: count-stacks ( pars -- fp-change sp-change ) |
: count-stacks ( pars -- fp-change sp-change ) |
\ pars is an addr u pair |
\ pars is an addr u pair |
Line 358 create count-stacks-types
|
Line 356 create count-stacks-types
|
: gen-par-void ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 ) |
: gen-par-void ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 ) |
-32 throw ; |
-32 throw ; |
|
|
: gen-par-file ( fp-depth1 sp-depth1 -- fp-depth2 sp-depth2 ) |
|
." (FILE *)(" gen-par-n ." )" ; |
|
|
|
create gen-par-types |
create gen-par-types |
' gen-par-n , |
' gen-par-n , |
' gen-par-a , |
' gen-par-a , |
Line 368 create gen-par-types
|
Line 363 create gen-par-types
|
' gen-par-r , |
' gen-par-r , |
' gen-par-func , |
' gen-par-func , |
' gen-par-void , |
' gen-par-void , |
' gen-par-file , |
|
|
|
: gen-par ( fp-depth1 sp-depth1 partype -- fp-depth2 sp-depth2 ) |
: gen-par ( fp-depth1 sp-depth1 partype -- fp-depth2 sp-depth2 ) |
cells gen-par-types + @ execute ; |
cells gen-par-types + @ execute ; |
Line 413 create gen-wrapped-types
|
Line 407 create gen-wrapped-types
|
' gen-wrapped-r , |
' gen-wrapped-r , |
' gen-wrapped-func , |
' gen-wrapped-func , |
' gen-wrapped-void , |
' gen-wrapped-void , |
' gen-wrapped-a , |
|
|
|
: gen-wrapped-stmt ( pars c-name fp-change1 sp-change1 ret -- fp-change sp-change ) |
: gen-wrapped-stmt ( pars c-name fp-change1 sp-change1 ret -- fp-change sp-change ) |
cells gen-wrapped-types + @ execute ; |
cells gen-wrapped-types + @ execute ; |