gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

version 1.16, 2008/03/16 21:39:59	version 1.18, 2008/04/19 19:15:14
Line 23	Line 23

require libcc.fs	require libcc.fs

	s" libffi.so" open-lib 0= [if]
	.( cannot open libffi ) cr abort
	[then]

\c #include <ffi.h>	\c #include <ffi.h>
\c static Cell *gforth_RP;	\c static Cell *gforth_RP;
\c static char *gforth_LP;	\c static char *gforth_LP;
Line 78 c-function ffi-prep-cif ffi_prep_cif1 a	Line 82 c-function ffi-prep-cif ffi_prep_cif1 a
\c (void )a_rvalue, (void *)a_avalues)	\c (void )a_rvalue, (void *)a_avalues)
c-function ffi-call ffi_call1 a a a a -- void	c-function ffi-call ffi_call1 a a a a -- void

\c #define ffi-prep-closure1(a_ip, a_cif, a_closure) \	\c #define ffi_prep_closure1(a_ip, a_cif, a_closure) \
\c ffi_prep_closure((ffi_closure )a_closure, (ffi_cif )a_cif, gforth_callback_ffi, (void *)a_ip)	\c ffi_prep_closure((ffi_closure )a_closure, (ffi_cif )a_cif, gforth_callback_ffi, (void *)a_ip)
c-function ffi-prep-closure a a a -- n	c-function ffi-prep-closure a a a -- n