OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [trunctfdf.c] - Rev 301

Go to most recent revision | Compare with Previous | Blame | View Log

/* Sparc w/128-bit long double bombed on this because even though
   the trunctfdf libcall passed the long double by reference, the
   libcall was still marked as LCT_CONST instead of LCT_PURE.  */
 
double *copy(long double *first, long double *last, double *result)
{
	int n;
	for (n = last - first; n > 0; --n) {
		*result = *first;
		++first;
		++result;
	}
	return result;
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.