s_ldexp.c - vx32 - Local 9vx git repository for patches.
 (HTM) git clone git://r-36.net/vx32
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
       s_ldexp.c (655B)
       ---
            1 /* @(#)s_ldexp.c 5.1 93/09/24 */
            2 /*
            3  * ====================================================
            4  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
            5  *
            6  * Developed at SunPro, a Sun Microsystems, Inc. business.
            7  * Permission to use, copy, modify, and distribute this
            8  * software is freely granted, provided that this notice
            9  * is preserved.
           10  * ====================================================
           11  */
           12 
           13 #include "math.h"
           14 #include "math_private.h"
           15 #include <errno.h>
           16 
           17 double
           18 ldexp(double value, int exp)
           19 {
           20         if(!finite(value)||value==0.0) return value;
           21         value = scalbn(value,exp);
           22         if(!finite(value)||value==0.0) errno = ERANGE;
           23         return value;
           24 }