mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-06-27 06:48:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Release Cosmopolitan v3.3

Browse source 
This change upgrades to GCC 12.3 and GNU binutils 2.42. The GNU linker
appears to have changed things so that only a single de-duplicated str
table is present in the binary, and it gets placed wherever the linker
wants, regardless of what the linker script says. To cope with that we
need to stop using .ident to embed licenses. As such, this change does
significant work to revamp how third party licenses are defined in the
codebase, using `.section .notice,"aR",@progbits`.

This new GCC 12.3 toolchain has support for GNU indirect functions. It
lets us support __target_clones__ for the first time. This is used for
optimizing the performance of libc string functions such as strlen and
friends so far on x86, by ensuring AVX systems favor a second codepath
that uses VEX encoding. It shaves some latency off certain operations.
It's a useful feature to have for scientific computing for the reasons
explained by the test/libcxx/openmp_test.cc example which compiles for
fifteen different microarchitectures. Thanks to the upgrades, it's now
also possible to use newer instruction sets, such as AVX512FP16, VNNI.

Cosmo now uses the %gs register on x86 by default for TLS. Doing it is
helpful for any program that links `cosmo_dlopen()`. Such programs had
to recompile their binaries at startup to change the TLS instructions.
That's not great, since it means every page in the executable needs to
be faulted. The work of rewriting TLS-related x86 opcodes, is moved to
fixupobj.com instead. This is great news for MacOS x86 users, since we
previously needed to morph the binary every time for that platform but
now that's no longer necessary. The only platforms where we need fixup
of TLS x86 opcodes at runtime are now Windows, OpenBSD, and NetBSD. On
Windows we morph TLS to point deeper into the TIB, based on a TlsAlloc
assignment, and on OpenBSD/NetBSD we morph %gs back into %fs since the
kernels do not allow us to specify a value for the %gs register.

OpenBSD users are now required to use APE Loader to run Cosmo binaries
and assimilation is no longer possible. OpenBSD kernel needs to change
to allow programs to specify a value for the %gs register, or it needs
to stop marking executable pages loaded by the kernel as mimmutable().

This release fixes __constructor__, .ctor, .init_array, and lastly the
.preinit_array so they behave the exact same way as glibc.

We no longer use hex constants to define math.h symbols like M_PI.
This commit is contained in:
Justine Tunney 2024-02-20 11:12:09 -08:00
parent d3ff48c63f
commit 957c61cbbf
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
736 changed files with 13726 additions and 9445 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libc/tinymath/.clang-format Normal file
View file

@ -0,0 +1,2 @@
DisableFormat: true
SortIncludes: Never

7
libc/tinymath/__cexp.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/k_exp.c */
/*-

8
libc/tinymath/__cexpf.c
View file

@ -28,12 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/k_expf.c */
/*-

1
libc/tinymath/__math_divzero.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
double __math_divzero(uint32_t sign)
{

1
libc/tinymath/__math_divzerof.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
float __math_divzerof(uint32_t sign)
{

1
libc/tinymath/__math_invalid.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
double __math_invalid(double x)
{

1
libc/tinymath/__math_invalidf.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
float __math_invalidf(float x)
{

1
libc/tinymath/__math_oflow.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
dontinstrument double __math_oflow(uint32_t sign)
{

1
libc/tinymath/__math_oflowf.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
dontinstrument float __math_oflowf(uint32_t sign)
{

1
libc/tinymath/__math_uflow.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
dontinstrument double __math_uflow(uint32_t sign)
{

1
libc/tinymath/__math_uflowf.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
dontinstrument float __math_uflowf(uint32_t sign)
{

1
libc/tinymath/__math_xflow.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
dontinstrument double __math_xflow(uint32_t sign, double y)
{

1
libc/tinymath/__math_xflowf.c
View file

@ -26,7 +26,6 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/internal.h"
// clang-format off
dontinstrument float __math_xflowf(uint32_t sign, float y)
{

8
libc/tinymath/acos.c
View file

@ -27,11 +27,9 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/e_acos.c */
/*

8
libc/tinymath/acosf.c
View file

@ -28,11 +28,9 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/e_acosf.c */
/*

7
libc/tinymath/acosh.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic cosine of 𝑥.

7
libc/tinymath/acoshf.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic cosine of 𝑥.

11
libc/tinymath/acoshl.c
View file

@ -39,15 +39,8 @@
#include "libc/math.h"
#include "libc/tinymath/freebsd.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("freebsd_libm_notice");
/* EXP_LARGE is the threshold above which we use acosh(x) ~= log(2x). */
#if LDBL_MANT_DIG == 64

11
libc/tinymath/acosl.c
View file

@ -29,15 +29,8 @@
#include "libc/tinymath/invtrigl.internal.h"
#include "libc/tinymath/ldshape.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/e_acosl.c */
/*

9
libc/tinymath/asin.c
View file

@ -26,12 +26,9 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/e_asin.c */
/*

11
libc/tinymath/asinf.c
View file

@ -28,14 +28,9 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/e_asinf.c */
/*

7
libc/tinymath/asinh.c
View file

@ -28,12 +28,7 @@
#include "libc/math.h"
#include "libc/tinymath/feval.internal.h"
#include "libc/tinymath/freebsd.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic sine of 𝑥.

7
libc/tinymath/asinhf.c
View file

@ -27,12 +27,7 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/feval.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic sine of 𝑥.

13
libc/tinymath/asinhl.c
View file

@ -38,16 +38,11 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/freebsd.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("freebsd_libm_notice");
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
/* EXP_LARGE is the threshold above which we use asinh(x) ~= log(2x). */
/* EXP_TINY is the threshold below which we use asinh(x) ~= x. */

11
libc/tinymath/asinl.c
View file

@ -30,15 +30,8 @@
#include "libc/tinymath/invtrigl.internal.h"
#include "libc/tinymath/ldshape.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/e_asinl.c */
/*

11
libc/tinymath/atan.c
View file

@ -27,15 +27,8 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_atan.c */
/*

10
libc/tinymath/atan2.c
View file

@ -38,14 +38,8 @@
#include "libc/math.h"
#include "libc/tinymath/freebsd.internal.h"
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("freebsd_libm_notice");
/* atan2(y,x)
* Method :

7
libc/tinymath/atan2f.c
View file

@ -29,12 +29,7 @@
#include "libc/math.h"
#include "libc/tinymath/atanf_common.internal.h"
#include "libc/tinymath/internal.h"
asm(".ident\t\"\\n\\n\
Optimized Routines (MIT License)\\n\
Copyright 2022 ARM Limited\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("arm_optimized_routines_notice");
#define Pi (0x1.921fb6p+1f)
#define PiOver2 (0x1.921fb6p+0f)

10
libc/tinymath/atan2l.c
View file

@ -30,15 +30,9 @@
#include "libc/tinymath/invtrigl.internal.h"
#include "libc/tinymath/ldshape.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
/* origin: FreeBSD /usr/src/lib/msun/src/e_atan2l.c */
/*

1
libc/tinymath/atan_common.internal.h
View file

@ -4,7 +4,6 @@
#include "libc/tinymath/estrin_wrap.internal.h"
#include "libc/tinymath/horner.internal.h"
COSMOPOLITAN_C_START_
// clang-format off
/*
* Double-precision polynomial evaluation function for scalar and vector atan(x)

6
libc/tinymath/atan_data.c
View file

@ -27,12 +27,6 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/atan_data.internal.h"
asm(".ident\t\"\\n\\n\
Optimized Routines (MIT License)\\n\
Copyright 2022 ARM Limited\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
const struct atan_poly_data __atan_poly_data = {
.poly = {/* Coefficients of polynomial P such that atan(x)~x+x*P(x^2) on
[2**-1022, 1.0]. See atan.sollya for details of how these were

11
libc/tinymath/atanf.c
View file

@ -27,15 +27,8 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_atanf.c */
/*

1
libc/tinymath/atanf_common.internal.h
View file

@ -4,7 +4,6 @@
#include "libc/tinymath/estrin_wrap.internal.h"
#include "libc/tinymath/hornerf.internal.h"
COSMOPOLITAN_C_START_
// clang-format off
#if WANT_VMATH

6
libc/tinymath/atanf_data.c
View file

@ -27,12 +27,6 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/tinymath/atanf_data.internal.h"
asm(".ident\t\"\\n\\n\
Optimized Routines (MIT License)\\n\
Copyright 2022 ARM Limited\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
/* Coefficients of polynomial P such that atan(x)~x+x*P(x^2) on [2**-128, 1.0].
*/
const struct atanf_poly_data __atanf_poly_data = {

7
libc/tinymath/atanh.c
View file

@ -27,12 +27,7 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/feval.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic tangent of 𝑥.

7
libc/tinymath/atanhf.c
View file

@ -27,12 +27,7 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/feval.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic tangent of 𝑥.

7
libc/tinymath/atanhl.c
View file

@ -29,12 +29,7 @@
#include "libc/tinymath/feval.internal.h"
#include "libc/tinymath/ldshape.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns inverse hyperbolic tangent of 𝑥.

11
libc/tinymath/atanl.c
View file

@ -29,15 +29,8 @@
#include "libc/tinymath/internal.h"
#include "libc/tinymath/ldshape.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_atanl.c */
/*

7
libc/tinymath/cacos.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
// FIXME: Hull et al. "Implementing the complex arcsine and arccosine functions using exception handling" 1997

7
libc/tinymath/cacosf.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
// FIXME

7
libc/tinymath/cacosh.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/* acosh(z) = i acos(z) */
double complex cacosh(double complex z)

7
libc/tinymath/cacoshf.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
float complex cacoshf(float complex z)
{

7
libc/tinymath/cacoshl.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
long double complex cacoshl(long double complex z)
{

7
libc/tinymath/cacosl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
long double complex cacosl(long double complex z) {
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024

7
libc/tinymath/casin.c
View file

@ -28,12 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
// FIXME

9
libc/tinymath/casinf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
// FIXME

9
libc/tinymath/casinh.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/* asinh(z) = -i asin(i z) */

9
libc/tinymath/casinhf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
float complex casinhf(float complex z)
{

7
libc/tinymath/casinhl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
long double complex casinhl(long double complex z) {
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024

7
libc/tinymath/casinl.c
View file

@ -27,12 +27,7 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
long double complex casinl(long double complex z)
{

13
libc/tinymath/catan.c
View file

@ -28,16 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
OpenBSD libm (ISC License)\\n\
Copyright (c) 2008 Stephen L. Moshier <steve@moshier.net>\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("openbsd_libm_notice");
/* origin: OpenBSD /usr/src/lib/libm/src/s_catan.c */
/*
@ -99,7 +91,6 @@ asm(".include \"libc/disclaimer.inc\"");
* 2.9e-17. See also clog().
*/
#define MAXNUM 1.0e308
static const double DP1 = 3.14159265160560607910E0;

12
libc/tinymath/catanf.c
View file

@ -28,16 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
OpenBSD libm (ISC License)\\n\
Copyright (c) 2008 Stephen L. Moshier <steve@moshier.net>\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
__static_yoink("openbsd_libm_notice");
/* origin: OpenBSD /usr/src/lib/libm/src/s_catanf.c */
/*

9
libc/tinymath/catanh.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/* atanh = -i atan(i z) */

9
libc/tinymath/catanhf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
float complex catanhf(float complex z)
{

7
libc/tinymath/catanhl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
long double complex catanhl(long double complex z) {
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024

11
libc/tinymath/catanl.c
View file

@ -22,15 +22,8 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
OpenBSD libm (ISC License)\\n\
Copyright (c) 2008 Stephen L. Moshier <steve@moshier.net>\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("openbsd_libm_notice");
__static_yoink("musl_libc_notice");
/*
* Complex circular arc tangent

10
libc/tinymath/cbrt.c
View file

@ -26,15 +26,9 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
/* origin: FreeBSD /usr/src/lib/msun/src/s_cbrt.c */
/*

10
libc/tinymath/cbrtf.c
View file

@ -26,15 +26,9 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
/* origin: FreeBSD /usr/src/lib/msun/src/s_cbrtf.c */
/*

14
libc/tinymath/cbrtl.c
View file

@ -28,17 +28,9 @@
#include "libc/math.h"
#include "libc/tinymath/ldshape.internal.h"
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_cbrtl.c */
/*-

5
libc/tinymath/ccos.c
View file

@ -17,8 +17,11 @@
│ PERFORMANCE OF THIS SOFTWARE. │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
#include "libc/math.h"
double complex ccos(double complex z) {
return ccosh(CMPLX(-cimag(z), creal(z)));
}
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
__weak_reference(ccos, ccosl);
#endif

9
libc/tinymath/ccosf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
float complex ccosf(float complex z)
{

10
libc/tinymath/ccosh.c
View file

@ -29,14 +29,8 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_ccosh.c */
/*-

10
libc/tinymath/ccoshf.c
View file

@ -29,14 +29,8 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_ccoshf.c */
/*-

7
libc/tinymath/ccoshl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
//FIXME
long double complex ccoshl(long double complex z)

14
libc/tinymath/ccosl.c
View file

@ -26,17 +26,11 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
__static_yoink("musl_libc_notice");
long double complex ccosl(long double complex z) {
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
return ccos(z);
#else
return ccoshl(CMPLXL(-cimagl(z), creall(z)));
#endif
}
#endif

7
libc/tinymath/ceil.c
View file

@ -31,12 +31,7 @@
#ifndef __llvm__
#include "third_party/intel/smmintrin.internal.h"
#endif
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
#if FLT_EVAL_METHOD==0 || FLT_EVAL_METHOD==1
#define EPS DBL_EPSILON

7
libc/tinymath/ceilf.c
View file

@ -30,12 +30,7 @@
#ifndef __llvm__
#include "third_party/intel/smmintrin.internal.h"
#endif
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns smallest integral value not less than 𝑥.

7
libc/tinymath/ceill.c
View file

@ -28,12 +28,7 @@
#include "libc/math.h"
#include "libc/tinymath/internal.h"
#include "libc/tinymath/ldshape.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns smallest integral value not less than 𝑥.

9
libc/tinymath/cexp.c
View file

@ -28,13 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_cexp.c */
/*-

9
libc/tinymath/cexpf.c
View file

@ -28,13 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_cexpf.c */
/*-

7
libc/tinymath/cexpl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
//FIXME
long double complex cexpl(long double complex z)

13
libc/tinymath/clog.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
// FIXME
@ -49,3 +42,7 @@ double complex clog(double complex z)
phi = carg(z);
return CMPLX(log(r), phi);
}
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
__weak_reference(clog, clogl);
#endif

9
libc/tinymath/clogf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
// FIXME

16
libc/tinymath/clogl.c
View file

@ -27,21 +27,10 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
#include "libc/math.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
#include "libc/tinymath/complex.internal.h"
__static_yoink("musl_libc_notice");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex clogl(long double complex z)
{
return clog(z);
}
#else
// FIXME
long double complex clogl(long double complex z)
{
long double r, phi;
@ -49,4 +38,5 @@ long double complex clogl(long double complex z)
phi = cargl(z);
return CMPLXL(logl(r), phi);
}
#endif

11
libc/tinymath/cos.c
View file

@ -28,15 +28,8 @@
#include "libc/math.h"
#include "libc/tinymath/feval.internal.h"
#include "libc/tinymath/kernel.internal.h"
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_cos.c */
/*

12
libc/tinymath/cosdf.c
View file

@ -27,15 +27,9 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/kernel.internal.h"
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/k_cosf.c */
/*

11
libc/tinymath/cosf.c
View file

@ -29,15 +29,10 @@
#include "libc/tinymath/complex.internal.h"
#include "libc/tinymath/feval.internal.h"
#include "libc/tinymath/kernel.internal.h"
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
/* origin: FreeBSD /usr/src/lib/msun/src/s_cosf.c */
/*

7
libc/tinymath/cosh.c
View file

@ -28,12 +28,7 @@
#include "libc/math.h"
#include "libc/tinymath/expo.internal.h"
#include "libc/tinymath/feval.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns hyperbolic cosine of 𝑥.

7
libc/tinymath/coshf.c
View file

@ -28,12 +28,7 @@
#include "libc/math.h"
#include "libc/tinymath/expo.internal.h"
#include "libc/tinymath/feval.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/**
* Returns hyperbolic cosine of 𝑥.

13
libc/tinymath/coshl.c
View file

@ -38,16 +38,11 @@
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/tinymath/freebsd.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("fdlibm_notice");
__static_yoink("freebsd_libm_notice");
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
#if LDBL_MAX_EXP != 0x4000
/* We also require the usual expsign encoding. */

7
libc/tinymath/cosl.c
View file

@ -30,12 +30,7 @@
#include "libc/tinymath/kernel.internal.h"
#include "libc/tinymath/ldshape.internal.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/**
* Returns cosine of 𝑥.

13
libc/tinymath/cpow.c
View file

@ -26,18 +26,15 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
/* pow(z, c) = exp(c log(z)), See C99 G.6.4.1 */
double complex cpow(double complex z, double complex c)
{
return cexp(c * clog(z));
}
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
__weak_reference(cpow, cpowl);
#endif

9
libc/tinymath/cpowf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
float complex cpowf(float complex z, float complex c)
{

15
libc/tinymath/cpowl.c
View file

@ -26,21 +26,12 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
__static_yoink("musl_libc_notice");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex cpowl(long double complex z, long double complex c)
{
return cpow(z, c);
}
#else
long double complex cpowl(long double complex z, long double complex c)
{
return cexpl(c * clogl(z));
}
#endif

14
libc/tinymath/csin.c
View file

@ -28,19 +28,15 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/* sin(z) = -i sinh(i z) */
double complex csin(double complex z)
{
z = csinh(CMPLX(-cimag(z), creal(z)));
return CMPLX(cimag(z), -creal(z));
}
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
__weak_reference(csin, csinl);
#endif

6
libc/tinymath/csinf.c
View file

@ -28,12 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
__static_yoink("musl_libc_notice");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */

11
libc/tinymath/csinh.c
View file

@ -29,15 +29,8 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_csinh.c */
/*-

10
libc/tinymath/csinhf.c
View file

@ -29,14 +29,8 @@
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
FreeBSD libm (BSD-2 License)\\n\
Copyright (c) 2005-2011, Bruce D. Evans, Steven G. Kargl, David Schultz.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
__static_yoink("freebsd_libm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_csinhf.c */
/*-

7
libc/tinymath/csinhl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
//FIXME
long double complex csinhl(long double complex z)

15
libc/tinymath/csinl.c
View file

@ -26,22 +26,13 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
#if !(LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024)
__static_yoink("musl_libc_notice");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex csinl(long double complex z)
{
return csin(z);
}
#else
long double complex csinl(long double complex z)
{
z = csinhl(CMPLXL(-cimagl(z), creall(z)));
return CMPLXL(cimagl(z), -creall(z));
}
#endif

8
libc/tinymath/csqrt.c
View file

@ -28,12 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_csqrt.c */
/*-

9
libc/tinymath/csqrtf.c
View file

@ -28,13 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_csqrtf.c */
/*-

7
libc/tinymath/csqrtl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
//FIXME
long double complex csqrtl(long double complex z)

9
libc/tinymath/ctan.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
/* tan(z) = -i tanh(i z) */

9
libc/tinymath/ctanf.c
View file

@ -28,14 +28,7 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
float complex ctanf(float complex z)
{

12
libc/tinymath/ctanh.c
View file

@ -28,16 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
ctahnh (BSD-2 License)\\n\
Copyright (c) 2011 David Schultz <das@FreeBSD.ORG>\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_ctanh.c */
/*-

9
libc/tinymath/ctanhf.c
View file

@ -28,13 +28,8 @@
#include "libc/complex.h"
#include "libc/math.h"
#include "libc/tinymath/complex.internal.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("freebsd_libm_notice");
__static_yoink("musl_libc_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_ctanhf.c */
/*-

7
libc/tinymath/ctanhl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
// clang-format off
__static_yoink("musl_libc_notice");
//FIXME
long double complex ctanhl(long double complex z)

7
libc/tinymath/ctanl.c
View file

@ -26,12 +26,7 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/complex.h"
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
#if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
long double complex ctanl(long double complex z)

11
libc/tinymath/erf.c
View file

@ -26,15 +26,8 @@
│ │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
asm(".ident\t\"\\n\\n\
fdlibm (fdlibm license)\\n\
Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.\"");
asm(".ident\t\"\\n\\n\
Musl libc (MIT License)\\n\
Copyright 2005-2014 Rich Felker, et. al.\"");
asm(".include \"libc/disclaimer.inc\"");
/* clang-format off */
__static_yoink("musl_libc_notice");
__static_yoink("fdlibm_notice");
/* origin: FreeBSD /usr/src/lib/msun/src/s_erf.c */
/*

Some files were not shown because too many files have changed in this diff Show more