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