Fix dtoab.

* lib/mes/dtoab.c (dtoab): Fix it.
* lib/tests/mes/90-dtoab.c (main): Fix test.
* build-aux/check-mescc.sh (XFAIL_TESTS: Remove it.

diff --git a/build-aux/check-mescc.sh b/build-aux/check-mescc.sh
index eec0e4ece44dc695456b8c239b553d7b5aa55473..f060da67f0684539644c3b2336d30e773f8ae380 100755 (executable)
--- a/build-aux/check-mescc.sh
+++ b/build-aux/check-mescc.sh
@@ -253,12 +253,6 @@ lib/tests/scaffold/a0-call-trunc-int.c
     fi
 fi
 
-if test $mes_cpu = x86; then
-    XFAIL_TESTS="$XFAIL_TESTS
-lib/tests/mes/90-dtoab.c
-"
-fi
-
 if test $mes_cpu = x86_64; then
     XFAIL_TESTS="$XFAIL_TESTS
 lib/tests/stdio/70-printf-stdarg.c
@@ -272,6 +266,7 @@ lib/tests/mes/90-abtod.c
 
     if test $mes_cpu = x86; then
         XFAIL_TESTS="$XFAIL_TESTS
+lib/tests/mes/90-dtoab.c
 "
     fi
 

diff --git a/lib/mes/dtoab.c b/lib/mes/dtoab.c
index dc1905039d78a97421865f9ae8fc0fb15959a67b..effaf9beff742bb88b6d1e5b055eb359d4be5a23 100644 (file)
--- a/lib/mes/dtoab.c
+++ b/lib/mes/dtoab.c
@@ -29,7 +29,7 @@ dtoab (double d, int base, int signed_p)
   long i = (long) d;
   char *p = ntoab (i, base, signed_p);
   strcpy (dtoa_buf, p);
-  long f = (d - (double) i) * (double) 100000000000;
+  long f = (d - (double) i) * (double) 100000000;
   if (f)
     {
       if (f < 0)

diff --git a/lib/tests/mes/90-dtoab.c b/lib/tests/mes/90-dtoab.c
index 1f7e29d1526e25c8964652e7e40a3409453a219f..f6c1268dba9ac15608f1b1655029893cedb3d200 100644 (file)
--- a/lib/tests/mes/90-dtoab.c
+++ b/lib/tests/mes/90-dtoab.c
@@ -28,7 +28,7 @@ main ()
   char *p = dtoab (d, 10, 1);
   puts (p);
 
-  d = -3.141592653589;
+  d = -3.14159265;
   p = dtoab (d, 10, 1);
   puts (p);
 

diff --git a/lib/tests/mes/90-dtoab.stdout b/lib/tests/mes/90-dtoab.stdout
index 88609219d3ed11e86a9e53714c60c240bcda08f0..e9ef95b2c9d3a8ea177717e86bc9901192f79c38 100644 (file)
--- a/lib/tests/mes/90-dtoab.stdout
+++ b/lib/tests/mes/90-dtoab.stdout
@@ -1,2 +1,2 @@
 1.23
--3.14159265358
+-3.14159265