gforth/primitives - diff

Return to primitives CVS log

Up to [gforth] / gforth

version 1.43, 1995/10/16 18:33:11	version 1.44, 1995/10/26 22:48:41
Line 91 INC_IP(1);	Line 91 INC_IP(1);

execute xt -- core	execute xt -- core
ip=IP;	ip=IP;
cfa = xt;
IF_TOS(TOS = sp[0]);	IF_TOS(TOS = sp[0]);
NEXT1;	EXEC(xt);

branch-lp+!# -- gforth branch_lp_plus_store_number	branch-lp+!# -- gforth branch_lp_plus_store_number
/* this will probably not be used */	/* this will probably not be used */
Line 173 Cell index = *rp;	Line 172 Cell index = *rp;
/* dependent upon two's complement arithmetic */	/* dependent upon two's complement arithmetic */
UCell olddiff = index-rp[1];	UCell olddiff = index-rp[1];
if (olddiff>u) {	if (olddiff>u) {
	#ifdef i386
	*rp -= u;
	#else
*rp = index - u;	*rp = index - u;
	#endif
IF_TOS(TOS = sp[0]);	IF_TOS(TOS = sp[0]);
)	)

Line 1368 sf_addr = (SFloat *)((((Cell)c_addr)+(si	Line 1371 sf_addr = (SFloat *)((((Cell)c_addr)+(si
dfaligned c_addr -- df_addr float-ext d_f_aligned	dfaligned c_addr -- df_addr float-ext d_f_aligned
df_addr = (DFloat *)((((Cell)c_addr)+(sizeof(DFloat)-1))&~sizeof(DFloat));	df_addr = (DFloat *)((((Cell)c_addr)+(sizeof(DFloat)-1))&~sizeof(DFloat));

\ The following words access machine/OS/installation-dependent ANSI	\ The following words access machine/OS/installation-dependent
\ figForth internals	\ Gforth internals
\ !! how about environmental queries DIRECT-THREADED,	\ !! how about environmental queries DIRECT-THREADED,
\ INDIRECT-THREADED, TOS-CACHED, FTOS-CACHED, CODEFIELD-DOES */	\ INDIRECT-THREADED, TOS-CACHED, FTOS-CACHED, CODEFIELD-DOES */