diff options
author | ed <ed@FreeBSD.org> | 2010-11-11 15:13:11 +0000 |
---|---|---|
committer | ed <ed@FreeBSD.org> | 2010-11-11 15:13:11 +0000 |
commit | 870837e3e92f721a44db51308f2b900d928fb04f (patch) | |
tree | 9f851f7f6da4a4d9010d26bf17881d3bc5320f2b /contrib/compiler-rt/lib/ppc/floatunditf.c | |
parent | a1b6fa69a6f674978270e402b8bba6552e152066 (diff) | |
parent | 653bb6745595746d04ad4acacaaab66caaaeb69b (diff) | |
download | FreeBSD-src-870837e3e92f721a44db51308f2b900d928fb04f.zip FreeBSD-src-870837e3e92f721a44db51308f2b900d928fb04f.tar.gz |
Import libcompiler_rt into HEAD and add Makefiles.
Obtained from: user/ed/compiler-rt
Diffstat (limited to 'contrib/compiler-rt/lib/ppc/floatunditf.c')
-rw-r--r-- | contrib/compiler-rt/lib/ppc/floatunditf.c | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/contrib/compiler-rt/lib/ppc/floatunditf.c b/contrib/compiler-rt/lib/ppc/floatunditf.c new file mode 100644 index 0000000..20a3b71 --- /dev/null +++ b/contrib/compiler-rt/lib/ppc/floatunditf.c @@ -0,0 +1,42 @@ +/* This file is distributed under the University of Illinois Open Source + * License. See LICENSE.TXT for details. + */ + +/* long double __floatunditf(unsigned long long x); */ +/* This file implements the PowerPC unsigned long long -> long double conversion */ + +#include "DD.h" +#include <stdint.h> + +long double __floatunditf(uint64_t a) { + + /* Begins with an exact copy of the code from __floatundidf */ + + static const double twop52 = 0x1.0p52; + static const double twop84 = 0x1.0p84; + static const double twop84_plus_twop52 = 0x1.00000001p84; + + doublebits high = { .d = twop84 }; + doublebits low = { .d = twop52 }; + + high.x |= a >> 32; /* 0x1.0p84 + high 32 bits of a */ + low.x |= a & UINT64_C(0x00000000ffffffff); /* 0x1.0p52 + low 32 bits of a */ + + const double high_addend = high.d - twop84_plus_twop52; + + /* At this point, we have two double precision numbers + * high_addend and low.d, and we wish to return their sum + * as a canonicalized long double: + */ + + /* This implementation sets the inexact flag spuriously. */ + /* This could be avoided, but at some substantial cost. */ + + DD result; + + result.s.hi = high_addend + low.d; + result.s.lo = (high_addend - result.s.hi) + low.d; + + return result.ld; + +} |