1/* s_ldexp0f.c -- float version of s_ldexp0.c. 2 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. 3 */ 4 5/* 6 * ==================================================== 7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 8 * 9 * Developed at SunPro, a Sun Microsystems, Inc. business. 10 * Permission to use, copy, modify, and distribute this 11 * software is freely granted, provided that this notice 12 * is preserved. 13 * ==================================================== 14 */ 15 16#include <sys/cdefs.h> 17#if defined(LIBM_SCCS) && !defined(lint) 18__RCSID("$NetBSD: s_ldexpf.c,v 1.7 2008/04/25 22:21:53 christos Exp $"); 19#endif 20 21#include "namespace.h" 22#include "math.h" 23#include "math_private.h" 24#include <errno.h> 25 26float 27ldexpf(float value, int exp0) 28{ 29 if(!finitef(value)||value==(float)0.0) return value; 30 value = scalbnf(value,exp0); 31 if(!finitef(value)||value==(float)0.0) errno = ERANGE; 32 return value; 33} 34