ldbl-128: Use L(x) macro for long double constants

This runs the attached sed script against these files using
a regex which aggressively matches long double literals
when not obviously part of a comment.

Likewise, 5 digit or less integral constants are replaced
with integer constants, excepting the two cases of 0 used
in large tables, which are also the only integral values
of the form x.0*E0L encountered within these converted
files.

Likewise, -L(x) is transformed into L(-x).

Naturally, the script has a few minor hiccups which are
more clearly remedied via the attached fixup patch.  Such
hiccups include, context-sensitive promotion to a real
type, and munging constants inside harder to detect
comment blocks.

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 b090ebd..e6cd975 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;
     }