Fix dtoab.

[mes.git] / lib / mes / dtoab.c

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)