version 1.20, 2008/04/28 08:42:59
|
version 1.21, 2008/07/05 20:09:42
|
Line 20
|
Line 20
|
\ replacements for former primitives |
\ replacements for former primitives |
require libcc.fs |
require libcc.fs |
|
|
clear-libs |
c-library fflib |
s" avcall" add-lib |
s" avcall" add-lib |
s" callback" add-lib |
s" callback" add-lib |
|
|
Line 130 c-function va-return-longlong1 va_return
|
Line 130 c-function va-return-longlong1 va_return
|
c-function va-return-float1 va_return_float1 r -- void |
c-function va-return-float1 va_return_float1 r -- void |
\c #define va_return_double1(r) va_return_double(gforth_clist,r) |
\c #define va_return_double1(r) va_return_double(gforth_clist,r) |
c-function va-return-double1 va_return_double1 r -- void |
c-function va-return-double1 va_return_double1 r -- void |
|
end-c-library |
|
|
: av-int-r 2r> >r av-int ; |
: av-int-r 2r> >r av-int ; |
: av-float-r f@local0 lp+ av-float ; |
: av-float-r f@local0 lp+ av-float ; |
Line 341 also cb-decl definitions
|
Line 342 also cb-decl definitions
|
' va-return-ptr ' va-start-ptr va-ret (ptr) |
' va-return-ptr ' va-start-ptr va-ret (ptr) |
|
|
previous definitions |
previous definitions |
clear-libs |
|
|
|