From abb48b7aa8940a0eca25da6b8e6c3610c2309acf Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Fri, 6 Feb 1987 14:50:57 +0000
Subject: [PATCH] bug fix

---
 lang/cem/libcc/gen/ecvt.c | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/lang/cem/libcc/gen/ecvt.c b/lang/cem/libcc/gen/ecvt.c
index 478d5423..3d514767 100644
--- 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) {
-			fractpart = value;
-			pointpos--;
-		}
+	else {
 		pb = &buf[0];
+		if (value > 0) {
+			fractpart = value;
+			while ((value = value*10) < 1) {
+				fractpart = value;
+				pointpos--;
+			}
+		}
 	}
 	pe = &buf[ndigit];
 	if (! ecvtflag) {