version 1.19, 2008/02/12 20:28:51
|
version 1.24, 2008/07/29 09:01:44
|
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 |
|
s" avcall" add-lib |
|
s" callback" add-lib |
|
|
\c #include <avcall.h> |
\c #include <avcall.h> |
\c #include <callback.h> |
\c #include <callback.h> |
Line 29 require libcc.fs
|
Line 31 require libcc.fs
|
\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 126 c-function va-return-longlong1 va_return
|
Line 126 c-function va-return-longlong1 va_return
|
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 ; |