Return to libffi.fs CVS log | Up to [gforth] / gforth |
version 1.18, 2008/04/19 19:15:14 | version 1.20, 2008/04/28 08:42:59 |
---|---|
Line 23 | Line 23 |
require libcc.fs | require libcc.fs |
s" libffi.so" open-lib 0= [if] | clear-libs s" ffi" add-lib |
.( cannot open libffi ) cr abort | |
[then] | |
\c #include <ffi.h> | \c #include <ffi.h> |
\c static Cell *gforth_RP; | \c static Cell *gforth_RP; |