gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.22, 2008/06/17 20:18:11	version 1.24, 2008/07/13 19:20:54
Line 21	Line 21
\ note that the API functions have their arguments reversed and other	\ note that the API functions have their arguments reversed and other
\ deviations.	\ deviations.

require libcc.fs

c-library libffi	c-library libffi
s" ffi" add-lib	s" ffi" add-lib

\c #include <ffi.h>	s" os-type" environment? [IF] s" darwin" string-prefix?
\c static Cell *gforth_RP;	[IF]
\c static unsigned char *gforth_LP;	\c #define MACOSX
	\c #include <ffi/ffi.h>
	[ELSE]
	\c #include <ffi.h>
	[THEN]
	[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;