| c-library libffi |
c-library libffi |
| s" ffi" add-lib |
s" ffi" add-lib |
| |
|
| |
s" os-type" environment? [IF] s" darwin" string-prefix? |
| |
[IF] |
| |
\c #define MACOSX |
| |
\c #include <ffi/ffi.h> |
| |
[ELSE] |
| \c #include <ffi.h> |
\c #include <ffi.h> |
| \c static Cell *gforth_RP; |
[THEN] |
| \c static unsigned char *gforth_LP; |
[ELSE] |
| |
\c #include <ffi.h> |
| |
[THEN] |
| |
\c extern Cell *gforth_RP; |
| |
\c extern unsigned char *gforth_LP; |
| \c static void **gforth_clist; |
\c static void **gforth_clist; |
| \c static void *gforth_ritem; |
\c static void *gforth_ritem; |
| \c typedef void *Label; |
\c typedef void *Label; |
