split.c 295 B

1234567891011121314151617
  1. /* $Id$ */
  2. #include "flt_misc.h"
  3. void
  4. flt_split(e, p)
  5. register flt_arith *e;
  6. register unsigned short *p;
  7. {
  8. /* Split mantissa of e into the array p
  9. */
  10. p[0] = (int)(e->m1 >> 16) & 0xFFFF;
  11. p[1] = (int)(e->m1) & 0xFFFF;
  12. p[2] = (int)(e->m2 >> 16) & 0xFFFF;
  13. p[3] = (int)(e->m2) & 0xFFFF;
  14. }