gforth/engine/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / engine

version 1.21, 2007/02/17 16:27:16	version 1.22, 2007/03/25 21:30:59
Line 282 struct Cellpair parse_white(Char *c_addr	Line 282 struct Cellpair parse_white(Char *c_addr
return result;	return result;
}	}

	#ifdef HAS_FILE
Cell rename_file(Char c_addr1, UCell u1, Char c_addr2, UCell u2)	Cell rename_file(Char c_addr1, UCell u1, Char c_addr2, UCell u2)
{	{
char *s1=tilde_cstr(c_addr2, u2, 1);	char *s1=tilde_cstr(c_addr2, u2, 1);
Line 404 Cell to_float(Char *c_addr, UCell u, Flo	Line 405 Cell to_float(Char *c_addr, UCell u, Flo
*rp = r;	*rp = r;
return flag;	return flag;
}	}
	#endif

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)
{	{