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

Get LIBC_TESTLIB building on AARCH64

Browse source
This commit is contained in:
Justine Tunney 2023-05-11 19:56:33 -07:00
parent 95fab334e4
commit 5e2f7f7ced
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
46 changed files with 975 additions and 1174 deletions
Download patch file Download diff file Expand all files Collapse all files

57
test/libc/tinymath/exp_test.c
View file

@ -24,50 +24,47 @@
#include "libc/x/x.h"
#include "libc/x/xasprintf.h"
#define expl(x) expl(VEIL("t", (long double)(x)))
#define exp(x) exp(VEIL("x", (double)(x)))
#define expf(x) expf(VEIL("x", (float)(x)))
double _exp(double) asm("exp");
float _expf(float) asm("expf");
long double _expl(long double) asm("expl");
TEST(expl, test) {
EXPECT_STREQ("1", _gc(xdtoal(expl(0))));
EXPECT_STREQ("1", _gc(xdtoal(expl(-0.))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(expl(INFINITY))));
EXPECT_STREQ("0", _gc(xdtoal(expl(-INFINITY))));
EXPECT_STREQ("NAN", _gc(xdtoal(expl(NAN))));
EXPECT_STREQ("0", _gc(xdtoal(expl(-132098844872390))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(expl(132098844872390))));
EXPECT_STREQ("1", _gc(xdtoal(_expl(0))));
EXPECT_STREQ("1", _gc(xdtoal(_expl(-0.))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(_expl(INFINITY))));
EXPECT_STREQ("0", _gc(xdtoal(_expl(-INFINITY))));
EXPECT_STREQ("NAN", _gc(xdtoal(_expl(NAN))));
EXPECT_STREQ("0", _gc(xdtoal(_expl(-132098844872390))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(_expl(132098844872390))));
}
TEST(exp, test) {
EXPECT_STREQ("1", _gc(xdtoa(exp(0))));
EXPECT_STREQ("1", _gc(xdtoa(exp(-0.))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(exp(INFINITY))));
EXPECT_STREQ("0", _gc(xdtoa(exp(-INFINITY))));
EXPECT_STREQ("NAN", _gc(xdtoa(exp(NAN))));
EXPECT_STREQ("0", _gc(xdtoa(exp(-132098844872390))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(exp(132098844872390))));
EXPECT_STREQ("1", _gc(xdtoa(_exp(0))));
EXPECT_STREQ("1", _gc(xdtoa(_exp(-0.))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(_exp(INFINITY))));
EXPECT_STREQ("0", _gc(xdtoa(_exp(-INFINITY))));
EXPECT_STREQ("NAN", _gc(xdtoa(_exp(NAN))));
EXPECT_STREQ("0", _gc(xdtoa(_exp(-132098844872390))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(_exp(132098844872390))));
}
TEST(expf, test) {
EXPECT_STREQ("1", _gc(xdtoaf(expf(0))));
EXPECT_STREQ("1", _gc(xdtoaf(expf(-0.))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(expf(INFINITY))));
EXPECT_STREQ("0", _gc(xdtoaf(expf(-INFINITY))));
EXPECT_STREQ("NAN", _gc(xdtoaf(expf(NAN))));
EXPECT_STREQ("0", _gc(xdtoaf(expf(-132098844872390))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(expf(132098844872390))));
EXPECT_STREQ("1", _gc(xdtoaf(_expf(0))));
EXPECT_STREQ("1", _gc(xdtoaf(_expf(-0.))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(_expf(INFINITY))));
EXPECT_STREQ("0", _gc(xdtoaf(_expf(-INFINITY))));
EXPECT_STREQ("NAN", _gc(xdtoaf(_expf(NAN))));
EXPECT_STREQ("0", _gc(xdtoaf(_expf(-132098844872390))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(_expf(132098844872390))));
}
TEST(exp, fun) {
ASSERT_STREQ("7.389056", _gc(xasprintf("%f", exp(2.0))));
ASSERT_STREQ("7.389056", _gc(xasprintf("%f", _exp(2.0))));
ASSERT_STREQ("6.389056", _gc(xasprintf("%f", expm1(2.0))));
ASSERT_STREQ("6.389056", _gc(xasprintf("%f", exp(2.0) - 1.0)));
ASSERT_STREQ("6.389056", _gc(xasprintf("%f", _exp(2.0) - 1.0)));
}
BENCH(expl, bench) {
double _exp(double) asm("exp");
float _expf(float) asm("expf");
long double _expl(long double) asm("expl");
BENCH(_expl, bench) {
EZBENCH2("exp", donothing, _exp(.7)); /* ~6ns */
EZBENCH2("expf", donothing, _expf(.7)); /* ~5ns */
EZBENCH2("expl", donothing, _expl(.7)); /* ~20ns */