Re: [ID 20010529.006] String plus zero inconsistent across platforms

Message-Id: <200106051158.MAA04605@crypt.compulink.co.uk>

p4raw-id: //depot/perl@10445

diff --git a/util.c b/util.c
index f40f5b9..e034c33 100644 (file)
--- a/util.c
+++ b/util.c
@@ -4036,30 +4036,25 @@ Perl_my_atof(pTHX_ const char* s)
 NV
 S_mulexp10(NV value, I32 exponent)
 {
-    NV result = value;
+    NV result = 1.0;
     NV power = 10.0;
+    bool negative = 0;
     I32 bit;
 
-    if (exponent > 0) {
-       for (bit = 1; exponent; bit <<= 1) {
-           if (exponent & bit) {
-               exponent ^= bit;
-               result *= power;
-           }
-           power *= power;
-       }
-    }
+    if (exponent == 0)
+       return value;
     else if (exponent < 0) {
+       negative = 1;
        exponent = -exponent;
-       for (bit = 1; exponent; bit <<= 1) {
-           if (exponent & bit) {
-               exponent ^= bit;
-               result /= power;
-           }
-           power *= power;
+    }
+    for (bit = 1; exponent; bit <<= 1) {
+       if (exponent & bit) {
+           exponent ^= bit;
+           result *= power;
        }
+       power *= power;
     }
-    return result;
+    return negative ? value / result : value * result;
 }
 
 char*