+++ /dev/null
-/* @(#)s_ldexp.c 5.1 93/09/24 */\r
-/*\r
- * ====================================================\r
- * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\r
- *\r
- * Developed at SunPro, a Sun Microsystems, Inc. business.\r
- * Permission to use, copy, modify, and distribute this\r
- * software is freely granted, provided that this notice\r
- * is preserved.\r
- * ====================================================\r
- */\r
-#include <LibConfig.h>\r
-#include <sys/EfiCdefs.h>\r
-#if defined(LIBM_SCCS) && !defined(lint)\r
-__RCSID("$NetBSD: s_ldexp.c,v 1.9 2002/05/26 22:01:56 wiz Exp $");\r
-#endif\r
-\r
-#include <errno.h>\r
-#include "math.h"\r
-#include "math_private.h"\r
-\r
-double\r
-ldexp(double value, int exp)\r
-{\r
- if(!finite(value)||value==0.0) return value;\r
- value = scalbn(value,exp);\r
- if(!finite(value)||value==0.0) errno = ERANGE;\r
- return value;\r
-}\r