bug fix

diff --git a/lang/cem/libcc/gen/ecvt.c b/lang/cem/libcc/gen/ecvt.c
index 478d542..3d51476 100644 (file)
--- a/lang/cem/libcc/gen/ecvt.c
+++ b/lang/cem/libcc/gen/ecvt.c
@@ -61,13 +61,15 @@ cvt(value, ndigit, decpt, sign, ecvtflag)
                pb = buf;
                while (pe > buf1) *pb++ = *--pe;
        }
-       else if (value > 0) {
-               fractpart = value;
-               while ((value = value*10) < 1) {
+       else {
+               pb = &buf[0];
+               if (value > 0) {
                        fractpart = value;
-                       pointpos--;
+                       while ((value = value*10) < 1) {
+                               fractpart = value;
+                               pointpos--;
+                       }
                }
-               pb = &buf[0];
        }
        pe = &buf[ndigit];
        if (! ecvtflag) {