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