Return to fflib.fs CVS log | Up to [gforth] / gforth |
version 1.27, 2009/02/24 22:57:48 | version 1.29, 2009/12/31 15:32:35 |
---|---|
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,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. | \ This file is part of Gforth. |
Line 43 s" callback" add-lib | Line 43 s" callback" add-lib |
\c void **gforth_pointers = saved_gforth_pointers; | \c void **gforth_pointers = saved_gforth_pointers; |
\c #endif | \c #endif |
\c { | \c { |
\c /* save global valiables */ | \c /* save global variables */ |
\c Cell *rp = gforth_RP; | \c Cell *rp = gforth_RP; |
\c Cell *sp = gforth_SP; | \c Cell *sp = gforth_SP; |
\c Float *fp = gforth_FP; | \c Float *fp = gforth_FP; |