53 lines
1.1 KiB
C
53 lines
1.1 KiB
C
/* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
|
|
/* { dg-options "-O2" } */
|
|
|
|
/* { dg-final { scan-assembler-not "lfd \(f?\[0-9\]+\),\[^\n\r\]*\[\n\r\]+\[ \t]*fmr f?1,\\1\[\n\r\]+\[ \t]*blr" } } */
|
|
|
|
/* Origin:Pete Steinmetz <steinmtz@us.ibm.com> */
|
|
|
|
/* PR 16796: Extraneous move. */
|
|
|
|
static const double huge = 1.0e300;
|
|
typedef int int64_t __attribute__ ((__mode__ (__DI__)));
|
|
typedef unsigned int u_int64_t __attribute__ ((__mode__ (__DI__)));
|
|
|
|
double __floor(double x)
|
|
{
|
|
union {
|
|
double dbl_val;
|
|
long int long_val;
|
|
} temp;
|
|
|
|
int64_t i0,j0;
|
|
u_int64_t i;
|
|
temp.dbl_val = x;
|
|
i0 = temp.long_val;
|
|
|
|
j0 = ((i0>>52)&0x7ff)-0x3ff;
|
|
if(j0<52) {
|
|
if(j0<0) {
|
|
if(huge+x>0.0) {
|
|
if(i0>=0) {i0=0;}
|
|
else if((i0&0x7fffffffffffffff)!=0)
|
|
{ i0=0xbff0000000000000;}
|
|
}
|
|
} else {
|
|
i = (0x000fffffffffffff)>>j0;
|
|
if((i0&i)==0) return x;
|
|
if(huge+x>0.0) {
|
|
if(i0<0) i0 += (0x0010000000000000)>>j0;
|
|
i0 &= (~i);
|
|
}
|
|
}
|
|
} else {
|
|
if (j0==0x400)
|
|
return x+x;
|
|
else
|
|
return x;
|
|
}
|
|
temp.long_val = i0;
|
|
x = temp.dbl_val;
|
|
return x;
|
|
}
|
|
|