From: ceriel <none@none>
Date: Wed, 29 Nov 1989 09:56:59 +0000 (+0000)
Subject: rounding for un-normalized numbers was wrong
X-Git-Tag: release-5-5~2030
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=cd64ce042423dc8d91248be25361ccbd79f13a41;p=ack.git

rounding for un-normalized numbers was wrong
---

diff --git a/mach/proto/fp/compact.c b/mach/proto/fp/compact.c
index c2dea192d..a12119885 100644
--- a/mach/proto/fp/compact.c
+++ b/mach/proto/fp/compact.c
@@ -166,7 +166,7 @@ sgl_over:			trap(EFOVFL);
 			    || ((f->m1 & SGL_EXACT) == SGL_ROUNDUP
 			        && (f->m1 & (SGL_ROUNDUP << 1)))) {
 				SGL->fract++;
-				if (f->exp == 0 && (f->m1 & ~SGL_MASK)) {
+				if (f->exp == 0 && (SGL->fract & ~SGL_MASK)) {
 					f->exp++;
 				}
 			/* check normal */