d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

correction

Browse source
This commit is contained in:
ceriel 1989-10-24 14:42:49 +00:00
parent 95cfd33824
commit c246adf1c4
2 changed files with 2 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
modules/src/flt_arith/flt_arith.3
View file

@ -71,12 +71,6 @@ extern int flt_status;
.B flt_b64_sft(m, n) .B flt_b64_sft(m, n)
.B struct flt_mantissa *m; .B struct flt_mantissa *m;
.B int n; .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 .SH DESCRIPTION
This set of routines emulates floating point arithmetic, in a high This set of routines emulates floating point arithmetic, in a high
precision. It is intended primarily for compilers that need to evaluate precision. It is intended primarily for compilers that need to evaluate
@ -253,18 +247,6 @@ If
is negative, it is a left-shift; If is negative, it is a left-shift; If
.I n .I n
is positive, it is a right shift. 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 .SH FILES
~em/modules/h/flt_arith.h ~em/modules/h/flt_arith.h
.br .br

3
modules/src/flt_arith/flt_chk.c
View file

@ -16,12 +16,13 @@ flt_chk(e)
flt_status = FLT_OVFL; flt_status = FLT_OVFL;
e->flt_exp = EXT_MAX; e->flt_exp = EXT_MAX;
e->m1 = 0x80000000; e->m1 = 0x80000000;
e->m2 = 0;
} }
if (e->flt_exp <= EXT_MIN) { if (e->flt_exp <= EXT_MIN) {
flt_status = FLT_UNFL; flt_status = FLT_UNFL;
e->flt_exp = 0; e->flt_exp = 0;
e->m1 = 0; e->m1 = 0;
e->flt_sign = 0; e->flt_sign = 0;
e->m2 = 0;
} }
e->m2 = 0;
} }