POK
/home/jaouen/pok_official/pok/trunk/libpok/libm/finite.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_finite.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 /*
00030  * finite(x) returns 1 is x is finite, else 0;
00031  * no branching!
00032  */
00033 
00034 #ifdef POK_NEEDS_LIBMATH
00035 
00036 #include <libm.h>
00037 #include "math_private.h"
00038 
00039 int
00040 finite(double x)
00041 {
00042         int32_t hx;
00043         GET_HIGH_WORD(hx,x);
00044         return (int)((uint32_t)((hx&0x7fffffff)-0x7ff00000)>>31);
00045 }
00046 
00047 #endif