From: ceriel <none@none>
Date: Fri, 6 Feb 1987 14:50:57 +0000 (+0000)
Subject: bug fix
X-Git-Tag: release-5-5~4727
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=254364ca11a9e3b499cb2d20b9abf15483e71ef8;p=ack.git

bug fix
---

diff --git a/lang/cem/libcc/gen/ecvt.c b/lang/cem/libcc/gen/ecvt.c
index 478d54238..3d5147670 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) {
+	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) {