gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.21, 2008/06/01 12:18:56	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
	s" ffi" add-lib

clear-libs s" ffi" add-lib	s" os-type" environment? [IF] s" darwin" string-prefix?
	[IF]
\c #include <ffi.h>	\c #define MACOSX
\c static Cell *gforth_RP;	\c #include <ffi/ffi.h>
\c static unsigned char *gforth_LP;	[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;
Line 142 c-function ffi-ret-float1 ffi_ret_float1	Line 150 c-function ffi-ret-float1 ffi_ret_float1
\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