gforth/engine/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / engine

version 1.23, 2007/04/09 22:36:01	version 1.24, 2007/04/15 20:33:46
Line 409 Cell to_float(Char *c_addr, UCell u, Flo	Line 409 Cell to_float(Char *c_addr, UCell u, Flo
}	}
#endif	#endif

	#ifdef HAS_FLOAT
Float v_star(Float f_addr1, Cell nstride1, Float f_addr2, Cell nstride2, UCell ucount)	Float v_star(Float f_addr1, Cell nstride1, Float f_addr2, Cell nstride2, UCell ucount)
{	{
Float r;	Float r;
Line 429 void faxpy(Float ra, Float *f_x, Cell ns	Line 430 void faxpy(Float ra, Float *f_x, Cell ns
f_y = (Float *)(((Address)f_y)+nstridey);	f_y = (Float *)(((Address)f_y)+nstridey);
}	}
}	}
	#endif

UCell lshift(UCell u1, UCell n)	UCell lshift(UCell u1, UCell n)
{	{
Line 440 UCell rshift(UCell u1, UCell n)	Line 442 UCell rshift(UCell u1, UCell n)
return u1 >> n;	return u1 >> n;
}	}

	#ifndef STANDALONE
int gforth_system(Char *c_addr, UCell u)	int gforth_system(Char *c_addr, UCell u)
{	{
int retval;	int retval;
Line 460 int gforth_system(Char *c_addr, UCell u)	Line 463 int gforth_system(Char *c_addr, UCell u)
#endif	#endif
return retval;	return retval;
}	}
	#endif

/* mixed division support; should usually be faster than gcc's	/* mixed division support; should usually be faster than gcc's
double-by-double division (and gcc typically does not generate	double-by-double division (and gcc typically does not generate