/* @(#)s_ldexp.c 5.1 93/09/24 */
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
* Developed at SunPro, a Sun Microsystems, Inc. business.
* Permission to use, copy, modify, and distribute this
* software is freely granted, provided that this notice
* ====================================================
static char rcsid
[] = "$Id: s_ldexp.c,v 1.3 1994/02/18 02:26:40 jtc Exp $";
double ldexp(double value
, int exp
)
if(!finite(value
)||value
==0.0) return value
;
value
= scalbn(value
,exp
);
if(!finite(value
)||value
==0.0) errno
= ERANGE
;