diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/e_powl.c')
-rw-r--r-- | sysdeps/ieee754/ldbl-128/e_powl.c | 76 |
1 files changed, 38 insertions, 38 deletions
diff --git a/sysdeps/ieee754/ldbl-128/e_powl.c b/sysdeps/ieee754/ldbl-128/e_powl.c index b090ebd567..e6cd9751c2 100644 --- a/sysdeps/ieee754/ldbl-128/e_powl.c +++ b/sysdeps/ieee754/ldbl-128/e_powl.c @@ -68,28 +68,28 @@ #include <math_private.h> static const _Float128 bp[] = { - 1.0L, - 1.5L, + 1, + L(1.5), }; /* log_2(1.5) */ static const _Float128 dp_h[] = { 0.0, - 5.8496250072115607565592654282227158546448E-1L + L(5.8496250072115607565592654282227158546448E-1) }; /* Low part of log_2(1.5) */ static const _Float128 dp_l[] = { 0.0, - 1.0579781240112554492329533686862998106046E-16L + L(1.0579781240112554492329533686862998106046E-16) }; -static const _Float128 zero = 0.0L, - one = 1.0L, - two = 2.0L, - two113 = 1.0384593717069655257060992658440192E34L, - huge = 1.0e3000L, - tiny = 1.0e-3000L; +static const _Float128 zero = 0, + one = 1, + two = 2, + two113 = L(1.0384593717069655257060992658440192E34), + huge = L(1.0e3000), + tiny = L(1.0e-3000); /* 3/2 log x = 3 z + z^3 + z^3 (z^2 R(z^2)) z = (x-1)/(x+1) @@ -97,19 +97,19 @@ static const _Float128 zero = 0.0L, Peak relative error 2.3e-37 */ static const _Float128 LN[] = { - -3.0779177200290054398792536829702930623200E1L, - 6.5135778082209159921251824580292116201640E1L, - -4.6312921812152436921591152809994014413540E1L, - 1.2510208195629420304615674658258363295208E1L, - -9.9266909031921425609179910128531667336670E-1L + L(-3.0779177200290054398792536829702930623200E1), + L(6.5135778082209159921251824580292116201640E1), + L(-4.6312921812152436921591152809994014413540E1), + L(1.2510208195629420304615674658258363295208E1), + L(-9.9266909031921425609179910128531667336670E-1) }; static const _Float128 LD[] = { - -5.129862866715009066465422805058933131960E1L, - 1.452015077564081884387441590064272782044E2L, - -1.524043275549860505277434040464085593165E2L, - 7.236063513651544224319663428634139768808E1L, - -1.494198912340228235853027849917095580053E1L + L(-5.129862866715009066465422805058933131960E1), + L(1.452015077564081884387441590064272782044E2), + L(-1.524043275549860505277434040464085593165E2), + L(7.236063513651544224319663428634139768808E1), + L(-1.494198912340228235853027849917095580053E1) /* 1.0E0 */ }; @@ -118,31 +118,31 @@ static const _Float128 LD[] = Peak relative error 5.7e-38 */ static const _Float128 PN[] = { - 5.081801691915377692446852383385968225675E8L, - 9.360895299872484512023336636427675327355E6L, - 4.213701282274196030811629773097579432957E4L, - 5.201006511142748908655720086041570288182E1L, - 9.088368420359444263703202925095675982530E-3L, + L(5.081801691915377692446852383385968225675E8), + L(9.360895299872484512023336636427675327355E6), + L(4.213701282274196030811629773097579432957E4), + L(5.201006511142748908655720086041570288182E1), + L(9.088368420359444263703202925095675982530E-3), }; static const _Float128 PD[] = { - 3.049081015149226615468111430031590411682E9L, - 1.069833887183886839966085436512368982758E8L, - 8.259257717868875207333991924545445705394E5L, - 1.872583833284143212651746812884298360922E3L, + L(3.049081015149226615468111430031590411682E9), + L(1.069833887183886839966085436512368982758E8), + L(8.259257717868875207333991924545445705394E5), + L(1.872583833284143212651746812884298360922E3), /* 1.0E0 */ }; static const _Float128 /* ln 2 */ - lg2 = 6.9314718055994530941723212145817656807550E-1L, - lg2_h = 6.9314718055994528622676398299518041312695E-1L, - lg2_l = 2.3190468138462996154948554638754786504121E-17L, - ovt = 8.0085662595372944372e-0017L, + lg2 = L(6.9314718055994530941723212145817656807550E-1), + lg2_h = L(6.9314718055994528622676398299518041312695E-1), + lg2_l = L(2.3190468138462996154948554638754786504121E-17), + ovt = L(8.0085662595372944372e-0017), /* 2/(3*log(2)) */ - cp = 9.6179669392597560490661645400126142495110E-1L, - cp_h = 9.6179669392597555432899980587535537779331E-1L, - cp_l = 5.0577616648125906047157785230014751039424E-17L; + cp = L(9.6179669392597560490661645400126142495110E-1), + cp_h = L(9.6179669392597555432899980587535537779331E-1), + cp_l = L(5.0577616648125906047157785230014751039424E-17); _Float128 __ieee754_powl (_Float128 x, _Float128 y) @@ -171,7 +171,7 @@ __ieee754_powl (_Float128 x, _Float128 y) /* 1.0**y = 1; -1.0**+-Inf = 1 */ if (x == one) return one; - if (x == -1.0L && iy == 0x7fff0000 + if (x == -1 && iy == 0x7fff0000 && (q.parts32.w1 | q.parts32.w2 | q.parts32.w3) == 0) return one; @@ -411,7 +411,7 @@ __ieee754_powl (_Float128 x, _Float128 y) n = 0; if (i > 0x3ffe0000) { /* if |z| > 0.5, set n = [z+0.5] */ - n = __floorl (z + 0.5L); + n = __floorl (z + L(0.5)); t = n; p_h -= t; } |