/* 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;
}