1989-10-16 17:56:36 +00:00
|
|
|
/* $Header$ */
|
|
|
|
|
|
1991-02-19 13:53:04 +00:00
|
|
|
#include "flt_misc.h"
|
1989-10-16 17:56:36 +00:00
|
|
|
|
|
|
|
|
flt_split(e, p)
|
|
|
|
|
register flt_arith *e;
|
|
|
|
|
register unsigned short *p;
|
|
|
|
|
{
|
|
|
|
|
/* Split mantissa of e into the array p
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
p[0] = (int)(e->m1 >> 16) & 0xFFFF;
|
|
|
|
|
p[1] = (int)(e->m1) & 0xFFFF;
|
|
|
|
|
p[2] = (int)(e->m2 >> 16) & 0xFFFF;
|
|
|
|
|
p[3] = (int)(e->m2) & 0xFFFF;
|
|
|
|
|
}
|
