1 /* Sparc w/128-bit long double bombed on this because even though
2    the trunctfdf libcall passed the long double by reference, the
3    libcall was still marked as LCT_CONST instead of LCT_PURE.  */
4 
copy(long double * first,long double * last,double * result)5 double *copy(long double *first, long double *last, double *result)
6 {
7 	int n;
8 	for (n = last - first; n > 0; --n) {
9 		*result = *first;
10 		++first;
11 		++result;
12 	}
13 	return result;
14 }
15