made to work, and added the b64 shift routines to the interface

This commit is contained in:
ceriel
1989-07-11 09:15:17 +00:00
parent a7b5504034
commit 1e9c82d6e5
14 changed files with 149 additions and 97 deletions

View File

@@ -26,7 +26,7 @@ flt_modf(e, ipart, fpart)
}
*ipart = *e;
/* "loose" low order bits */
b64_sft(&(ipart->flt_mantissa), 63 - e->flt_exp);
b64_sft(&(ipart->flt_mantissa), e->flt_exp - 63);
flt_b64_sft(&(ipart->flt_mantissa), 63 - e->flt_exp);
flt_b64_sft(&(ipart->flt_mantissa), e->flt_exp - 63);
flt_sub(e, ipart, fpart);
}