From c2af3d7faa6bfda7dcf490b7be773e14b50b4084 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 1 Jul 1988 11:56:08 +0000
Subject: [PATCH] allow for three digits in exponent

---
 lang/cem/libcc/stdio/fltpr.c | 4 ++++
 1 file changed, 4 insertions(+)

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);
-- 
2.34.1