POK
/home/jaouen/pok_official/pok/trunk/libpok/libm/significand.c
00001 /*
00002  *                               POK header
00003  * 
00004  * The following file is a part of the POK project. Any modification should
00005  * made according to the POK licence. You CANNOT use this file or a part of
00006  * this file is this part of a file for your own project
00007  *
00008  * For more information on the POK licence, please see our LICENCE FILE
00009  *
00010  * Please follow the coding guidelines described in doc/CODING_GUIDELINES
00011  *
00012  *                                      Copyright (c) 2007-2009 POK team 
00013  *
00014  * Created by julien on Fri Jan 30 14:41:34 2009 
00015  */
00016 
00017 /* @(#)s_signif.c 5.1 93/09/24 */
00018 /*
00019  * ====================================================
00020  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
00021  *
00022  * Developed at SunPro, a Sun Microsystems, Inc. business.
00023  * Permission to use, copy, modify, and distribute this
00024  * software is freely granted, provided that this notice
00025  * is preserved.
00026  * ====================================================
00027  */
00028 
00029 #ifdef POK_NEEDS_LIBMATH
00030 
00031 /*
00032  * significand(x) computes just
00033  *      scalb(x, (double) -ilogb(x)),
00034  * for exercising the fraction-part(F) IEEE 754-1985 test vector.
00035  */
00036 
00037 #include <libm.h>
00038 #include "math_private.h"
00039 
00040 double
00041 significand(double x)
00042 {
00043         return __ieee754_scalb(x,(double) -ilogb(x));
00044 }
00045 
00046 #endif