--- gforth/fflib.fs 2008/02/12 20:28:51 1.19 +++ gforth/fflib.fs 2008/07/05 20:09:42 1.21 @@ -20,6 +20,10 @@ \ replacements for former primitives require libcc.fs +c-library fflib +s" avcall" add-lib +s" callback" add-lib + \c #include \c #include \c static av_alist alist; @@ -126,6 +130,7 @@ c-function va-return-longlong1 va_return c-function va-return-float1 va_return_float1 r -- void \c #define va_return_double1(r) va_return_double(gforth_clist,r) c-function va-return-double1 va_return_double1 r -- void +end-c-library : av-int-r 2r> >r av-int ; : av-float-r f@local0 lp+ av-float ;