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  
       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  }