mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-06-01 10:12: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

305
test/libc/tinymath/atan2_test.c
View file

@ -27,145 +27,143 @@ float _atan2f(float, float) asm("atan2f");
long double _atan2l(long double, long double) asm("atan2l");
TEST(atan2, yx) {
EXPECT_STREQ("-0.321750554396642", _gc(xasprintf("%.15g", atan(-.5 / 1.5))));
EXPECT_STREQ("-0.321750554396642", _gc(xasprintf("%.15g", _atan2(-.5, 1.5))));
EXPECT_STREQ("-0.321750554396642", gc(xasprintf("%.15g", atan(-.5 / 1.5))));
EXPECT_STREQ("-0.321750554396642", gc(xasprintf("%.15g", _atan2(-.5, 1.5))));
}
TEST(atan2, test) {
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., 0.))));
EXPECT_STREQ("3.14159265358979", _gc(xasprintf("%.15g", _atan2(0., -0.))));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., .5))));
EXPECT_STREQ("3.14159265358979", _gc(xasprintf("%.15g", _atan2(0., -.5))));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., 1.))));
EXPECT_STREQ("3.14159265358979", _gc(xasprintf("%.15g", _atan2(0., -1.))));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., 1.5))));
EXPECT_STREQ("3.14159265358979", _gc(xasprintf("%.15g", _atan2(0., -1.5))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., 0.))));
EXPECT_STREQ("3.14159265358979", gc(xasprintf("%.15g", _atan2(0., -0.))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., .5))));
EXPECT_STREQ("3.14159265358979", gc(xasprintf("%.15g", _atan2(0., -.5))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., 1.))));
EXPECT_STREQ("3.14159265358979", gc(xasprintf("%.15g", _atan2(0., -1.))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., 1.5))));
EXPECT_STREQ("3.14159265358979", gc(xasprintf("%.15g", _atan2(0., -1.5))));
EXPECT_TRUE(isnan(_atan2(0., NAN)));
EXPECT_TRUE(isnan(_atan2(0., -NAN)));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., INFINITY))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(0., -INFINITY))));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., __DBL_MIN__))));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(0., __DBL_MAX__))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., 0.))));
EXPECT_STREQ("-3.14159265358979", _gc(xasprintf("%.15g", _atan2(-0., -0.))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., .5))));
EXPECT_STREQ("-3.14159265358979", _gc(xasprintf("%.15g", _atan2(-0., -.5))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., 1.))));
EXPECT_STREQ("-3.14159265358979", _gc(xasprintf("%.15g", _atan2(-0., -1.))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., 1.5))));
EXPECT_STREQ("-3.14159265358979", _gc(xasprintf("%.15g", _atan2(-0., -1.5))));
gc(xasprintf("%.15g", _atan2(0., -INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., __DBL_MIN__))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(0., __DBL_MAX__))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., 0.))));
EXPECT_STREQ("-3.14159265358979", gc(xasprintf("%.15g", _atan2(-0., -0.))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., .5))));
EXPECT_STREQ("-3.14159265358979", gc(xasprintf("%.15g", _atan2(-0., -.5))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., 1.))));
EXPECT_STREQ("-3.14159265358979", gc(xasprintf("%.15g", _atan2(-0., -1.))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., 1.5))));
EXPECT_STREQ("-3.14159265358979", gc(xasprintf("%.15g", _atan2(-0., -1.5))));
EXPECT_TRUE(isnan(_atan2(-0., NAN)));
EXPECT_TRUE(isnan(_atan2(-0., -NAN)));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., INFINITY))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., INFINITY))));
EXPECT_STREQ("-3.14159265358979",
_gc(xasprintf("%.15g", _atan2(-0., -INFINITY))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., __DBL_MIN__))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-0., __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949", _gc(xasprintf("%.15g", _atan2(.5, 0.))));
EXPECT_STREQ("1.5707963267949", _gc(xasprintf("%.15g", _atan2(.5, -0.))));
EXPECT_STREQ("0.785398163397448", _gc(xasprintf("%.15g", _atan2(.5, .5))));
EXPECT_STREQ("2.35619449019234", _gc(xasprintf("%.15g", _atan2(.5, -.5))));
EXPECT_STREQ("0.463647609000806", _gc(xasprintf("%.15g", _atan2(.5, 1.))));
EXPECT_STREQ("2.67794504458899", _gc(xasprintf("%.15g", _atan2(.5, -1.))));
EXPECT_STREQ("0.321750554396642", _gc(xasprintf("%.15g", _atan2(.5, 1.5))));
EXPECT_STREQ("2.81984209919315", _gc(xasprintf("%.15g", _atan2(.5, -1.5))));
gc(xasprintf("%.15g", _atan2(-0., -INFINITY))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., __DBL_MIN__))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-0., __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(.5, 0.))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(.5, -0.))));
EXPECT_STREQ("0.785398163397448", gc(xasprintf("%.15g", _atan2(.5, .5))));
EXPECT_STREQ("2.35619449019234", gc(xasprintf("%.15g", _atan2(.5, -.5))));
EXPECT_STREQ("0.463647609000806", gc(xasprintf("%.15g", _atan2(.5, 1.))));
EXPECT_STREQ("2.67794504458899", gc(xasprintf("%.15g", _atan2(.5, -1.))));
EXPECT_STREQ("0.321750554396642", gc(xasprintf("%.15g", _atan2(.5, 1.5))));
EXPECT_STREQ("2.81984209919315", gc(xasprintf("%.15g", _atan2(.5, -1.5))));
EXPECT_TRUE(isnan(_atan2(.5, NAN)));
EXPECT_TRUE(isnan(_atan2(.5, -NAN)));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(.5, INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(.5, INFINITY))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(.5, -INFINITY))));
gc(xasprintf("%.15g", _atan2(.5, -INFINITY))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(.5, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(.5, __DBL_MIN__))));
EXPECT_STREQ("2.781342323134e-309",
_gc(xasprintf("%.15g", _atan2(.5, __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949", _gc(xasprintf("%.15g", _atan2(-.5, 0.))));
EXPECT_STREQ("-1.5707963267949", _gc(xasprintf("%.15g", _atan2(-.5, -0.))));
EXPECT_STREQ("-0.785398163397448", _gc(xasprintf("%.15g", _atan2(-.5, .5))));
EXPECT_STREQ("-2.35619449019234", _gc(xasprintf("%.15g", _atan2(-.5, -.5))));
EXPECT_STREQ("-0.463647609000806", _gc(xasprintf("%.15g", _atan2(-.5, 1.))));
EXPECT_STREQ("-2.67794504458899", _gc(xasprintf("%.15g", _atan2(-.5, -1.))));
EXPECT_STREQ("-0.321750554396642", _gc(xasprintf("%.15g", _atan2(-.5, 1.5))));
EXPECT_STREQ("-2.81984209919315", _gc(xasprintf("%.15g", _atan2(-.5, -1.5))));
gc(xasprintf("%.15g", _atan2(.5, __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949", gc(xasprintf("%.15g", _atan2(-.5, 0.))));
EXPECT_STREQ("-1.5707963267949", gc(xasprintf("%.15g", _atan2(-.5, -0.))));
EXPECT_STREQ("-0.785398163397448", gc(xasprintf("%.15g", _atan2(-.5, .5))));
EXPECT_STREQ("-2.35619449019234", gc(xasprintf("%.15g", _atan2(-.5, -.5))));
EXPECT_STREQ("-0.463647609000806", gc(xasprintf("%.15g", _atan2(-.5, 1.))));
EXPECT_STREQ("-2.67794504458899", gc(xasprintf("%.15g", _atan2(-.5, -1.))));
EXPECT_STREQ("-0.321750554396642", gc(xasprintf("%.15g", _atan2(-.5, 1.5))));
EXPECT_STREQ("-2.81984209919315", gc(xasprintf("%.15g", _atan2(-.5, -1.5))));
EXPECT_TRUE(isnan(_atan2(-.5, NAN)));
EXPECT_TRUE(isnan(_atan2(-.5, -NAN)));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-.5, INFINITY))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-.5, INFINITY))));
EXPECT_STREQ("-3.14159265358979",
_gc(xasprintf("%.15g", _atan2(-.5, -INFINITY))));
gc(xasprintf("%.15g", _atan2(-.5, -INFINITY))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-.5, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(-.5, __DBL_MIN__))));
EXPECT_STREQ("-2.781342323134e-309",
_gc(xasprintf("%.15g", _atan2(-.5, __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949", _gc(xasprintf("%.15g", _atan2(1., 0.))));
EXPECT_STREQ("1.5707963267949", _gc(xasprintf("%.15g", _atan2(1., -0.))));
EXPECT_STREQ("1.10714871779409", _gc(xasprintf("%.15g", _atan2(1., .5))));
EXPECT_STREQ("2.0344439357957", _gc(xasprintf("%.15g", _atan2(1., -.5))));
EXPECT_STREQ("0.785398163397448", _gc(xasprintf("%.15g", _atan2(1., 1.))));
EXPECT_STREQ("2.35619449019234", _gc(xasprintf("%.15g", _atan2(1., -1.))));
EXPECT_STREQ("0.588002603547568", _gc(xasprintf("%.15g", _atan2(1., 1.5))));
EXPECT_STREQ("2.55359005004223", _gc(xasprintf("%.15g", _atan2(1., -1.5))));
gc(xasprintf("%.15g", _atan2(-.5, __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(1., 0.))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(1., -0.))));
EXPECT_STREQ("1.10714871779409", gc(xasprintf("%.15g", _atan2(1., .5))));
EXPECT_STREQ("2.0344439357957", gc(xasprintf("%.15g", _atan2(1., -.5))));
EXPECT_STREQ("0.785398163397448", gc(xasprintf("%.15g", _atan2(1., 1.))));
EXPECT_STREQ("2.35619449019234", gc(xasprintf("%.15g", _atan2(1., -1.))));
EXPECT_STREQ("0.588002603547568", gc(xasprintf("%.15g", _atan2(1., 1.5))));
EXPECT_STREQ("2.55359005004223", gc(xasprintf("%.15g", _atan2(1., -1.5))));
EXPECT_TRUE(isnan(_atan2(1., NAN)));
EXPECT_TRUE(isnan(_atan2(1., -NAN)));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(1., INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(1., INFINITY))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(1., -INFINITY))));
gc(xasprintf("%.15g", _atan2(1., -INFINITY))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(1., __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(1., __DBL_MIN__))));
EXPECT_STREQ("5.562684646268e-309",
_gc(xasprintf("%.15g", _atan2(1., __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949", _gc(xasprintf("%.15g", _atan2(-1., 0.))));
EXPECT_STREQ("-1.5707963267949", _gc(xasprintf("%.15g", _atan2(-1., -0.))));
EXPECT_STREQ("-1.10714871779409", _gc(xasprintf("%.15g", _atan2(-1., .5))));
EXPECT_STREQ("-2.0344439357957", _gc(xasprintf("%.15g", _atan2(-1., -.5))));
EXPECT_STREQ("-0.785398163397448", _gc(xasprintf("%.15g", _atan2(-1., 1.))));
EXPECT_STREQ("-2.35619449019234", _gc(xasprintf("%.15g", _atan2(-1., -1.))));
EXPECT_STREQ("-0.588002603547568", _gc(xasprintf("%.15g", _atan2(-1., 1.5))));
EXPECT_STREQ("-2.55359005004223", _gc(xasprintf("%.15g", _atan2(-1., -1.5))));
gc(xasprintf("%.15g", _atan2(1., __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949", gc(xasprintf("%.15g", _atan2(-1., 0.))));
EXPECT_STREQ("-1.5707963267949", gc(xasprintf("%.15g", _atan2(-1., -0.))));
EXPECT_STREQ("-1.10714871779409", gc(xasprintf("%.15g", _atan2(-1., .5))));
EXPECT_STREQ("-2.0344439357957", gc(xasprintf("%.15g", _atan2(-1., -.5))));
EXPECT_STREQ("-0.785398163397448", gc(xasprintf("%.15g", _atan2(-1., 1.))));
EXPECT_STREQ("-2.35619449019234", gc(xasprintf("%.15g", _atan2(-1., -1.))));
EXPECT_STREQ("-0.588002603547568", gc(xasprintf("%.15g", _atan2(-1., 1.5))));
EXPECT_STREQ("-2.55359005004223", gc(xasprintf("%.15g", _atan2(-1., -1.5))));
EXPECT_TRUE(isnan(_atan2(-1., NAN)));
EXPECT_TRUE(isnan(_atan2(-1., -NAN)));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-1., INFINITY))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-1., INFINITY))));
EXPECT_STREQ("-3.14159265358979",
_gc(xasprintf("%.15g", _atan2(-1., -INFINITY))));
gc(xasprintf("%.15g", _atan2(-1., -INFINITY))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-1., __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(-1., __DBL_MIN__))));
EXPECT_STREQ("-5.562684646268e-309",
_gc(xasprintf("%.15g", _atan2(-1., __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949", _gc(xasprintf("%.15g", _atan2(1.5, 0.))));
EXPECT_STREQ("1.5707963267949", _gc(xasprintf("%.15g", _atan2(1.5, -0.))));
EXPECT_STREQ("1.24904577239825", _gc(xasprintf("%.15g", _atan2(1.5, .5))));
EXPECT_STREQ("1.89254688119154", _gc(xasprintf("%.15g", _atan2(1.5, -.5))));
EXPECT_STREQ("0.982793723247329", _gc(xasprintf("%.15g", _atan2(1.5, 1.))));
EXPECT_STREQ("2.15879893034246", _gc(xasprintf("%.15g", _atan2(1.5, -1.))));
EXPECT_STREQ("0.785398163397448", _gc(xasprintf("%.15g", _atan2(1.5, 1.5))));
EXPECT_STREQ("2.35619449019234", _gc(xasprintf("%.15g", _atan2(1.5, -1.5))));
gc(xasprintf("%.15g", _atan2(-1., __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(1.5, 0.))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(1.5, -0.))));
EXPECT_STREQ("1.24904577239825", gc(xasprintf("%.15g", _atan2(1.5, .5))));
EXPECT_STREQ("1.89254688119154", gc(xasprintf("%.15g", _atan2(1.5, -.5))));
EXPECT_STREQ("0.982793723247329", gc(xasprintf("%.15g", _atan2(1.5, 1.))));
EXPECT_STREQ("2.15879893034246", gc(xasprintf("%.15g", _atan2(1.5, -1.))));
EXPECT_STREQ("0.785398163397448", gc(xasprintf("%.15g", _atan2(1.5, 1.5))));
EXPECT_STREQ("2.35619449019234", gc(xasprintf("%.15g", _atan2(1.5, -1.5))));
EXPECT_TRUE(isnan(_atan2(1.5, NAN)));
EXPECT_TRUE(isnan(_atan2(1.5, -NAN)));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(1.5, INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(1.5, INFINITY))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(1.5, -INFINITY))));
gc(xasprintf("%.15g", _atan2(1.5, -INFINITY))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(1.5, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(1.5, __DBL_MIN__))));
EXPECT_STREQ("8.34402696940201e-309",
_gc(xasprintf("%.15g", _atan2(1.5, __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949", _gc(xasprintf("%.15g", _atan2(-1.5, 0.))));
EXPECT_STREQ("-1.5707963267949", _gc(xasprintf("%.15g", _atan2(-1.5, -0.))));
EXPECT_STREQ("-1.24904577239825", _gc(xasprintf("%.15g", _atan2(-1.5, .5))));
EXPECT_STREQ("-1.89254688119154", _gc(xasprintf("%.15g", _atan2(-1.5, -.5))));
EXPECT_STREQ("-0.982793723247329", _gc(xasprintf("%.15g", _atan2(-1.5, 1.))));
EXPECT_STREQ("-2.15879893034246", _gc(xasprintf("%.15g", _atan2(-1.5, -1.))));
EXPECT_STREQ("-0.785398163397448",
_gc(xasprintf("%.15g", _atan2(-1.5, 1.5))));
EXPECT_STREQ("-2.35619449019234",
_gc(xasprintf("%.15g", _atan2(-1.5, -1.5))));
gc(xasprintf("%.15g", _atan2(1.5, __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949", gc(xasprintf("%.15g", _atan2(-1.5, 0.))));
EXPECT_STREQ("-1.5707963267949", gc(xasprintf("%.15g", _atan2(-1.5, -0.))));
EXPECT_STREQ("-1.24904577239825", gc(xasprintf("%.15g", _atan2(-1.5, .5))));
EXPECT_STREQ("-1.89254688119154", gc(xasprintf("%.15g", _atan2(-1.5, -.5))));
EXPECT_STREQ("-0.982793723247329", gc(xasprintf("%.15g", _atan2(-1.5, 1.))));
EXPECT_STREQ("-2.15879893034246", gc(xasprintf("%.15g", _atan2(-1.5, -1.))));
EXPECT_STREQ("-0.785398163397448", gc(xasprintf("%.15g", _atan2(-1.5, 1.5))));
EXPECT_STREQ("-2.35619449019234", gc(xasprintf("%.15g", _atan2(-1.5, -1.5))));
EXPECT_TRUE(isnan(_atan2(-1.5, NAN)));
EXPECT_TRUE(isnan(_atan2(-1.5, -NAN)));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-1.5, INFINITY))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-1.5, INFINITY))));
EXPECT_STREQ("-3.14159265358979",
_gc(xasprintf("%.15g", _atan2(-1.5, -INFINITY))));
gc(xasprintf("%.15g", _atan2(-1.5, -INFINITY))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-1.5, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(-1.5, __DBL_MIN__))));
EXPECT_STREQ("-8.34402696940201e-309",
_gc(xasprintf("%.15g", _atan2(-1.5, __DBL_MAX__))));
gc(xasprintf("%.15g", _atan2(-1.5, __DBL_MAX__))));
EXPECT_TRUE(isnan(_atan2(NAN, 0.)));
EXPECT_TRUE(isnan(_atan2(NAN, -0.)));
EXPECT_TRUE(isnan(_atan2(NAN, .5)));
@ -194,114 +192,111 @@ TEST(atan2, test) {
EXPECT_TRUE(isnan(_atan2(-NAN, -INFINITY)));
EXPECT_TRUE(isnan(_atan2(-NAN, __DBL_MIN__)));
EXPECT_TRUE(isnan(_atan2(-NAN, __DBL_MAX__)));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(INFINITY, 0.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, 0.))));
gc(xasprintf("%.15g", _atan2(INFINITY, -0.))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(INFINITY, .5))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, -0.))));
gc(xasprintf("%.15g", _atan2(INFINITY, -.5))));
EXPECT_STREQ("1.5707963267949", gc(xasprintf("%.15g", _atan2(INFINITY, 1.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, .5))));
gc(xasprintf("%.15g", _atan2(INFINITY, -1.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, -.5))));
gc(xasprintf("%.15g", _atan2(INFINITY, 1.5))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, 1.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, -1.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, 1.5))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, -1.5))));
gc(xasprintf("%.15g", _atan2(INFINITY, -1.5))));
EXPECT_TRUE(isnan(_atan2(INFINITY, NAN)));
EXPECT_TRUE(isnan(_atan2(INFINITY, -NAN)));
EXPECT_STREQ("0.785398163397448",
_gc(xasprintf("%.15g", _atan2(INFINITY, INFINITY))));
gc(xasprintf("%.15g", _atan2(INFINITY, INFINITY))));
EXPECT_STREQ("2.35619449019234",
_gc(xasprintf("%.15g", _atan2(INFINITY, -INFINITY))));
gc(xasprintf("%.15g", _atan2(INFINITY, -INFINITY))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(INFINITY, __DBL_MIN__))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(INFINITY, __DBL_MAX__))));
gc(xasprintf("%.15g", _atan2(INFINITY, __DBL_MAX__))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, 0.))));
gc(xasprintf("%.15g", _atan2(-INFINITY, 0.))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, -0.))));
gc(xasprintf("%.15g", _atan2(-INFINITY, -0.))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, .5))));
gc(xasprintf("%.15g", _atan2(-INFINITY, .5))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, -.5))));
gc(xasprintf("%.15g", _atan2(-INFINITY, -.5))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, 1.))));
gc(xasprintf("%.15g", _atan2(-INFINITY, 1.))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, -1.))));
gc(xasprintf("%.15g", _atan2(-INFINITY, -1.))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, 1.5))));
gc(xasprintf("%.15g", _atan2(-INFINITY, 1.5))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, -1.5))));
gc(xasprintf("%.15g", _atan2(-INFINITY, -1.5))));
EXPECT_TRUE(isnan(_atan2(-INFINITY, NAN)));
EXPECT_TRUE(isnan(_atan2(-INFINITY, -NAN)));
EXPECT_STREQ("-0.785398163397448",
_gc(xasprintf("%.15g", _atan2(-INFINITY, INFINITY))));
gc(xasprintf("%.15g", _atan2(-INFINITY, INFINITY))));
EXPECT_STREQ("-2.35619449019234",
_gc(xasprintf("%.15g", _atan2(-INFINITY, -INFINITY))));
gc(xasprintf("%.15g", _atan2(-INFINITY, -INFINITY))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(-INFINITY, __DBL_MIN__))));
EXPECT_STREQ("-1.5707963267949",
_gc(xasprintf("%.15g", _atan2(-INFINITY, __DBL_MAX__))));
gc(xasprintf("%.15g", _atan2(-INFINITY, __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, 0.))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, 0.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -0.))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -0.))));
EXPECT_STREQ("4.4501477170144e-308",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, .5))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, .5))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -.5))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -.5))));
EXPECT_STREQ("2.2250738585072e-308",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, 1.))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, 1.))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -1.))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -1.))));
EXPECT_STREQ("1.48338257233813e-308",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, 1.5))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, 1.5))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -1.5))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -1.5))));
EXPECT_TRUE(isnan(_atan2(__DBL_MIN__, NAN)));
EXPECT_TRUE(isnan(_atan2(__DBL_MIN__, -NAN)));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(__DBL_MIN__, INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(__DBL_MIN__, INFINITY))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -INFINITY))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, -INFINITY))));
EXPECT_STREQ("0.785398163397448",
_gc(xasprintf("%.15g", _atan2(__DBL_MIN__, __DBL_MIN__))));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(__DBL_MIN__, __DBL_MAX__))));
gc(xasprintf("%.15g", _atan2(__DBL_MIN__, __DBL_MIN__))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(__DBL_MIN__, __DBL_MAX__))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, 0.))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, 0.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -0.))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -0.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, .5))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, .5))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -.5))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -.5))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, 1.))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, 1.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -1.))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -1.))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, 1.5))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, 1.5))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -1.5))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -1.5))));
EXPECT_TRUE(isnan(_atan2(__DBL_MAX__, NAN)));
EXPECT_TRUE(isnan(_atan2(__DBL_MAX__, -NAN)));
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _atan2(__DBL_MAX__, INFINITY))));
EXPECT_STREQ("0", gc(xasprintf("%.15g", _atan2(__DBL_MAX__, INFINITY))));
EXPECT_STREQ("3.14159265358979",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -INFINITY))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, -INFINITY))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, __DBL_MIN__))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, __DBL_MIN__))));
EXPECT_STREQ("0.785398163397448",
_gc(xasprintf("%.15g", _atan2(__DBL_MAX__, __DBL_MAX__))));
gc(xasprintf("%.15g", _atan2(__DBL_MAX__, __DBL_MAX__))));
EXPECT_STREQ("-0",
_gc(xasprintf("%.15g", _atan2(-0.000000000000001, INFINITY))));
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _atan2(-1, INFINITY))));
gc(xasprintf("%.15g", _atan2(-0.000000000000001, INFINITY))));
EXPECT_STREQ("-0", gc(xasprintf("%.15g", _atan2(-1, INFINITY))));
EXPECT_STREQ(
"-0", _gc(xasprintf("%.15g", _atan2(-1.7976931348623157e308, INFINITY))));
"-0", gc(xasprintf("%.15g", _atan2(-1.7976931348623157e308, INFINITY))));
EXPECT_STREQ("1.5707963267949",
_gc(xasprintf("%.15g", _atan2(1.4142135623731, 0))));
gc(xasprintf("%.15g", _atan2(1.4142135623731, 0))));
}
BENCH(atan2, bench) {