Return to prim CVS log | Up to [gforth] / gforth |
version 1.229, 2008/07/10 19:59:41 | version 1.231, 2008/07/27 09:58:29 |
---|---|
Line 1 | Line 1 |
\ Gforth primitives | \ Gforth primitives |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 1777 access the stack itself. The stack point | Line 1777 access the stack itself. The stack point |
variables @code{gforth_SP} and @code{gforth_FP}."" | variables @code{gforth_SP} and @code{gforth_FP}."" |
/* This is a first attempt at support for calls to C. This may change in | /* This is a first attempt at support for calls to C. This may change in |
the future */ | the future */ |
IF_fpTOS(fp[0]=fpTOS); | |
gforth_FP=fp; | gforth_FP=fp; |
gforth_SP=sp; | gforth_SP=sp; |
gforth_RP=rp; | |
gforth_LP=lp; | |
((void (*)())w)(); | ((void (*)())w)(); |
sp=gforth_SP; | sp=gforth_SP; |
fp=gforth_FP; | fp=gforth_FP; |
rp=gforth_RP; | |
lp=gforth_LP; | |
IF_fpTOS(fpTOS=fp[0]); | |
\+ | \+ |
\+file | \+file |