| \ along with this program. If not, see http://www.gnu.org/licenses/. |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
| |
|
| \ replacements for former primitives |
\ replacements for former primitives |
| require libcc.fs |
c-library fflib |
| |
|
| clear-libs |
|
| s" avcall" add-lib |
s" avcall" add-lib |
| s" callback" add-lib |
s" callback" add-lib |
| |
|
| 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 ; |
| ' va-return-ptr ' va-start-ptr va-ret (ptr) |
' va-return-ptr ' va-start-ptr va-ret (ptr) |
| |
|
| previous definitions |
previous definitions |
| clear-libs |
|