correction

diff --git a/modules/src/flt_arith/flt_arith.3 b/modules/src/flt_arith/flt_arith.3
index 5dfec21..20769b0 100644 (file)
--- 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 e7ddcab..9837334 100644 (file)
--- 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;
 }