[gforth] / gforth / fflib.fs  

gforth: gforth/fflib.fs

Diff for /gforth/fflib.fs between version 1.20 and 1.24

version 1.20, Mon Apr 28 08:42:59 2008 UTC version 1.24, Tue Jul 29 09:01:44 2008 UTC
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 18 
Line 18 
 \ along with this program. If not, see http://www.gnu.org/licenses/.  \ along with this program. If not, see http://www.gnu.org/licenses/.
   
 \ replacements for former primitives  \ replacements for former primitives
 require libcc.fs  c-library fflib
   
 clear-libs  
 s" avcall" add-lib  s" avcall" add-lib
 s" callback" add-lib  s" callback" add-lib
   
Line 33 
Line 31 
 \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);
Line 130 
Line 126 
 c-function va-return-float1 va_return_float1 r -- void  c-function va-return-float1 va_return_float1 r -- void
 \c #define va_return_double1(r) va_return_double(gforth_clist,r)  \c #define va_return_double1(r) va_return_double(gforth_clist,r)
 c-function va-return-double1 va_return_double1 r -- void  c-function va-return-double1 va_return_double1 r -- void
   end-c-library
   
 : av-int-r      2r> >r av-int ;  : av-int-r      2r> >r av-int ;
 : av-float-r    f@local0 lp+ av-float ;  : av-float-r    f@local0 lp+ av-float ;
Line 341 
Line 338 
 ' va-return-ptr      ' va-start-ptr      va-ret (ptr)  ' va-return-ptr      ' va-start-ptr      va-ret (ptr)
   
 previous definitions  previous definitions
 clear-libs  

Generate output suitable for use with a patch program
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.24
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help