From: ceriel <none@none>
Date: Fri, 12 Jan 1990 11:52:51 +0000 (+0000)
Subject: Fix for PDPFLOAT format
X-Git-Tag: release-5-5~1955
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e2732629bf7e02319767bb86151ba173f2872f7c;p=ack.git

Fix for PDPFLOAT format
---

diff --git a/mach/con_float b/mach/con_float
index 2a0e07eaa..d1cb48148 100644
--- a/mach/con_float
+++ b/mach/con_float
@@ -103,7 +103,11 @@ float_cst(str, sz, buf)
 #ifdef IEEEFLOAT
 	if (sz == 4) {
 #endif
+#ifdef PDPFLOAT
+		e.flt_exp += 129;
+#else
 		e.flt_exp += 127;
+#endif
 		if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0;
 #ifdef IEEEFLOAT
 		if (e.flt_mantissa.flt_h_32 & 0x80) {