[src/trunk]: src/lib/libm/src libm: Fill in more dummy long double transcende...

[riastradh <riastradh%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/837b8038c3a4
branches:  trunk
changeset: 373875:837b8038c3a4
user:      riastradh <riastradh%NetBSD.org@localhost>
date:      Mon Mar 13 18:18:36 2023 +0000

description:
libm: Fill in more dummy long double transcendental functions.

This should cover everything from C99.

diffstat:

 lib/libm/src/ldbl_dummy.c |  39 +++++++++++++++++++++++++++++++++++++--
 1 files changed, 37 insertions(+), 2 deletions(-)

diffs (87 lines):

diff -r 9ba0e5a7a0c4 -r 837b8038c3a4 lib/libm/src/ldbl_dummy.c
--- a/lib/libm/src/ldbl_dummy.c Mon Mar 13 18:13:18 2023 +0000
+++ b/lib/libm/src/ldbl_dummy.c Mon Mar 13 18:18:36 2023 +0000
@@ -1,4 +1,4 @@
-/* $NetBSD: ldbl_dummy.c,v 1.2 2014/11/13 21:43:27 christos Exp $ */
+/* $NetBSD: ldbl_dummy.c,v 1.3 2023/03/13 18:18:36 riastradh Exp $ */
 
 /*-
  * Copyright (c) 2013 The NetBSD Foundation, Inc.
@@ -34,7 +34,7 @@
  */
 
 #include <sys/cdefs.h>
-__RCSID("$NetBSD: ldbl_dummy.c,v 1.2 2014/11/13 21:43:27 christos Exp $");
+__RCSID("$NetBSD: ldbl_dummy.c,v 1.3 2023/03/13 18:18:36 riastradh Exp $");
 
 #include "namespace.h"
 #include <math.h>
@@ -43,8 +43,11 @@
 __weak_alias(hypotl, _hypotl)
 __weak_alias(logl, _logl)
 __weak_alias(log10l, _log10l)
+__weak_alias(log2l, _log2l)
+__weak_alias(log1pl, _log1pl)
 __weak_alias(expl, _expl)
 __weak_alias(exp2l, _exp2l)
+__weak_alias(expm1l, _expm1l)
 __weak_alias(powl, _powl)
 __weak_alias(cosl, _cosl)
 __weak_alias(sinl, _sinl)
@@ -60,6 +63,8 @@
 __weak_alias(atanhl, _atanhl)
 __weak_alias(erfl, _erfl)
 __weak_alias(erfcl, _erfcl)
+__weak_alias(lgammal, _lgammal)
+__weak_alias(tgammal, _tgammal)
 
 long double
 atan2l(long double y, long double x)
@@ -86,6 +91,18 @@
 }
 
 long double
+log2l(long double x)
+{
+       return log2(x);
+}
+
+long double
+log1pl(long double x)
+{
+       return log1p(x);
+}
+
+long double
 expl(long double x)
 {
        return exp(x);
@@ -98,6 +115,12 @@
 }
 
 long double
+expm1l(long double x)
+{
+       return expm1(x);
+}
+
+long double
 powl(long double x, long double y)
 {
        return pow(x, y);
@@ -187,3 +210,15 @@
 {
        return erfc(x);
 }
+
+long double
+lgammal(long double x)
+{
+       return lgamma(x);
+}
+
+long double
+tgammal(long double x)
+{
+       return tgamma(x);
+}