gforth/fflib.fs - diff

Return to fflib.fs CVS log

Up to [gforth] / gforth

version 1.22, 2008/07/13 19:20:54	version 1.25, 2008/07/29 09:24:31
Line 1	Line 1
\ lib.fs shared library support package 16aug03py	\ lib.fs shared library support package 16aug03py

\ 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 24 s" callback" add-lib	Line 24 s" callback" add-lib

\c #include <avcall.h>	\c #include <avcall.h>
\c #include <callback.h>	\c #include <callback.h>
	\c extern Cell *gforth_RP;
	\c extern unsigned char *gforth_LP;
\c static av_alist alist;	\c static av_alist alist;
\c static va_alist gforth_clist;	\c static va_alist gforth_clist;
\c static float frv;	\c static float frv;
Line 31 s" callback" add-lib	Line 33 s" callback" add-lib
\c static double drv;	\c static double drv;
\c static long long llrv;	\c static long long llrv;
\c static void * prv;	\c static void * prv;
\c static Cell *gforth_RP;
\c static char *gforth_LP;
\c typedef void *Label;	\c typedef void *Label;
\c typedef Label *Xt;	\c typedef Label *Xt;
\c Label gforth_engine(Xt ip, Cell sp, Cell rp0, Float fp, char lp);	\c Label gforth_engine(Xt ip, Cell sp, Cell rp0, Float fp, char lp);