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

Pay off more technical debt

Browse source 
This makes breaking changes to add underscores to many non-standard
function names provided by the c library. MODE=tiny is now tinier and
we now use smaller locks that are better for tiny apps in this mode.
Some headers have been renamed to be in the same folder as the build
package, so it'll be easier to know which build dependency is needed.
Certain old misguided interfaces have been removed. Intel intrinsics
headers are now listed in libc/isystem (but not in the amalgamation)
to help further improve open source compatibility. Header complexity
has also been reduced. Lastly, more shell scripts are now available.
This commit is contained in:
Justine Tunney 2022-09-12 23:10:38 -07:00
parent b69f3d2488
commit 6f7d0cb1c3
No known key found for this signature in database
GPG key ID: BE714B4575D6E328
960 changed files with 4072 additions and 4873 deletions
Download patch file Download diff file Expand all files Collapse all files

131
test/libc/tinymath/ldexp_test.c
View file

@ -17,12 +17,13 @@
│ PERFORMANCE OF THIS SOFTWARE. │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/math.h"
#include "libc/mem/gc.h"
#include "libc/stdio/rand.h"
#include "libc/runtime/gc.internal.h"
#include "libc/stdio/stdio.h"
#include "libc/testlib/ezbench.h"
#include "libc/testlib/testlib.h"
#include "libc/x/x.h"
#include "libc/x/xasprintf.h"
int rando;
@ -32,83 +33,83 @@ void SetUp(void) {
TEST(ldexpl, test) {
EXPECT_EQ(rando, ldexpl(rando, 0));
EXPECT_STREQ("NAN", gc(xdtoal(ldexpl(NAN, 0))));
EXPECT_STREQ("-NAN", gc(xdtoal(ldexpl(-NAN, 0))));
EXPECT_STREQ("INFINITY", gc(xdtoal(ldexpl(INFINITY, 0))));
EXPECT_STREQ("-INFINITY", gc(xdtoal(ldexpl(-INFINITY, 0))));
EXPECT_STREQ("NAN", gc(xdtoal(ldexpl(NAN, 1))));
EXPECT_STREQ("-NAN", gc(xdtoal(ldexpl(-NAN, 1))));
EXPECT_STREQ("INFINITY", gc(xdtoal(ldexpl(INFINITY, 1))));
EXPECT_STREQ("-INFINITY", gc(xdtoal(ldexpl(-INFINITY, 1))));
EXPECT_STREQ("16384", gc(xdtoal(log2l(LDBL_MAX))));
EXPECT_STREQ(".00390625", gc(xdtoal(ldexpl(1, -8))));
EXPECT_STREQ("0", gc(xdtoal(ldexpl(0, -8))));
EXPECT_STREQ("0", gc(xdtoal(ldexpl(0, 8))));
EXPECT_STREQ("256", gc(xdtoal(ldexpl(1, 8))));
EXPECT_STREQ("512", gc(xdtoal(ldexpl(2, 8))));
EXPECT_STREQ("768", gc(xdtoal(ldexpl(3, 8))));
EXPECT_STREQ("6.997616471358197e+3461", gc(xdtoal(ldexpl(1, 11500))));
EXPECT_STREQ("INFINITY", gc(xdtoal(ldexpl(1, 999999))));
EXPECT_STREQ("0", gc(xdtoal(ldexpl(1, -999999))));
EXPECT_STREQ("NAN", _gc(xdtoal(ldexpl(NAN, 0))));
EXPECT_STREQ("-NAN", _gc(xdtoal(ldexpl(-NAN, 0))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(ldexpl(INFINITY, 0))));
EXPECT_STREQ("-INFINITY", _gc(xdtoal(ldexpl(-INFINITY, 0))));
EXPECT_STREQ("NAN", _gc(xdtoal(ldexpl(NAN, 1))));
EXPECT_STREQ("-NAN", _gc(xdtoal(ldexpl(-NAN, 1))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(ldexpl(INFINITY, 1))));
EXPECT_STREQ("-INFINITY", _gc(xdtoal(ldexpl(-INFINITY, 1))));
EXPECT_STREQ("16384", _gc(xdtoal(log2l(LDBL_MAX))));
EXPECT_STREQ(".00390625", _gc(xdtoal(ldexpl(1, -8))));
EXPECT_STREQ("0", _gc(xdtoal(ldexpl(0, -8))));
EXPECT_STREQ("0", _gc(xdtoal(ldexpl(0, 8))));
EXPECT_STREQ("256", _gc(xdtoal(ldexpl(1, 8))));
EXPECT_STREQ("512", _gc(xdtoal(ldexpl(2, 8))));
EXPECT_STREQ("768", _gc(xdtoal(ldexpl(3, 8))));
EXPECT_STREQ("6.997616471358197e+3461", _gc(xdtoal(ldexpl(1, 11500))));
EXPECT_STREQ("INFINITY", _gc(xdtoal(ldexpl(1, 999999))));
EXPECT_STREQ("0", _gc(xdtoal(ldexpl(1, -999999))));
}
TEST(ldexp, test) {
EXPECT_EQ(rando, ldexp(rando, 0));
EXPECT_STREQ("NAN", gc(xdtoa(ldexp(NAN, 0))));
EXPECT_STREQ("-NAN", gc(xdtoa(ldexp(-NAN, 0))));
EXPECT_STREQ("INFINITY", gc(xdtoa(ldexp(INFINITY, 0))));
EXPECT_STREQ("-INFINITY", gc(xdtoa(ldexp(-INFINITY, 0))));
EXPECT_STREQ("NAN", gc(xdtoa(ldexp(NAN, 1))));
EXPECT_STREQ("-NAN", gc(xdtoa(ldexp(-NAN, 1))));
EXPECT_STREQ("INFINITY", gc(xdtoa(ldexp(INFINITY, 1))));
EXPECT_STREQ("-INFINITY", gc(xdtoa(ldexp(-INFINITY, 1))));
EXPECT_STREQ("16384", gc(xdtoa(log2l(LDBL_MAX))));
EXPECT_STREQ(".00390625", gc(xdtoa(ldexp(1, -8))));
EXPECT_STREQ("0", gc(xdtoa(ldexp(0, -8))));
EXPECT_STREQ("0", gc(xdtoa(ldexp(0, 8))));
EXPECT_STREQ("256", gc(xdtoa(ldexp(1, 8))));
EXPECT_STREQ("512", gc(xdtoa(ldexp(2, 8))));
EXPECT_STREQ("768", gc(xdtoa(ldexp(3, 8))));
EXPECT_STREQ("INFINITY", gc(xdtoa(ldexp(1, 999999))));
EXPECT_STREQ("0", gc(xdtoa(ldexp(1, -999999))));
EXPECT_STREQ("NAN", _gc(xdtoa(ldexp(NAN, 0))));
EXPECT_STREQ("-NAN", _gc(xdtoa(ldexp(-NAN, 0))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(ldexp(INFINITY, 0))));
EXPECT_STREQ("-INFINITY", _gc(xdtoa(ldexp(-INFINITY, 0))));
EXPECT_STREQ("NAN", _gc(xdtoa(ldexp(NAN, 1))));
EXPECT_STREQ("-NAN", _gc(xdtoa(ldexp(-NAN, 1))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(ldexp(INFINITY, 1))));
EXPECT_STREQ("-INFINITY", _gc(xdtoa(ldexp(-INFINITY, 1))));
EXPECT_STREQ("16384", _gc(xdtoa(log2l(LDBL_MAX))));
EXPECT_STREQ(".00390625", _gc(xdtoa(ldexp(1, -8))));
EXPECT_STREQ("0", _gc(xdtoa(ldexp(0, -8))));
EXPECT_STREQ("0", _gc(xdtoa(ldexp(0, 8))));
EXPECT_STREQ("256", _gc(xdtoa(ldexp(1, 8))));
EXPECT_STREQ("512", _gc(xdtoa(ldexp(2, 8))));
EXPECT_STREQ("768", _gc(xdtoa(ldexp(3, 8))));
EXPECT_STREQ("INFINITY", _gc(xdtoa(ldexp(1, 999999))));
EXPECT_STREQ("0", _gc(xdtoa(ldexp(1, -999999))));
}
TEST(ldexpf, test) {
EXPECT_EQ(rando, ldexpf(rando, 0));
EXPECT_STREQ("NAN", gc(xdtoaf(ldexpf(NAN, 0))));
EXPECT_STREQ("-NAN", gc(xdtoaf(ldexpf(-NAN, 0))));
EXPECT_STREQ("INFINITY", gc(xdtoaf(ldexpf(INFINITY, 0))));
EXPECT_STREQ("-INFINITY", gc(xdtoaf(ldexpf(-INFINITY, 0))));
EXPECT_STREQ("NAN", gc(xdtoaf(ldexpf(NAN, 1))));
EXPECT_STREQ("-NAN", gc(xdtoaf(ldexpf(-NAN, 1))));
EXPECT_STREQ("INFINITY", gc(xdtoaf(ldexpf(INFINITY, 1))));
EXPECT_STREQ("-INFINITY", gc(xdtoaf(ldexpf(-INFINITY, 1))));
EXPECT_STREQ("16384", gc(xdtoaf(log2l(LDBL_MAX))));
EXPECT_STREQ(".00390625", gc(xdtoaf(ldexpf(1, -8))));
EXPECT_STREQ("0", gc(xdtoaf(ldexpf(0, -8))));
EXPECT_STREQ("0", gc(xdtoaf(ldexpf(0, 8))));
EXPECT_STREQ("256", gc(xdtoaf(ldexpf(1, 8))));
EXPECT_STREQ("512", gc(xdtoaf(ldexpf(2, 8))));
EXPECT_STREQ("768", gc(xdtoaf(ldexpf(3, 8))));
EXPECT_STREQ("INFINITY", gc(xdtoaf(ldexpf(1, 999999))));
EXPECT_STREQ("0", gc(xdtoaf(ldexpf(1, -999999))));
EXPECT_STREQ("NAN", _gc(xdtoaf(ldexpf(NAN, 0))));
EXPECT_STREQ("-NAN", _gc(xdtoaf(ldexpf(-NAN, 0))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(ldexpf(INFINITY, 0))));
EXPECT_STREQ("-INFINITY", _gc(xdtoaf(ldexpf(-INFINITY, 0))));
EXPECT_STREQ("NAN", _gc(xdtoaf(ldexpf(NAN, 1))));
EXPECT_STREQ("-NAN", _gc(xdtoaf(ldexpf(-NAN, 1))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(ldexpf(INFINITY, 1))));
EXPECT_STREQ("-INFINITY", _gc(xdtoaf(ldexpf(-INFINITY, 1))));
EXPECT_STREQ("16384", _gc(xdtoaf(log2l(LDBL_MAX))));
EXPECT_STREQ(".00390625", _gc(xdtoaf(ldexpf(1, -8))));
EXPECT_STREQ("0", _gc(xdtoaf(ldexpf(0, -8))));
EXPECT_STREQ("0", _gc(xdtoaf(ldexpf(0, 8))));
EXPECT_STREQ("256", _gc(xdtoaf(ldexpf(1, 8))));
EXPECT_STREQ("512", _gc(xdtoaf(ldexpf(2, 8))));
EXPECT_STREQ("768", _gc(xdtoaf(ldexpf(3, 8))));
EXPECT_STREQ("INFINITY", _gc(xdtoaf(ldexpf(1, 999999))));
EXPECT_STREQ("0", _gc(xdtoaf(ldexpf(1, -999999))));
}
TEST(ldexp, stuff) {
volatile int twopow = 5;
volatile double pi = 3.14;
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", ldexp(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", ldexpf(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2Lf", ldexpl(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", scalb(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", scalbf(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2Lf", scalbl(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", scalbn(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", scalbnf(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2Lf", scalbnl(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", scalbln(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2f", scalblnf(pi, twopow))));
ASSERT_STREQ("100.48", gc(xasprintf("%.2Lf", scalblnl(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", ldexp(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", ldexpf(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2Lf", ldexpl(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", scalb(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", scalbf(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2Lf", scalbl(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", scalbn(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", scalbnf(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2Lf", scalbnl(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", scalbln(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2f", scalblnf(pi, twopow))));
ASSERT_STREQ("100.48", _gc(xasprintf("%.2Lf", scalblnl(pi, twopow))));
}
BENCH(ldexpl, bench) {