gforth/libffi.fs - diff

Return to libffi.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/libffi.fs between versions 1.21 and 1.25

version 1.21, 2008/06/01 12:18:56	version 1.25, 2008/07/15 16:11:49
Line 1	Line 1
\ libffi.fs shared library support package 14aug05py	\ libffi.fs shared library support package 14aug05py

\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.21
changed lines
	Added in v.1.25