gforth: gforth/fflib.fs

-version 1.25, Tue Jul 29 09:24:31 2008 UTC
+version 1.26, Thu Sep 18 02:42:24 2008 UTC
  Line 24
  Line 24
  Line 24
  \c #include <avcall.h>
  \c #include <callback.h>
- \c extern Cell *gforth_RP;
- \c extern unsigned char *gforth_LP;
  \c static av_alist alist;
  \c static va_alist gforth_clist;
+ \c #ifndef HAS_BACKLINK
+ \c static void **saved_gforth_pointers;
+ \c #endif
  \c static float frv;
  \c static int irv;
  \c static double drv;
- Line 35
+ Line 36
  Line 35
  Line 36
  \c static void * prv;
  \c typedef void *Label;
  \c typedef Label *Xt;
- \c Label *gforth_engine(Xt *ip, Cell *sp, Cell *rp0, Float *fp, char *lp);
  \c
  \c void gforth_callback_ffcall(Xt* fcall, void * alist)
  \c {
+ \c #ifndef HAS_BACKLINK
+ \c   void **gforth_pointers = saved_gforth_pointers;
+ \c #endif
+ \c   {
  \c   /* save global valiables */
  \c   Cell *rp = gforth_RP;
  \c   Cell *sp = gforth_SP;
- Line 48
+ Line 52
  Line 48
  Line 52
  \c
  \c   gforth_clist = (va_alist)alist;
  \c
- \c   gforth_engine(fcall, sp, rp, fp, lp);
+ \c     gforth_engine(fcall, sp, rp, fp, lp, gforth_UP);
  \c
  \c   /* restore global variables */
  \c   gforth_RP = rp;
- Line 57
+ Line 61
  Line 57
  Line 61
  \c   gforth_LP = lp;
  \c   gforth_clist = clist;
  \c }
+ \c }
  \c #define av_start_void1(c_addr) av_start_void(alist, c_addr)
  c-function av-start-void av_start_void1 a -- void

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.25
 


changed lines


 
Added in v.1.26
 Legend:



Removed from v.1.25
 


changed lines


 
Added in v.1.26
-Removed from v.1.25
+Added in v.1.26