exponent was wrong in divide routine; corrected

This commit is contained in:
ceriel 1989-07-13 11:18:02 +00:00
parent cee897ecfa
commit b07825aee3

View file

@ -31,7 +31,7 @@ flt_div(e1,e2,e3)
e3->flt_sign = 0; e3->flt_sign = 0;
return; return;
} }
e3->flt_exp = e1->flt_exp - e2->flt_exp + 2; e3->flt_exp = e1->flt_exp - e2->flt_exp;
u[4] = (e1->m2 & 1) << 15; u[4] = (e1->m2 & 1) << 15;
flt_b64_rsft(&(e1->flt_mantissa)); flt_b64_rsft(&(e1->flt_mantissa));