version 1.230, 2008/07/15 16:11:49
|
version 1.231, 2008/07/27 09:58:29
|
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 |