--- gforth/libffi.fs	2009/12/27 01:00:52	1.32
+++ gforth/libffi.fs	2012/10/08 01:10:30	1.37
@@ -1,6 +1,6 @@
 \ libffi.fs	shared library support package 		14aug05py
 
-\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005,2006,2007,2008,2009 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -31,14 +31,13 @@ include-ffi.h-string save-c-prefix-line
 \c static void **gforth_clist;
 \c static void *gforth_ritem;
 \c #ifndef HAS_BACKLINK
-\c static void **saved_gforth_pointers;
+\c static void *(*saved_gforth_pointers)(Cell);
 \c #endif
 \c typedef void *Label;
-\c typedef Label *Xt;
 \c static void gforth_callback_ffi(ffi_cif * cif, void * resp, void ** args, void * ip)
 \c {
 \c #ifndef HAS_BACKLINK
-\c   void **gforth_pointers = saved_gforth_pointers;
+\c   void *(*gforth_pointers)(Cell) = saved_gforth_pointers;
 \c #endif
 \c   {
 \c     Cell *rp1 = gforth_RP;
@@ -51,7 +50,7 @@ include-ffi.h-string save-c-prefix-line
 \c     gforth_clist = args;
 \c     gforth_ritem = resp;
 \c
-\c     gforth_engine((Xt *)ip, sp, rp1, fp, lp, gforth_UP);
+\c     gforth_engine((Xt *)ip);
 \c 
 \c     /* restore global variables */
 \c     gforth_RP = rp1;