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 5double *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