From e0500490bc92e6e851df6f007b1f0943db305846 Mon Sep 17 00:00:00 2001
From: Jeff Johnston <jjohnstn@redhat.com>
Date: Thu, 17 May 2007 18:50:57 +0000
Subject: 2007-05-17  Yaakov Selkowitz  <yselkowitz <at> users.sourceforge.net>

        * libm/common/Makefile.am: Add support for exp10, exp10f,
        pow10, and pow10f functions.
        * libm/common/Makefile.in: Regenerated.
        * libm/common/s_pow10.c: New file.
        * libm/common/sf_pow10.c: Ditto.
        * libm/common/s_exp10.c: Ditto.
        * libm/common/sf_exp10.c: Ditto.
        * libc/include/math.h [!pow10]: New pow10 prototype.
        [!pow10f]: New pow10f prototype.
        [!exp10]: New exp10 prototype.
        [!exp10f]: New exp10f prototype.
---
 newlib/libm/common/s_exp10.c | 80 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 newlib/libm/common/s_exp10.c

(limited to 'newlib/libm/common/s_exp10.c')

diff --git a/newlib/libm/common/s_exp10.c b/newlib/libm/common/s_exp10.c
new file mode 100644
index 000000000..12f30036e
--- /dev/null
+++ b/newlib/libm/common/s_exp10.c
@@ -0,0 +1,80 @@
+/* @(#)s_exp10.c 5.1 93/09/24 */
+/* Modified from s_exp2.c by Yaakov Selkowitz 2007.  */
+
+/*
+ * ====================================================
+ * 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
+ * is preserved.
+ * ====================================================
+ */
+
+/*
+FUNCTION
+	<<exp10>>, <<exp10f>>---exponential
+INDEX
+	exp10
+INDEX
+	exp10f
+
+ANSI_SYNOPSIS
+	#include <math.h>
+	double exp10(double <[x]>);
+	float exp10f(float <[x]>);
+
+TRAD_SYNOPSIS
+	#include <math.h>
+	double exp10(<[x]>);
+	double <[x]>;
+
+	float exp10f(<[x]>);
+	float <[x]>;
+
+DESCRIPTION
+	<<exp10>> and <<exp10f>> calculate 10 ^ <[x]>, that is, 
+	@ifnottex
+	10 raised to the power <[x]>.
+	@end ifnottex
+	@tex
+	$10^x$
+	@end tex
+
+	You can use the (non-ANSI) function <<matherr>> to specify
+	error handling for these functions.
+
+RETURNS
+	On success, <<exp10>> and <<exp10f>> return the calculated value.
+	If the result underflows, the returned value is <<0>>.  If the
+	result overflows, the returned value is <<HUGE_VAL>>.  In
+	either case, <<errno>> is set to <<ERANGE>>.
+
+PORTABILITY
+	<<exp10>> and <<exp10f>> are GNU extensions.
+
+*/
+
+/*
+ * wrapper exp10(x)
+ */
+
+#undef exp10
+#include "fdlibm.h"
+#include <errno.h>
+#include <math.h>
+
+#ifndef _DOUBLE_IS_32BITS
+
+#ifdef __STDC__
+	double exp10(double x)		/* wrapper exp10 */
+#else
+	double exp10(x)			/* wrapper exp10 */
+	double x;
+#endif
+{
+  return pow(10.0, x);
+}
+
+#endif /* defined(_DOUBLE_IS_32BITS) */
-- 
cgit v1.2.3