gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.230, 2008/07/15 16:11:49	version 1.232, 2008/08/09 13:24:25
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
Line 2454 l! ( w c_addr -- ) gforth l_store	Line 2460 l! ( w c_addr -- ) gforth l_store

lib-error ( -- c_addr u ) gforth lib_error	lib-error ( -- c_addr u ) gforth lib_error
""Error message for last failed @code{open-lib} or @code{lib-sym}.""	""Error message for last failed @code{open-lib} or @code{lib-sym}.""
c_addr = lt_dlerror();	c_addr = (Char *)lt_dlerror();
u = (c_addr == NULL) ? 0 : strlen(c_addr);	u = (c_addr == NULL) ? 0 : strlen((char *)c_addr);

\+	\+
\g peephole	\g peephole