From c246adf1c4c7ba36a78a15f6e341eda60905519d Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 24 Oct 1989 14:42:49 +0000
Subject: [PATCH] correction

---
 modules/src/flt_arith/flt_arith.3 | 18 ------------------
 modules/src/flt_arith/flt_chk.c   |  3 ++-
 2 files changed, 2 insertions(+), 19 deletions(-)

diff --git a/modules/src/flt_arith/flt_arith.3 b/modules/src/flt_arith/flt_arith.3
index 5dfec210d..20769b0d2 100644
--- a/modules/src/flt_arith/flt_arith.3
+++ b/modules/src/flt_arith/flt_arith.3
@@ -71,12 +71,6 @@ extern int	flt_status;
 .B flt_b64_sft(m, n)
 .B struct flt_mantissa *m;
 .B int n;
-.PP
-.B flt_b64_rsft(m)
-.B struct flt_mantissa *m;
-.PP
-.B flt_b64_lsft(m)
-.B struct flt_mantissa *m;
 .SH DESCRIPTION
 This set of routines emulates floating point arithmetic, in a high
 precision. It is intended primarily for compilers that need to evaluate
@@ -253,18 +247,6 @@ If
 is negative, it is a left-shift; If
 .I n
 is positive, it is a right shift.
-.PP
-The routine
-.I flt_b64_rsft
-shifts the mantissa
-.I m
-1 bit right.
-.PP
-The routine
-.I flt_b64_lsft
-shifts the mantissa
-.I m
-1 bit left.
 .SH FILES
 ~em/modules/h/flt_arith.h
 .br
diff --git a/modules/src/flt_arith/flt_chk.c b/modules/src/flt_arith/flt_chk.c
index e7ddcab99..983733441 100644
--- a/modules/src/flt_arith/flt_chk.c
+++ b/modules/src/flt_arith/flt_chk.c
@@ -16,12 +16,13 @@ flt_chk(e)
 		flt_status = FLT_OVFL;
 		e->flt_exp = EXT_MAX;
 		e->m1 = 0x80000000;
+		e->m2 = 0;
 	}
 	if (e->flt_exp <= EXT_MIN) {
 		flt_status = FLT_UNFL;
 		e->flt_exp = 0;
 		e->m1 = 0;
 		e->flt_sign = 0;
+		e->m2 = 0;
 	}
-	e->m2 = 0;
 }