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

Bring back gc() function

Browse source 
Renaming gc() to _gc() was a mistake since the better thing to do is put
it behind the _COSMO_SOURCE macro. We need this change because I haven't
wanted to use my amazing garbage collector ever since we renamed it. You
now need to define _COSMO_SOURCE yourself when using amalgamation header
and cosmocc users need to pass the -mcosmo flag to get the gc() function

Some other issues relating to cancelation have been fixed along the way.
We're also now putting cosmocc in a folder named `.cosmocc` so it can be
more safely excluded by grep --exclude-dir=.cosmocc --exclude-dir=o etc.
This commit is contained in:
Justine Tunney 2024-01-08 10:07:35 -08:00
parent 6cb0354e19
commit a4b455185b
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
280 changed files with 1362 additions and 1407 deletions
Download patch file Download diff file Expand all files Collapse all files

64
test/libc/tinymath/tanh_test.c
View file

@ -32,48 +32,48 @@ float _tanhf(float) asm("tanhf");
long double _tanhl(long double) asm("tanhl");
TEST(tanh, test) {
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _tanh(0.))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _tanh(-0.))));
EXPECT_STREQ("0.0996679946249558", _gc(xasprintf("%.15g", _tanh(.1))));
EXPECT_STREQ("-0.0996679946249558", _gc(xasprintf("%.15g", _tanh(-.1))));
EXPECT_STREQ("0.46211715726001", _gc(xasprintf("%.15g", _tanh(.5))));
EXPECT_STREQ("-0.46211715726001", _gc(xasprintf("%.15g", _tanh(-.5))));
EXPECT_STREQ("0.761594155955765", _gc(xasprintf("%.15g", _tanh(1.))));
EXPECT_STREQ("-0.761594155955765", _gc(xasprintf("%.15g", _tanh(-1.))));
EXPECT_STREQ("0.905148253644866", _gc(xasprintf("%.15g", _tanh(1.5))));
EXPECT_STREQ("-0.905148253644866", _gc(xasprintf("%.15g", _tanh(-1.5))));
EXPECT_STREQ("0.964027580075817", _gc(xasprintf("%.15g", _tanh(2.))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _tanh(0.))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _tanh(-0.))));
EXPECT_STREQ("0.0996679946249558", gc(xasprintf("%.15g", _tanh(.1))));
EXPECT_STREQ("-0.0996679946249558", gc(xasprintf("%.15g", _tanh(-.1))));
EXPECT_STREQ("0.46211715726001", gc(xasprintf("%.15g", _tanh(.5))));
EXPECT_STREQ("-0.46211715726001", gc(xasprintf("%.15g", _tanh(-.5))));
EXPECT_STREQ("0.761594155955765", gc(xasprintf("%.15g", _tanh(1.))));
EXPECT_STREQ("-0.761594155955765", gc(xasprintf("%.15g", _tanh(-1.))));
EXPECT_STREQ("0.905148253644866", gc(xasprintf("%.15g", _tanh(1.5))));
EXPECT_STREQ("-0.905148253644866", gc(xasprintf("%.15g", _tanh(-1.5))));
EXPECT_STREQ("0.964027580075817", gc(xasprintf("%.15g", _tanh(2.))));
EXPECT_TRUE(isnan(_tanh(NAN)));
EXPECT_TRUE(isnan(_tanh(-NAN)));
EXPECT_STREQ("1", _gc(xasprintf("%.15g", _tanh(INFINITY))));
EXPECT_STREQ("-1", _gc(xasprintf("%.15g", _tanh(-INFINITY))));
EXPECT_STREQ("1", gc(xasprintf("%.15g", _tanh(INFINITY))));
EXPECT_STREQ("-1", gc(xasprintf("%.15g", _tanh(-INFINITY))));
EXPECT_STREQ("2.2250738585072e-308",
_gc(xasprintf("%.15g", _tanh(__DBL_MIN__))));
EXPECT_STREQ("1", _gc(xasprintf("%.15g", _tanh(__DBL_MAX__))));
gc(xasprintf("%.15g", _tanh(__DBL_MIN__))));
EXPECT_STREQ("1", gc(xasprintf("%.15g", _tanh(__DBL_MAX__))));
EXPECT_STREQ("-0.761594155955765",
_gc(xasprintf("%.15g", _tanh(-1.0000000000000002))));
gc(xasprintf("%.15g", _tanh(-1.0000000000000002))));
EXPECT_STREQ("-2.1073424255447e-08",
_gc(xasprintf("%.15g", _tanh(-2.1073424255447e-08))));
gc(xasprintf("%.15g", _tanh(-2.1073424255447e-08))));
}
TEST(tanhf, test) {
EXPECT_STREQ(".099668", _gc(xdtoaf(_tanhf(+.1))));
EXPECT_STREQ("-.099668", _gc(xdtoaf(_tanhf(-.1))));
EXPECT_STREQ("0", _gc(xdtoaf(_tanhf(0))));
EXPECT_STREQ("-0", _gc(xdtoaf(_tanhf(-0.))));
EXPECT_STREQ(".099668", gc(xdtoaf(_tanhf(+.1))));
EXPECT_STREQ("-.099668", gc(xdtoaf(_tanhf(-.1))));
EXPECT_STREQ("0", gc(xdtoaf(_tanhf(0))));
EXPECT_STREQ("-0", gc(xdtoaf(_tanhf(-0.))));
EXPECT_TRUE(isnan(_tanhf(NAN)));
EXPECT_STREQ("1", _gc(xdtoaf(_tanhf(INFINITY))));
EXPECT_STREQ("-1", _gc(xdtoaf(_tanhf(-INFINITY))));
EXPECT_STREQ("1", gc(xdtoaf(_tanhf(INFINITY))));
EXPECT_STREQ("-1", gc(xdtoaf(_tanhf(-INFINITY))));
}
TEST(tanhl, test) {
EXPECT_STREQ(".09966799462495582", _gc(xdtoal(_tanhl(+.1))));
EXPECT_STREQ("-.09966799462495582", _gc(xdtoal(_tanhl(-.1))));
EXPECT_STREQ("0", _gc(xdtoal(_tanhl(0))));
EXPECT_STREQ("-0", _gc(xdtoal(_tanhl(-0.))));
EXPECT_STREQ(".09966799462495582", gc(xdtoal(_tanhl(+.1))));
EXPECT_STREQ("-.09966799462495582", gc(xdtoal(_tanhl(-.1))));
EXPECT_STREQ("0", gc(xdtoal(_tanhl(0))));
EXPECT_STREQ("-0", gc(xdtoal(_tanhl(-0.))));
EXPECT_TRUE(isnan(_tanhl(NAN)));
EXPECT_STREQ("1", _gc(xdtoal(_tanhl(INFINITY))));
EXPECT_STREQ("-1", _gc(xdtoal(_tanhl(-INFINITY))));
EXPECT_STREQ("1", gc(xdtoal(_tanhl(INFINITY))));
EXPECT_STREQ("-1", gc(xdtoal(_tanhl(-INFINITY))));
}
BENCH(tanhl, bench) {
@ -107,9 +107,9 @@ TEST(tanhf, brute) {
x = f2i(tanhf(i2f(i)));
y = f2i(tanhf2(i2f(i)));
if (abs(x - y) > 2) {
kprintf("bah %#lx %s %d\n", i, _gc(xdtoaf(i2f(i))), abs(x - y));
kprintf(" %-12s %#x\n", _gc(xdtoaf(i2f(x))), x);
kprintf(" %-12s %#x\n", _gc(xdtoaf(i2f(y))), y);
kprintf("bah %#lx %s %d\n", i, gc(xdtoaf(i2f(i))), abs(x - y));
kprintf(" %-12s %#x\n", gc(xdtoaf(i2f(x))), x);
kprintf(" %-12s %#x\n", gc(xdtoaf(i2f(y))), y);
if (!--lim) break;
}
}