summaryrefslogtreecommitdiff
path: root/newlib/libm/mathfp/s_log.c
diff options
context:
space:
mode:
authorChristopher Faylor <cgf@redhat.com>2000-02-17 19:39:46 +0000
committerChristopher Faylor <cgf@redhat.com>2000-02-17 19:39:46 +0000
commit6d491d8ad9122891d1a48447e8c49702eb678921 (patch)
tree45619a131b9f211ceca9fce7a866328344bf00ec /newlib/libm/mathfp/s_log.c
parentbd592806f45307757c24ec3f75bdefe13abfd51f (diff)
downloadgdb-cvs/SNAPSHOT.tar.gz
import newlib-2000-02-17 snapshotcvs/SNAPSHOT
Diffstat (limited to 'newlib/libm/mathfp/s_log.c')
-rw-r--r--newlib/libm/mathfp/s_log.c29
1 files changed, 29 insertions, 0 deletions
diff --git a/newlib/libm/mathfp/s_log.c b/newlib/libm/mathfp/s_log.c
new file mode 100644
index 00000000000..27b959831aa
--- /dev/null
+++ b/newlib/libm/mathfp/s_log.c
@@ -0,0 +1,29 @@
+
+/* @(#)z_log.c 1.0 98/08/13 */
+/******************************************************************
+ * Logarithm
+ *
+ * Input:
+ * x - floating point value
+ *
+ * Output:
+ * natural logarithm of x
+ *
+ * Description:
+ * This routine returns the natural logarithm of x.
+ *
+ *****************************************************************/
+
+#include "fdlibm.h"
+#include "zmath.h"
+
+#ifndef _DOUBLE_IS_32BITS
+
+double
+_DEFUN (log, (double),
+ double x)
+{
+ return (logarithm (x, 0));
+}
+
+#endif /* _DOUBLE_IS_32BITS */