Diff for /gforth/libffi.fs between versions 1.34 and 1.37

version 1.34, 2012/03/17 01:36:04 version 1.37, 2012/10/08 01:10:30
Line 31  include-ffi.h-string save-c-prefix-line Line 31  include-ffi.h-string save-c-prefix-line
 \c static void **gforth_clist;  \c static void **gforth_clist;
 \c static void *gforth_ritem;  \c static void *gforth_ritem;
 \c #ifndef HAS_BACKLINK  \c #ifndef HAS_BACKLINK
 \c static void **saved_gforth_pointers;  \c static void *(*saved_gforth_pointers)(Cell);
 \c #endif  \c #endif
 \c typedef void *Label;  \c typedef void *Label;
 \c typedef Label *Xt;  
 \c static void gforth_callback_ffi(ffi_cif * cif, void * resp, void ** args, void * ip)  \c static void gforth_callback_ffi(ffi_cif * cif, void * resp, void ** args, void * ip)
 \c {  \c {
 \c #ifndef HAS_BACKLINK  \c #ifndef HAS_BACKLINK
 \c   void **gforth_pointers = saved_gforth_pointers;  \c   void *(*gforth_pointers)(Cell) = saved_gforth_pointers;
 \c #endif  \c #endif
 \c   {  \c   {
 \c     Cell *rp1 = gforth_RP;  \c     Cell *rp1 = gforth_RP;
Line 51  include-ffi.h-string save-c-prefix-line Line 50  include-ffi.h-string save-c-prefix-line
 \c     gforth_clist = args;  \c     gforth_clist = args;
 \c     gforth_ritem = resp;  \c     gforth_ritem = resp;
 \c  \c
 \c     gforth_engine((Xt *)ip, sp, rp1, fp, lp);  \c     gforth_engine((Xt *)ip);
 \c   \c 
 \c     /* restore global variables */  \c     /* restore global variables */
 \c     gforth_RP = rp1;  \c     gforth_RP = rp1;

Removed from v.1.34  
changed lines
  Added in v.1.37


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