Module Name:    src
Committed By:   joerg
Date:           Tue Nov 12 17:36:14 UTC 2013

Modified Files:
        src/lib/libm: Makefile
        src/lib/libm/src: namespace.h
Added Files:
        src/lib/libm/src: ldbl_dummy.c

Log Message:
Add some fake long double -> double wrappers for various transcendental
functions. They are expected to be implement properly at a later time.


To generate a diff of this commit:
cvs rdiff -u -r1.146 -r1.147 src/lib/libm/Makefile
cvs rdiff -u -r0 -r1.1 src/lib/libm/src/ldbl_dummy.c
cvs rdiff -u -r1.7 -r1.8 src/lib/libm/src/namespace.h

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.

Modified files:

Index: src/lib/libm/Makefile
diff -u src/lib/libm/Makefile:1.146 src/lib/libm/Makefile:1.147
--- src/lib/libm/Makefile:1.146	Tue Nov 12 16:48:39 2013
+++ src/lib/libm/Makefile	Tue Nov 12 17:36:14 2013
@@ -1,4 +1,4 @@
-#  $NetBSD: Makefile,v 1.146 2013/11/12 16:48:39 joerg Exp $
+#  $NetBSD: Makefile,v 1.147 2013/11/12 17:36:14 joerg Exp $
 #
 #  @(#)Makefile 5.1beta 93/09/24
 #
@@ -159,6 +159,7 @@ COMMON_SRCS+= b_exp.c b_log.c b_tgamma.c
 	e_scalbf.c e_sinh.c e_sinhf.c e_sqrt.c e_sqrtf.c \
 	k_cos.c k_cosf.c k_rem_pio2.c k_rem_pio2f.c k_sin.c k_sinf.c \
 	k_standard.c k_tan.c k_tanf.c \
+	ldbl_dummy.c \
 	s_asinh.c s_asinhf.c s_atan.c s_atanf.c s_cbrt.c s_cbrtf.c \
 	s_ceil.c s_ceilf.c s_ceill.c s_copysign.c s_copysignf.c s_copysignl.c \
 	s_cos.c s_cosf.c s_erf.c \

Index: src/lib/libm/src/namespace.h
diff -u src/lib/libm/src/namespace.h:1.7 src/lib/libm/src/namespace.h:1.8
--- src/lib/libm/src/namespace.h:1.7	Tue Nov 12 16:48:39 2013
+++ src/lib/libm/src/namespace.h	Tue Nov 12 17:36:14 2013
@@ -1,4 +1,4 @@
-/* $NetBSD: namespace.h,v 1.7 2013/11/12 16:48:39 joerg Exp $ */
+/* $NetBSD: namespace.h,v 1.8 2013/11/12 17:36:14 joerg Exp $ */
 
 #define atan2 _atan2
 #define atan2f _atan2f
@@ -50,3 +50,18 @@
 #define floorl _floorl
 #define roundl _roundl
 #define fmodl _fmodl
+
+#define exp2l _exp2l
+#define cosl _cosl
+#define sinl _sinl
+#define tanl _tanl
+#define powl _powl
+#define coshl _coshl
+#define sinhl _sinhl
+#define acosl _acosl
+#define atanl _atanl
+#define asinhl _asinhl
+#define acoshl _acoshl
+#define tanhl _tanhl
+#define atanhl _atanhl
+#define log10l _log10l

Added files:

Index: src/lib/libm/src/ldbl_dummy.c
diff -u /dev/null src/lib/libm/src/ldbl_dummy.c:1.1
--- /dev/null	Tue Nov 12 17:36:14 2013
+++ src/lib/libm/src/ldbl_dummy.c	Tue Nov 12 17:36:14 2013
@@ -0,0 +1,175 @@
+/* $NetBSD: ldbl_dummy.c,v 1.1 2013/11/12 17:36:14 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2013 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * Simple long double -> double wrappers for various transcendental functions.
+ * They work neither on the additional range of long double nor do they use
+ * the additional precision. They exist as stop gap fix for various programs
+ * picking up long double, e.g. via the C++ run time.
+ */
+
+#include <sys/cdefs.h>
+__RCSID("$NetBSD: ldbl_dummy.c,v 1.1 2013/11/12 17:36:14 joerg Exp $");
+
+#include "namespace.h"
+#include <math.h>
+
+__weak_alias(atan2l, _atan2l)
+__weak_alias(hypotl, _hypotl)
+__weak_alias(logl, _logl)
+__weak_alias(log10l, _log10l)
+__weak_alias(expl, _expl)
+__weak_alias(exp2l, _exp2l)
+__weak_alias(powl, _powl)
+__weak_alias(cosl, _cosl)
+__weak_alias(sinl, _sinl)
+__weak_alias(tanl, _tanl)
+__weak_alias(coshl, _coshl)
+__weak_alias(sinhl, _sinhl)
+__weak_alias(tanhl, _tanhl)
+__weak_alias(acosl, _acosl)
+__weak_alias(asinl, _asinl)
+__weak_alias(atanl, _atanl)
+__weak_alias(acoshl, _acoshl)
+__weak_alias(asinhl, _asinhl)
+__weak_alias(atanhl, _atanhl)
+
+long double
+atan2l(long double y, long double x)
+{
+	return atan2(y, x);
+}
+
+long double
+hypotl(long double x, long double y)
+{
+	return hypot(x, y);
+}
+
+long double
+logl(long double x)
+{
+	return log(x);
+}
+
+long double
+log10l(long double x)
+{
+	return log10(x);
+}
+
+long double
+expl(long double x)
+{
+	return exp(x);
+}
+
+long double
+exp2l(long double x)
+{
+	return exp2(x);
+}
+
+long double
+powl(long double x, long double y)
+{
+	return pow(x, y);
+}
+
+long double
+cosl(long double x)
+{
+	return cos(x);
+}
+
+long double
+sinl(long double x)
+{
+	return sin(x);
+}
+
+
+long double
+tanl(long double x)
+{
+	return tan(x);
+}
+
+long double
+sinhl(long double x)
+{
+	return sinh(x);
+}
+
+long double
+coshl(long double x)
+{
+	return cosh(x);
+}
+
+long double
+tanhl(long double x)
+{
+	return tanh(x);
+}
+
+long double
+acosl(long double x)
+{
+	return acos(x);
+}
+
+long double
+asinl(long double x)
+{
+	return asin(x);
+}
+
+long double
+atanl(long double x)
+{
+	return atan(x);
+}
+
+long double
+asinhl(long double x)
+{
+	return asinh(x);
+}
+
+long double
+acoshl(long double x)
+{
+	return acosh(x);
+}
+
+long double
+atanhl(long double x)
+{
+	return atanh(x);
+}

Reply via email to