2021-10-11 18:20:23 -03:00

21 lines
360 B
C

#ifndef lint
static char sccsid[] = "@(#)ldexp.c 1.1 92/07/30 SMI";
#endif
/*
* Copyright (c) 1986 by Sun Microsystems, Inc.
*/
#include <math.h>
#include <errno.h>
double ldexp(value, exp)
double value; int exp;
{
if(!finite(value)||value==0.0) return value;
value = scalbn(value,exp);
if(!finite(value)||value==0.0) errno = ERANGE;
return value;
}