diff options
author | Paul E. Murphy <murphyp@linux.vnet.ibm.com> | 2016-09-02 11:01:07 -0500 |
---|---|---|
committer | Paul E. Murphy <murphyp@linux.vnet.ibm.com> | 2016-09-13 15:33:59 -0500 |
commit | 02bbfb414f367c73196e6f23fa7435a08c92449f (patch) | |
tree | 5f70a6d722dbdb1d716f6cf4b34fd7ca50e62c80 /sysdeps/ieee754/ldbl-128/s_remquol.c | |
parent | fd37b5a78ab215ea2599250ec345e25545410bce (diff) | |
download | glibc-02bbfb414f367c73196e6f23fa7435a08c92449f.tar.gz glibc-02bbfb414f367c73196e6f23fa7435a08c92449f.tar.xz glibc-02bbfb414f367c73196e6f23fa7435a08c92449f.zip |
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.
Diffstat (limited to 'sysdeps/ieee754/ldbl-128/s_remquol.c')
-rw-r--r-- | sysdeps/ieee754/ldbl-128/s_remquol.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sysdeps/ieee754/ldbl-128/s_remquol.c b/sysdeps/ieee754/ldbl-128/s_remquol.c index f22026d35a..5fd0946bd4 100644 --- a/sysdeps/ieee754/ldbl-128/s_remquol.c +++ b/sysdeps/ieee754/ldbl-128/s_remquol.c @@ -87,7 +87,7 @@ __remquol (_Float128 x, _Float128 y, int *quo) } else { - _Float128 y_half = 0.5L * y; + _Float128 y_half = L(0.5) * y; if (x > y_half) { x -= y; @@ -103,8 +103,8 @@ __remquol (_Float128 x, _Float128 y, int *quo) *quo = qs ? -cquo : cquo; /* Ensure correct sign of zero result in round-downward mode. */ - if (x == 0.0L) - x = 0.0L; + if (x == 0) + x = 0; if (sx) x = -x; return x; |