15 lines
379 B
C
15 lines
379 B
C
/* 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;
|
|
}
|