Subversion Repositories openrisc

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

}