modules/src/flt_arith/split.c

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