/*-
 * Copyright (c) 1991 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)frexp.c	5.1 (Berkeley) 03/06/91";
#endif /* LIBC_SCCS and not lint */

#include <sys/types.h>
#include <math.h>

double
frexp(value, eptr)
	double value;
	int *eptr;
{
	union {
                double v;
                struct {
			u_int u_mant1 :  7;
			u_int   u_exp :  8;
			u_int  u_sign :  1;
			u_int u_mant2 : 16;
			u_int u_mant3 : 32;
                } s;
        } u;

	if (value) {
		u.v = value;
		*eptr = u.s.u_exp - 128;
		u.s.u_exp = 128;
		return(u.v);
	} else {
		*eptr = 0;
		return((double)0);
	}
}