| |
|
| require libcc.fs |
require libcc.fs |
| |
|
| clear-libs s" ffi" add-lib |
c-library libffi |
| |
s" ffi" add-lib |
| |
|
| \c #include <ffi.h> |
\c #include <ffi.h> |
| \c static Cell *gforth_RP; |
\c static Cell *gforth_RP; |
| \c #define ffi_ret_double1(r) (*(double *)(gforth_ritem) = r) |
\c #define ffi_ret_double1(r) (*(double *)(gforth_ritem) = r) |
| c-function ffi-ret-double1 ffi_ret_double1 r -- void |
c-function ffi-ret-double1 ffi_ret_double1 r -- void |
| : ffi-ret-double ( r -- ) ffi-ret-double1 ffi-ret-void ; |
: ffi-ret-double ( r -- ) ffi-ret-double1 ffi-ret-void ; |
| |
end-c-library |
| |
|
| \ common stuff, same as fflib.fs |
\ common stuff, same as fflib.fs |
| |
|
