From: ceriel <none@none>
Date: Fri, 1 Jul 1988 11:56:08 +0000 (+0000)
Subject: allow for three digits in exponent
X-Git-Tag: release-5-5~3118
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=c2af3d7faa6bfda7dcf490b7be773e14b50b4084;p=ack.git

allow for three digits in exponent
---

diff --git a/lang/cem/libcc/stdio/fltpr.c b/lang/cem/libcc/stdio/fltpr.c
index fbfdaa725..7d45a2f9f 100644
--- a/lang/cem/libcc/stdio/fltpr.c
+++ b/lang/cem/libcc/stdio/fltpr.c
@@ -57,6 +57,10 @@ char *_pscien(r,s,n,b) float r; register char *s; {
 	} else {
 		*s++ = '+' ;
 	}
+	if (dp >= 100) {
+		*s++ = '0' + (dp / 100);
+		dp %= 100;
+	}
 	*s++ = '0' + (dp/10);
 	*s++ = '0' + (dp%10);
 	return(s);