This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In frexp+ldexp path simply prefer Uquad_t to UV.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 15 Aug 2014 01:44:44 +0000 (21:44 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 15 Aug 2014 02:38:32 +0000 (22:38 -0400)
sv.c

diff --git a/sv.c b/sv.c
index 073b721..4779204 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11590,14 +11590,11 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                  * at most as many bits as our widest unsigned integer
                  * type is.  We try to get a 64-bit unsigned integer
                  * even if we are not having 64-bit UV. */
-#if UVSIZE == 8
-#  define MANTISSATYPE UV
-#  define MANTISSASIZE UVSIZE
-#elif defined(HAS_QUAD) && defined(Uquad_t)
+#if defined(HAS_QUAD) && defined(Uquad_t)
 #  define MANTISSATYPE Uquad_t
 #  define MANTISSASIZE 8
 #else
-#  define MANTISSATYPE UV /* Will likely lose precision. */
+#  define MANTISSATYPE UV /* May lose precision if UVSIZE is not 8. */
 #  define MANTISSASIZE UVSIZE
 #endif