X-Git-Url: https://jxself.org/git/?p=mes.git;a=blobdiff_plain;f=lib%2Fmes%2Fdtoab.c;h=effaf9beff742bb88b6d1e5b055eb359d4be5a23;hp=dc1905039d78a97421865f9ae8fc0fb15959a67b;hb=01ae1994ed162a03b2dbae47669e73dc097d20eb;hpb=3d5557c34a6c6cbfb7c110d6f0b70ea17aed21f3

diff --git a/lib/mes/dtoab.c b/lib/mes/dtoab.c
index dc190503..effaf9be 100644
--- 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)