mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-05-23 05:42:29 +00:00
Get LIBC_TESTLIB building on AARCH64
This commit is contained in:
Justine Tunney
parent
95fab334e4
commit
5e2f7f7ced
46 changed files with 975 additions and 1174 deletions
|
|
@ -21,36 +21,36 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define acoshl(x) acoshl(VEIL("t", (long double)(x)))
|
||||
#define acosh(x) acosh(VEIL("x", (double)(x)))
|
||||
#define acoshf(x) acoshf(VEIL("x", (float)(x)))
|
||||
double _acosh(double) asm("acosh");
|
||||
float _acoshf(float) asm("acoshf");
|
||||
long double _acoshl(long double) asm("acoshl");
|
||||
|
||||
TEST(acosh, test) {
|
||||
EXPECT_STREQ(".962423650119207", gc(xdtoa(acosh(1.5))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(acosh(1))));
|
||||
EXPECT_TRUE(isnan(acosh(NAN)));
|
||||
EXPECT_TRUE(isnan(acosh(.5)));
|
||||
EXPECT_TRUE(isnan(acosh(-.5)));
|
||||
EXPECT_TRUE(isnan(acosh(-1.5)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(acosh(INFINITY))));
|
||||
EXPECT_STREQ(".962423650119207", gc(xdtoa(_acosh(1.5))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_acosh(1))));
|
||||
EXPECT_TRUE(isnan(_acosh(NAN)));
|
||||
EXPECT_TRUE(isnan(_acosh(.5)));
|
||||
EXPECT_TRUE(isnan(_acosh(-.5)));
|
||||
EXPECT_TRUE(isnan(_acosh(-1.5)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_acosh(INFINITY))));
|
||||
}
|
||||
|
||||
TEST(acoshf, test) {
|
||||
EXPECT_STREQ(".962424", gc(xdtoaf(acoshf(1.5))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(acoshf(1))));
|
||||
EXPECT_TRUE(isnan(acoshf(NAN)));
|
||||
EXPECT_TRUE(isnan(acoshf(.5)));
|
||||
EXPECT_TRUE(isnan(acoshf(-.5)));
|
||||
EXPECT_TRUE(isnan(acoshf(-1.5)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(acoshf(INFINITY))));
|
||||
EXPECT_STREQ(".962424", gc(xdtoaf(_acoshf(1.5))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_acoshf(1))));
|
||||
EXPECT_TRUE(isnan(_acoshf(NAN)));
|
||||
EXPECT_TRUE(isnan(_acoshf(.5)));
|
||||
EXPECT_TRUE(isnan(_acoshf(-.5)));
|
||||
EXPECT_TRUE(isnan(_acoshf(-1.5)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_acoshf(INFINITY))));
|
||||
}
|
||||
|
||||
TEST(acoshl, test) {
|
||||
EXPECT_STREQ(".9624236501192069", gc(xdtoal(acoshl(1.5))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(acoshl(1))));
|
||||
EXPECT_TRUE(isnan(acoshl(NAN)));
|
||||
EXPECT_TRUE(isnan(acoshl(.5)));
|
||||
EXPECT_TRUE(isnan(acoshl(-.5)));
|
||||
EXPECT_TRUE(isnan(acoshl(-1.5)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(acoshl(INFINITY))));
|
||||
EXPECT_STREQ(".9624236501192069", gc(xdtoal(_acoshl(1.5))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_acoshl(1))));
|
||||
EXPECT_TRUE(isnan(_acoshl(NAN)));
|
||||
EXPECT_TRUE(isnan(_acoshl(.5)));
|
||||
EXPECT_TRUE(isnan(_acoshl(-.5)));
|
||||
EXPECT_TRUE(isnan(_acoshl(-1.5)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_acoshl(INFINITY))));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -22,32 +22,32 @@
|
|||
#include "libc/x/x.h"
|
||||
#include "libc/x/xasprintf.h"
|
||||
|
||||
#define asinhl(x) asinhl(VEIL("t", (long double)(x)))
|
||||
#define asinh(x) asinh(VEIL("x", (double)(x)))
|
||||
#define asinhf(x) asinhf(VEIL("x", (float)(x)))
|
||||
double _asinh(double) asm("asinh");
|
||||
float _asinhf(float) asm("asinhf");
|
||||
long double _asinhl(long double) asm("asinhl");
|
||||
|
||||
TEST(asinh, test) {
|
||||
EXPECT_STREQ(".481211825059603", _gc(xdtoa(asinh(+.5))));
|
||||
EXPECT_STREQ("-.481211825059603", _gc(xdtoa(asinh(-.5))));
|
||||
EXPECT_STREQ("0", _gc(xdtoa(asinh(0))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoa(asinh(NAN))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoa(asinh(INFINITY))));
|
||||
EXPECT_STREQ(".481211825059603", _gc(xdtoa(_asinh(+.5))));
|
||||
EXPECT_STREQ("-.481211825059603", _gc(xdtoa(_asinh(-.5))));
|
||||
EXPECT_STREQ("0", _gc(xdtoa(_asinh(0))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoa(_asinh(NAN))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoa(_asinh(INFINITY))));
|
||||
EXPECT_STREQ("-2.1073424255447e-08",
|
||||
_gc(xasprintf("%.15g", asinh(-2.1073424255447e-08))));
|
||||
_gc(xasprintf("%.15g", _asinh(-2.1073424255447e-08))));
|
||||
}
|
||||
|
||||
TEST(asinhf, test) {
|
||||
EXPECT_STREQ(".481212", _gc(xdtoaf(asinhf(+.5))));
|
||||
EXPECT_STREQ("-.481212", _gc(xdtoaf(asinhf(-.5))));
|
||||
EXPECT_STREQ("0", _gc(xdtoaf(asinhf(0))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoaf(asinhf(NAN))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoaf(asinhf(INFINITY))));
|
||||
EXPECT_STREQ(".481212", _gc(xdtoaf(_asinhf(+.5))));
|
||||
EXPECT_STREQ("-.481212", _gc(xdtoaf(_asinhf(-.5))));
|
||||
EXPECT_STREQ("0", _gc(xdtoaf(_asinhf(0))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoaf(_asinhf(NAN))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoaf(_asinhf(INFINITY))));
|
||||
}
|
||||
|
||||
TEST(asinhl, test) {
|
||||
EXPECT_STREQ(".4812118250596034", _gc(xdtoal(asinhl(+.5))));
|
||||
EXPECT_STREQ("-.4812118250596034", _gc(xdtoal(asinhl(-.5))));
|
||||
EXPECT_STREQ("0", _gc(xdtoal(asinhl(0))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoal(asinhl(NAN))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoal(asinhl(INFINITY))));
|
||||
EXPECT_STREQ(".4812118250596034", _gc(xdtoal(_asinhl(+.5))));
|
||||
EXPECT_STREQ("-.4812118250596034", _gc(xdtoal(_asinhl(-.5))));
|
||||
EXPECT_STREQ("0", _gc(xdtoal(_asinhl(0))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoal(_asinhl(NAN))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoal(_asinhl(INFINITY))));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -23,48 +23,48 @@
|
|||
#include "libc/x/x.h"
|
||||
#include "libc/x/xasprintf.h"
|
||||
|
||||
#define atanhl(x) atanhl(VEIL("t", (long double)(x)))
|
||||
#define atanh(x) atanh(VEIL("x", (double)(x)))
|
||||
#define atanhf(x) atanhf(VEIL("x", (float)(x)))
|
||||
double _atanh(double) asm("atanh");
|
||||
float _atanhf(float) asm("atanhf");
|
||||
long double _atanhl(long double) asm("atanhl");
|
||||
|
||||
TEST(atanh, test) {
|
||||
EXPECT_STREQ("0", _gc(xdtoa(atanh(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoa(atanh(-0.))));
|
||||
EXPECT_STREQ(".549306144334055", _gc(xdtoa(atanh(.5))));
|
||||
EXPECT_STREQ("-.549306144334055", _gc(xdtoa(atanh(-.5))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoa(atanh(+1))));
|
||||
EXPECT_STREQ("-INFINITY", _gc(xdtoa(atanh(-1))));
|
||||
EXPECT_TRUE(isnan(atanh(+1.1)));
|
||||
EXPECT_TRUE(isnan(atanh(-1.1)));
|
||||
EXPECT_STREQ("0", _gc(xdtoa(_atanh(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoa(_atanh(-0.))));
|
||||
EXPECT_STREQ(".549306144334055", _gc(xdtoa(_atanh(.5))));
|
||||
EXPECT_STREQ("-.549306144334055", _gc(xdtoa(_atanh(-.5))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoa(_atanh(+1))));
|
||||
EXPECT_STREQ("-INFINITY", _gc(xdtoa(_atanh(-1))));
|
||||
EXPECT_TRUE(isnan(_atanh(+1.1)));
|
||||
EXPECT_TRUE(isnan(_atanh(-1.1)));
|
||||
EXPECT_STREQ("-2.1073424255447e-08",
|
||||
_gc(xasprintf("%.15g", atanh(-2.1073424255447e-08))));
|
||||
_gc(xasprintf("%.15g", _atanh(-2.1073424255447e-08))));
|
||||
}
|
||||
|
||||
TEST(atanhl, test) {
|
||||
EXPECT_STREQ("0", _gc(xdtoal(atanhl(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoal(atanhl(-0.))));
|
||||
EXPECT_STREQ(".5493061443340548", _gc(xdtoal(atanhl(.5))));
|
||||
EXPECT_STREQ("-.5493061443340548", _gc(xdtoal(atanhl(-.5))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoal(atanhl(+1))));
|
||||
EXPECT_STREQ("-INFINITY", _gc(xdtoal(atanhl(-1))));
|
||||
EXPECT_TRUE(isnan(atanhl(+1.1)));
|
||||
EXPECT_TRUE(isnan(atanhl(-1.1)));
|
||||
EXPECT_STREQ("0", _gc(xdtoal(_atanhl(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoal(_atanhl(-0.))));
|
||||
EXPECT_STREQ(".5493061443340548", _gc(xdtoal(_atanhl(.5))));
|
||||
EXPECT_STREQ("-.5493061443340548", _gc(xdtoal(_atanhl(-.5))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoal(_atanhl(+1))));
|
||||
EXPECT_STREQ("-INFINITY", _gc(xdtoal(_atanhl(-1))));
|
||||
EXPECT_TRUE(isnan(_atanhl(+1.1)));
|
||||
EXPECT_TRUE(isnan(_atanhl(-1.1)));
|
||||
}
|
||||
|
||||
TEST(atanhf, test) {
|
||||
EXPECT_STREQ("0", _gc(xdtoaf(atanhf(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoaf(atanhf(-0.))));
|
||||
EXPECT_STREQ(".549306", _gc(xdtoaf(atanhf(.5))));
|
||||
EXPECT_STREQ("-.549306", _gc(xdtoaf(atanhf(-.5))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoaf(atanhf(+1))));
|
||||
EXPECT_STREQ("-INFINITY", _gc(xdtoaf(atanhf(-1))));
|
||||
EXPECT_TRUE(isnan(atanhf(+1.1)));
|
||||
EXPECT_TRUE(isnan(atanhf(-1.1)));
|
||||
EXPECT_STREQ("0", _gc(xdtoaf(_atanhf(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoaf(_atanhf(-0.))));
|
||||
EXPECT_STREQ(".549306", _gc(xdtoaf(_atanhf(.5))));
|
||||
EXPECT_STREQ("-.549306", _gc(xdtoaf(_atanhf(-.5))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoaf(_atanhf(+1))));
|
||||
EXPECT_STREQ("-INFINITY", _gc(xdtoaf(_atanhf(-1))));
|
||||
EXPECT_TRUE(isnan(_atanhf(+1.1)));
|
||||
EXPECT_TRUE(isnan(_atanhf(-1.1)));
|
||||
}
|
||||
|
||||
BENCH(atanh, bench) {
|
||||
BENCH(_atanh, bench) {
|
||||
volatile double a = .5;
|
||||
EZBENCH2("atanhf", donothing, EXPROPRIATE(atanhf(a)));
|
||||
EZBENCH2("atanh", donothing, EXPROPRIATE(atanh(a)));
|
||||
EZBENCH2("atanhl", donothing, EXPROPRIATE(atanhl(a)));
|
||||
EZBENCH2("atanhf", donothing, EXPROPRIATE(_atanhf(a)));
|
||||
EZBENCH2("atanh", donothing, EXPROPRIATE(_atanh(a)));
|
||||
EZBENCH2("atanhl", donothing, EXPROPRIATE(_atanhl(a)));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -21,42 +21,42 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define coshl(x) coshl(VEIL("t", (long double)(x)))
|
||||
#define cosh(x) cosh(VEIL("x", (double)(x)))
|
||||
#define coshf(x) coshf(VEIL("x", (float)(x)))
|
||||
double _cosh(double) asm("cosh");
|
||||
float _coshf(float) asm("coshf");
|
||||
long double _coshl(long double) asm("coshl");
|
||||
|
||||
TEST(coshl, test) {
|
||||
EXPECT_STREQ("1.127625965206381", gc(xdtoal(coshl(+.5))));
|
||||
EXPECT_STREQ("1.127625965206381", gc(xdtoal(coshl(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(coshl(30000))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(coshl(-30000))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(coshl(+0.))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(coshl(-0.))));
|
||||
EXPECT_TRUE(isnan(coshl(NAN)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(coshl(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(coshl(-INFINITY))));
|
||||
EXPECT_STREQ("1.127625965206381", gc(xdtoal(_coshl(+.5))));
|
||||
EXPECT_STREQ("1.127625965206381", gc(xdtoal(_coshl(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_coshl(30000))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_coshl(-30000))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(_coshl(+0.))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(_coshl(-0.))));
|
||||
EXPECT_TRUE(isnan(_coshl(NAN)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_coshl(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_coshl(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(cosh, test) {
|
||||
EXPECT_STREQ("1.12762596520638", gc(xdtoa(cosh(+.5))));
|
||||
EXPECT_STREQ("1.12762596520638", gc(xdtoa(cosh(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(cosh(30000))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(cosh(-30000))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(cosh(+0.))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(cosh(-0.))));
|
||||
EXPECT_TRUE(isnan(cosh(NAN)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(cosh(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(cosh(-INFINITY))));
|
||||
EXPECT_STREQ("1.12762596520638", gc(xdtoa(_cosh(+.5))));
|
||||
EXPECT_STREQ("1.12762596520638", gc(xdtoa(_cosh(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_cosh(30000))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_cosh(-30000))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_cosh(+0.))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_cosh(-0.))));
|
||||
EXPECT_TRUE(isnan(_cosh(NAN)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_cosh(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_cosh(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(coshf, test) {
|
||||
EXPECT_STREQ("1.12763", gc(xdtoaf(coshf(+.5))));
|
||||
EXPECT_STREQ("1.12763", gc(xdtoaf(coshf(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(coshf(30000))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(coshf(-30000))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(coshf(+0.))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(coshf(-0.))));
|
||||
EXPECT_TRUE(isnan(coshf(NAN)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(coshf(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(coshf(-INFINITY))));
|
||||
EXPECT_STREQ("1.12763", gc(xdtoaf(_coshf(+.5))));
|
||||
EXPECT_STREQ("1.12763", gc(xdtoaf(_coshf(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_coshf(30000))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_coshf(-30000))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(_coshf(+0.))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(_coshf(-0.))));
|
||||
EXPECT_TRUE(isnan(_coshf(NAN)));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_coshf(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_coshf(-INFINITY))));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -21,39 +21,39 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define exp10l(x) exp10l(VEIL("t", (long double)(x)))
|
||||
#define exp10(x) exp10(VEIL("x", (double)(x)))
|
||||
#define exp10f(x) exp10f(VEIL("x", (float)(x)))
|
||||
double _exp10(double) asm("exp10");
|
||||
float _exp10f(float) asm("exp10f");
|
||||
long double _exp10l(long double) asm("exp10l");
|
||||
|
||||
TEST(exp10l, test) {
|
||||
EXPECT_STREQ("1", gc(xdtoal(exp10l(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(exp10l(-0.))));
|
||||
EXPECT_STREQ(".01", gc(xdtoal(exp10l(-2.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(exp10l(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(exp10l(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(exp10l(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(exp10l(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(exp10l(132098844872390))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(_exp10l(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(_exp10l(-0.))));
|
||||
EXPECT_STREQ(".01", gc(xdtoal(_exp10l(-2.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_exp10l(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_exp10l(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_exp10l(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_exp10l(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_exp10l(132098844872390))));
|
||||
}
|
||||
|
||||
TEST(exp10, test) {
|
||||
EXPECT_STREQ("1", gc(xdtoa(exp10(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(exp10(-0.))));
|
||||
EXPECT_STREQ(".01", gc(xdtoa(exp10(-2.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(exp10(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(exp10(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(exp10(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(exp10(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(exp10(132098844872390))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_exp10(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_exp10(-0.))));
|
||||
EXPECT_STREQ(".01", gc(xdtoa(_exp10(-2.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_exp10(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_exp10(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_exp10(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_exp10(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_exp10(132098844872390))));
|
||||
}
|
||||
|
||||
TEST(exp10f, test) {
|
||||
EXPECT_STREQ("1", gc(xdtoaf(exp10f(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(exp10f(-0.))));
|
||||
EXPECT_STREQ(".01", gc(xdtoaf(exp10f(-2.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(exp10f(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(exp10f(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(exp10f(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(exp10f(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(exp10f(132098844872390))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(_exp10f(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(_exp10f(-0.))));
|
||||
EXPECT_STREQ(".01", gc(xdtoaf(_exp10f(-2.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_exp10f(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_exp10f(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_exp10f(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_exp10f(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_exp10f(132098844872390))));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -22,44 +22,41 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define exp2l(x) exp2l(VEIL("t", (long double)(x)))
|
||||
#define exp2(x) exp2(VEIL("x", (double)(x)))
|
||||
#define exp2f(x) exp2f(VEIL("x", (float)(x)))
|
||||
double _exp2(double) asm("exp2");
|
||||
float _exp2f(float) asm("exp2f");
|
||||
long double _exp2l(long double) asm("exp2l");
|
||||
|
||||
TEST(exp2l, test) {
|
||||
EXPECT_STREQ("1", gc(xdtoal(exp2l(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(exp2l(-0.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(exp2l(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(exp2l(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(exp2l(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(exp2l(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(exp2l(132098844872390))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(_exp2l(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoal(_exp2l(-0.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_exp2l(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_exp2l(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_exp2l(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_exp2l(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_exp2l(132098844872390))));
|
||||
}
|
||||
|
||||
TEST(exp2, test) {
|
||||
EXPECT_STREQ("1", gc(xdtoa(exp2(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(exp2(-0.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(exp2(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(exp2(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(exp2(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(exp2(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(exp2(132098844872390))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_exp2(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_exp2(-0.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_exp2(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_exp2(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_exp2(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_exp2(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_exp2(132098844872390))));
|
||||
}
|
||||
|
||||
TEST(exp2f, test) {
|
||||
EXPECT_STREQ("1", gc(xdtoaf(exp2f(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(exp2f(-0.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(exp2f(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(exp2f(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(exp2f(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(exp2f(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(exp2f(132098844872390))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(_exp2f(0))));
|
||||
EXPECT_STREQ("1", gc(xdtoaf(_exp2f(-0.))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_exp2f(INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_exp2f(-INFINITY))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_exp2f(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_exp2f(-132098844872390))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_exp2f(132098844872390))));
|
||||
}
|
||||
|
||||
BENCH(exp2l, bench) {
|
||||
double _exp2(double) asm("exp2");
|
||||
float _exp2f(float) asm("exp2f");
|
||||
long double _exp2l(long double) asm("exp2l");
|
||||
BENCH(_exp2l, bench) {
|
||||
EZBENCH2("exp2", donothing, _exp2(.7)); /* ~6ns */
|
||||
EZBENCH2("exp2f", donothing, _exp2f(.7)); /* ~5ns */
|
||||
EZBENCH2("exp2l", donothing, _exp2l(.7)); /* ~30ns */
|
||||
|
|
|
|||
|
|
@ -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 */
|
||||
|
|
|
|||
|
|
@ -22,54 +22,54 @@
|
|||
#include "libc/x/x.h"
|
||||
#include "libc/x/xasprintf.h"
|
||||
|
||||
#define expm1l(x) expm1l(VEIL("t", (long double)(x)))
|
||||
#define expm1(x) expm1(VEIL("x", (double)(x)))
|
||||
#define expm1f(x) expm1f(VEIL("x", (float)(x)))
|
||||
double _expm1(double) asm("expm1");
|
||||
float _expm1f(float) asm("expm1f");
|
||||
long double _expm1l(long double) asm("expm1l");
|
||||
|
||||
TEST(expm1, test) {
|
||||
EXPECT_STREQ("0", _gc(xdtoa(expm1(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoa(expm1(-0.))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoa(expm1(NAN))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoa(expm1(-INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoa(expm1(INFINITY))));
|
||||
/* EXPECT_STREQ("-INFINITY", _gc(xdtoa(expm1(-132098844872390)))); */
|
||||
/* EXPECT_STREQ("INFINITY", _gc(xdtoa(expm1(132098844872390)))); */
|
||||
EXPECT_STREQ("0", _gc(xasprintf("%.15g", expm1(0.))));
|
||||
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", expm1(-0.))));
|
||||
EXPECT_STREQ("0.648721270700128", _gc(xasprintf("%.15g", expm1(.5))));
|
||||
EXPECT_STREQ("-0.393469340287367", _gc(xasprintf("%.15g", expm1(-.5))));
|
||||
EXPECT_STREQ("1.71828182845905", _gc(xasprintf("%.15g", expm1(1.))));
|
||||
EXPECT_STREQ("-0.632120558828558", _gc(xasprintf("%.15g", expm1(-1.))));
|
||||
EXPECT_STREQ("3.48168907033806", _gc(xasprintf("%.15g", expm1(1.5))));
|
||||
EXPECT_STREQ("-0.77686983985157", _gc(xasprintf("%.15g", expm1(-1.5))));
|
||||
EXPECT_STREQ("6.38905609893065", _gc(xasprintf("%.15g", expm1(2.))));
|
||||
EXPECT_TRUE(isnan(expm1(NAN)));
|
||||
EXPECT_TRUE(isnan(expm1(-NAN)));
|
||||
EXPECT_STREQ("inf", _gc(xasprintf("%.15g", expm1(INFINITY))));
|
||||
EXPECT_STREQ("-1", _gc(xasprintf("%.15g", expm1(-INFINITY))));
|
||||
EXPECT_STREQ("0", _gc(xdtoa(_expm1(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoa(_expm1(-0.))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoa(_expm1(NAN))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoa(_expm1(-INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoa(_expm1(INFINITY))));
|
||||
/* EXPECT_STREQ("-INFINITY", _gc(xdtoa(_expm1(-132098844872390)))); */
|
||||
/* EXPECT_STREQ("INFINITY", _gc(xdtoa(_expm1(132098844872390)))); */
|
||||
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _expm1(0.))));
|
||||
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _expm1(-0.))));
|
||||
EXPECT_STREQ("0.648721270700128", _gc(xasprintf("%.15g", _expm1(.5))));
|
||||
EXPECT_STREQ("-0.393469340287367", _gc(xasprintf("%.15g", _expm1(-.5))));
|
||||
EXPECT_STREQ("1.71828182845905", _gc(xasprintf("%.15g", _expm1(1.))));
|
||||
EXPECT_STREQ("-0.632120558828558", _gc(xasprintf("%.15g", _expm1(-1.))));
|
||||
EXPECT_STREQ("3.48168907033806", _gc(xasprintf("%.15g", _expm1(1.5))));
|
||||
EXPECT_STREQ("-0.77686983985157", _gc(xasprintf("%.15g", _expm1(-1.5))));
|
||||
EXPECT_STREQ("6.38905609893065", _gc(xasprintf("%.15g", _expm1(2.))));
|
||||
EXPECT_TRUE(isnan(_expm1(NAN)));
|
||||
EXPECT_TRUE(isnan(_expm1(-NAN)));
|
||||
EXPECT_STREQ("inf", _gc(xasprintf("%.15g", _expm1(INFINITY))));
|
||||
EXPECT_STREQ("-1", _gc(xasprintf("%.15g", _expm1(-INFINITY))));
|
||||
EXPECT_STREQ("2.2250738585072e-308",
|
||||
_gc(xasprintf("%.15g", expm1(__DBL_MIN__))));
|
||||
EXPECT_STREQ("inf", _gc(xasprintf("%.15g", expm1(__DBL_MAX__))));
|
||||
_gc(xasprintf("%.15g", _expm1(__DBL_MIN__))));
|
||||
EXPECT_STREQ("inf", _gc(xasprintf("%.15g", _expm1(__DBL_MAX__))));
|
||||
}
|
||||
|
||||
TEST(expm1l, test) {
|
||||
EXPECT_STREQ("1.718281828459045", _gc(xdtoal(expm1l(1))));
|
||||
EXPECT_STREQ("1.718281828459045", _gc(xdtoal(_expm1l(1))));
|
||||
EXPECT_STREQ("1.718281828459045", _gc(xdtoal(expl(1) - 1)));
|
||||
EXPECT_STREQ("0", _gc(xdtoal(expm1l(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoal(expm1l(-0.))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoal(expm1l(NAN))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoal(expm1l(-INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoal(expm1l(INFINITY))));
|
||||
/* EXPECT_STREQ("-INFINITY", _gc(xdtoal(expm1l(-132098844872390)))); */
|
||||
/* EXPECT_STREQ("INFINITY", _gc(xdtoal(expm1l(132098844872390)))); */
|
||||
EXPECT_STREQ("0", _gc(xdtoal(_expm1l(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoal(_expm1l(-0.))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoal(_expm1l(NAN))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoal(_expm1l(-INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoal(_expm1l(INFINITY))));
|
||||
/* EXPECT_STREQ("-INFINITY", _gc(xdtoal(_expm1l(-132098844872390)))); */
|
||||
/* EXPECT_STREQ("INFINITY", _gc(xdtoal(_expm1l(132098844872390)))); */
|
||||
}
|
||||
|
||||
TEST(expm1f, test) {
|
||||
EXPECT_STREQ("0", _gc(xdtoaf(expm1f(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoaf(expm1f(-0.))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoaf(expm1f(NAN))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoaf(expm1f(-INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoaf(expm1f(INFINITY))));
|
||||
/* EXPECT_STREQ("-INFINITY", _gc(xdtoaf(expm1f(-132098844872390)))); */
|
||||
/* EXPECT_STREQ("INFINITY", _gc(xdtoaf(expm1f(132098844872390)))); */
|
||||
EXPECT_STREQ("0", _gc(xdtoaf(_expm1f(0))));
|
||||
EXPECT_STREQ("-0", _gc(xdtoaf(_expm1f(-0.))));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoaf(_expm1f(NAN))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoaf(_expm1f(-INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", _gc(xdtoaf(_expm1f(INFINITY))));
|
||||
/* EXPECT_STREQ("-INFINITY", _gc(xdtoaf(_expm1f(-132098844872390)))); */
|
||||
/* EXPECT_STREQ("INFINITY", _gc(xdtoaf(_expm1f(132098844872390)))); */
|
||||
}
|
||||
|
|
|
|||
|
|
@ -22,46 +22,43 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define fabsl(x) fabsl(VEIL("t", (long double)(x)))
|
||||
#define fabs(x) fabs(VEIL("x", (double)(x)))
|
||||
#define fabsf(x) fabsf(VEIL("x", (float)(x)))
|
||||
double _fabs(double) asm("fabs");
|
||||
float _fabsf(float) asm("fabsf");
|
||||
long double _fabsl(long double) asm("fabsl");
|
||||
|
||||
TEST(fabsl, test) {
|
||||
EXPECT_STREQ("0", gc(xdtoal(fabsl(-0.))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(fabsl(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(fabsl(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(fabsl(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(fabsl(-INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_fabsl(-0.))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_fabsl(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_fabsl(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_fabsl(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_fabsl(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(fabs, test) {
|
||||
EXPECT_STREQ("0", gc(xdtoa(fabs(-0.))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(fabs(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(fabs(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(fabs(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(fabs(-INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_fabs(-0.))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_fabs(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_fabs(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_fabs(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_fabs(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(fabsf, test) {
|
||||
EXPECT_STREQ("0", gc(xdtoaf(fabsf(-0.))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(fabsf(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(fabsf(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(fabsf(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(fabsf(-INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_fabsf(-0.))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_fabsf(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_fabsf(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_fabsf(INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_fabsf(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(fabs, stuff) {
|
||||
EXPECT_LDBL_EQ(3.14, fabs(3.14));
|
||||
EXPECT_LDBL_EQ(3.14, fabs(-3.14));
|
||||
EXPECT_EQ(1, !!isnan(fabs(NAN)));
|
||||
EXPECT_EQ(1, !!isnan(fabs(-NAN)));
|
||||
EXPECT_EQ(0, !!signbit(fabs(-NAN)));
|
||||
EXPECT_LDBL_EQ(3.14, _fabs(3.14));
|
||||
EXPECT_LDBL_EQ(3.14, _fabs(-3.14));
|
||||
EXPECT_EQ(1, !!isnan(_fabs(NAN)));
|
||||
EXPECT_EQ(1, !!isnan(_fabs(-NAN)));
|
||||
EXPECT_EQ(0, !!signbit(_fabs(-NAN)));
|
||||
}
|
||||
|
||||
BENCH(fabs, bench) {
|
||||
double _fabs(double) asm("fabs");
|
||||
float _fabsf(float) asm("fabsf");
|
||||
long double _fabsl(long double) asm("fabsl");
|
||||
EZBENCH2("fabs", donothing, _fabs(.7)); /* ~6ns */
|
||||
EZBENCH2("fabsf", donothing, _fabsf(.7)); /* ~5ns */
|
||||
EZBENCH2("fabsl", donothing, _fabsl(.7)); /* ~28ns */
|
||||
|
|
|
|||
|
|
@ -22,106 +22,106 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define hypotl(x, y) \
|
||||
hypotl(VEIL("t", (long double)(x)), VEIL("t", (long double)(y)))
|
||||
#define hypot(x, y) hypot(VEIL("x", (double)(x)), VEIL("x", (double)(y)))
|
||||
#define hypotf(x, y) hypotf(VEIL("x", (float)(x)), VEIL("x", (float)(y)))
|
||||
double _hypot(double, double) asm("hypot");
|
||||
float _hypotf(float, float) asm("hypotf");
|
||||
long double _hypotl(long double, long double) asm("hypotl");
|
||||
|
||||
TEST(hypot, test) {
|
||||
EXPECT_STREQ("0", gc(xdtoa(hypot(0, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(hypot(3, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(hypot(0, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(-4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(-3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(4, -3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(-3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypot(-4, -3))));
|
||||
EXPECT_STREQ("1.4142135623731", gc(xdtoa(hypot(1, 1))));
|
||||
EXPECT_STREQ("1.4142135623731", gc(xdtoa(hypot(1, -1))));
|
||||
EXPECT_STREQ("1.4142135623731", gc(xdtoa(hypot(-1, 1))));
|
||||
EXPECT_STREQ("1.41421362601271", gc(xdtoa(hypot(1.0000001, .99999999))));
|
||||
EXPECT_STREQ("1.41421362601271", gc(xdtoa(hypot(.99999999, 1.0000001))));
|
||||
EXPECT_STREQ("1.4142135623731e+154", gc(xdtoa(hypot(1e154, 1e154))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(hypot(0, NAN))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(hypot(NAN, 0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(hypot(NAN, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(hypot(INFINITY, 0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(hypot(0, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(hypot(INFINITY, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(hypot(NAN, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(hypot(INFINITY, INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_hypot(0, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_hypot(3, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_hypot(0, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(-4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(-3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(4, -3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(-3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypot(-4, -3))));
|
||||
EXPECT_STREQ("1.4142135623731", gc(xdtoa(_hypot(1, 1))));
|
||||
EXPECT_STREQ("1.4142135623731", gc(xdtoa(_hypot(1, -1))));
|
||||
EXPECT_STREQ("1.4142135623731", gc(xdtoa(_hypot(-1, 1))));
|
||||
EXPECT_STREQ("1.41421362601271", gc(xdtoa(_hypot(1.0000001, .99999999))));
|
||||
EXPECT_STREQ("1.41421362601271", gc(xdtoa(_hypot(.99999999, 1.0000001))));
|
||||
EXPECT_STREQ("1.4142135623731e+154", gc(xdtoa(_hypot(1e154, 1e154))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_hypot(0, NAN))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_hypot(NAN, 0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_hypot(NAN, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_hypot(INFINITY, 0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_hypot(0, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_hypot(INFINITY, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_hypot(NAN, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_hypot(INFINITY, INFINITY))));
|
||||
}
|
||||
|
||||
TEST(hypotf, test) {
|
||||
EXPECT_STREQ("0", gc(xdtoa(hypotf(0, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(hypotf(3, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(hypotf(0, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(-4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(-3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(4, -3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(-3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(hypotf(-4, -3))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(hypotf(1, 1))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(hypotf(1, -1))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(hypotf(-1, 1))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(hypotf(1.000001, 0.999999))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(hypotf(0.999999, 1.000001))));
|
||||
EXPECT_STREQ("1.41421e+38", gc(xdtoaf(hypotf(1e38, 1e38))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(hypotf(0, NAN))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(hypotf(NAN, 0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(hypotf(NAN, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(hypotf(INFINITY, 0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(hypotf(0, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(hypotf(INFINITY, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(hypotf(NAN, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(hypotf(INFINITY, INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_hypotf(0, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_hypotf(3, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_hypotf(0, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(-4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(-3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(4, -3))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(-3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoa(_hypotf(-4, -3))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(_hypotf(1, 1))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(_hypotf(1, -1))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(_hypotf(-1, 1))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(_hypotf(1.000001, 0.999999))));
|
||||
EXPECT_STREQ("1.41421", gc(xdtoaf(_hypotf(0.999999, 1.000001))));
|
||||
EXPECT_STREQ("1.41421e+38", gc(xdtoaf(_hypotf(1e38, 1e38))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_hypotf(0, NAN))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_hypotf(NAN, 0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_hypotf(NAN, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_hypotf(INFINITY, 0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_hypotf(0, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_hypotf(INFINITY, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_hypotf(NAN, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_hypotf(INFINITY, INFINITY))));
|
||||
}
|
||||
|
||||
TEST(hypotll, test) {
|
||||
EXPECT_STREQ("0", gc(xdtoal(hypotl(0, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoal(hypotl(3, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoal(hypotl(0, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(-4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(-3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(4, -3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(-3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(hypotl(-4, -3))));
|
||||
EXPECT_STREQ("1.414213562373095", gc(xdtoal(hypotl(1, 1))));
|
||||
EXPECT_STREQ("1.414213562373095", gc(xdtoal(hypotl(1, -1))));
|
||||
EXPECT_STREQ("1.414213562373095", gc(xdtoal(hypotl(-1, 1))));
|
||||
EXPECT_STREQ("1.414213626012708", gc(xdtoal(hypotl(1.0000001, .99999999))));
|
||||
EXPECT_STREQ("1.414213626012708", gc(xdtoal(hypotl(.99999999, 1.0000001))));
|
||||
EXPECT_STREQ("1.414213562373095e+4931", gc(xdtoal(hypotl(1e4931L, 1e4931L))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(hypotl(0, NAN))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(hypotl(NAN, 0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(hypotl(NAN, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(hypotl(INFINITY, 0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(hypotl(0, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(hypotl(INFINITY, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(hypotl(NAN, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(hypotl(INFINITY, INFINITY))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_hypotl(0, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoal(_hypotl(3, 0))));
|
||||
EXPECT_STREQ("3", gc(xdtoal(_hypotl(0, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(-4, 3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(-3, 4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(4, -3))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(-3, -4))));
|
||||
EXPECT_STREQ("5", gc(xdtoal(_hypotl(-4, -3))));
|
||||
EXPECT_STREQ("1.414213562373095", gc(xdtoal(_hypotl(1, 1))));
|
||||
EXPECT_STREQ("1.414213562373095", gc(xdtoal(_hypotl(1, -1))));
|
||||
EXPECT_STREQ("1.414213562373095", gc(xdtoal(_hypotl(-1, 1))));
|
||||
EXPECT_STREQ("1.414213626012708", gc(xdtoal(_hypotl(1.0000001, .99999999))));
|
||||
EXPECT_STREQ("1.414213626012708", gc(xdtoal(_hypotl(.99999999, 1.0000001))));
|
||||
EXPECT_STREQ("1.414213562373095e+4931",
|
||||
gc(xdtoal(_hypotl(1e4931L, 1e4931L))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_hypotl(0, NAN))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_hypotl(NAN, 0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_hypotl(NAN, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_hypotl(INFINITY, 0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_hypotl(0, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_hypotl(INFINITY, NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_hypotl(NAN, INFINITY))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_hypotl(INFINITY, INFINITY))));
|
||||
}
|
||||
|
||||
/*
|
||||
hypot (musl) l: 53𝑐 17𝑛𝑠 m: 85𝑐 27𝑛𝑠
|
||||
hypot l: 39𝑐 13𝑛𝑠 m: 66𝑐 21𝑛𝑠
|
||||
hypotf l: 25𝑐 8𝑛𝑠 m: 55𝑐 18𝑛𝑠
|
||||
hypotl l: 43𝑐 14𝑛𝑠 m: 74𝑐 24𝑛𝑠
|
||||
_hypot (musl) l: 53𝑐 17𝑛𝑠 m: 85𝑐 27𝑛𝑠
|
||||
_hypot l: 39𝑐 13𝑛𝑠 m: 66𝑐 21𝑛𝑠
|
||||
_hypotf l: 25𝑐 8𝑛𝑠 m: 55𝑐 18𝑛𝑠
|
||||
_hypotl l: 43𝑐 14𝑛𝑠 m: 74𝑐 24𝑛𝑠
|
||||
*/
|
||||
|
||||
BENCH(hypot, bench) {
|
||||
BENCH(_hypot, bench) {
|
||||
volatile double a = 2;
|
||||
volatile double b = 3;
|
||||
EZBENCH2("hypotf", donothing, EXPROPRIATE(hypotf(a, b)));
|
||||
EZBENCH2("hypot", donothing, EXPROPRIATE(hypot(a, b)));
|
||||
EZBENCH2("hypotl", donothing, EXPROPRIATE(hypotl(a, b)));
|
||||
EZBENCH2("hypotf", donothing, EXPROPRIATE(_hypotf(a, b)));
|
||||
EZBENCH2("hypot", donothing, EXPROPRIATE(_hypot(a, b)));
|
||||
EZBENCH2("hypotl", donothing, EXPROPRIATE(_hypotl(a, b)));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -24,61 +24,69 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define roundl(x) roundl(VEIL("t", (long double)(x)))
|
||||
#define round(x) round(VEIL("x", (double)(x)))
|
||||
#define roundf(x) roundf(VEIL("x", (float)(x)))
|
||||
double _round(double) asm("round");
|
||||
float _roundf(float) asm("roundf");
|
||||
long double _roundl(long double) asm("roundl");
|
||||
|
||||
long _lround(double) asm("lround");
|
||||
long _lroundf(float) asm("lroundf");
|
||||
long _lroundl(long double) asm("lroundl");
|
||||
|
||||
long _lrint(double) asm("lrint");
|
||||
long _lrintf(float) asm("lrintf");
|
||||
long _lrintl(long double) asm("lrintl");
|
||||
|
||||
FIXTURE(intrin, disableHardwareExtensions) {
|
||||
memset((/*unconst*/ void *)kCpuids, 0, sizeof(kCpuids));
|
||||
}
|
||||
|
||||
TEST(round, testCornerCases) {
|
||||
EXPECT_STREQ("-0", gc(xdtoa(round(-0.0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(round(NAN))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(round(-NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(round(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(round(-INFINITY))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_round(-0.0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_round(NAN))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(_round(-NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_round(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(_round(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(roundl, testCornerCases) {
|
||||
EXPECT_STREQ("-0", gc(xdtoa(roundl(-0.0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(roundl(NAN))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(roundl(-NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(roundl(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(roundl(-INFINITY))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_roundl(-0.0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_roundl(NAN))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(_roundl(-NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_roundl(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(_roundl(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(round, test) {
|
||||
EXPECT_STREQ("-3", gc(xdtoa(round(-2.5))));
|
||||
EXPECT_STREQ("-2", gc(xdtoa(round(-1.5))));
|
||||
EXPECT_STREQ("-1", gc(xdtoa(round(-.5))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(round(-.4))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(round(.4))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(round(.5))));
|
||||
EXPECT_STREQ("2", gc(xdtoa(round(1.5))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(round(2.5))));
|
||||
EXPECT_STREQ("-3", gc(xdtoa(_round(-2.5))));
|
||||
EXPECT_STREQ("-2", gc(xdtoa(_round(-1.5))));
|
||||
EXPECT_STREQ("-1", gc(xdtoa(_round(-.5))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_round(-.4))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_round(.4))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_round(.5))));
|
||||
EXPECT_STREQ("2", gc(xdtoa(_round(1.5))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_round(2.5))));
|
||||
}
|
||||
|
||||
TEST(roundf, test) {
|
||||
EXPECT_STREQ("-3", gc(xdtoa(roundf(-2.5))));
|
||||
EXPECT_STREQ("-2", gc(xdtoa(roundf(-1.5))));
|
||||
EXPECT_STREQ("-1", gc(xdtoa(roundf(-.5))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(roundf(-.4))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(roundf(.4))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(roundf(.5))));
|
||||
EXPECT_STREQ("2", gc(xdtoa(roundf(1.5))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(roundf(2.5))));
|
||||
EXPECT_STREQ("-3", gc(xdtoa(_roundf(-2.5))));
|
||||
EXPECT_STREQ("-2", gc(xdtoa(_roundf(-1.5))));
|
||||
EXPECT_STREQ("-1", gc(xdtoa(_roundf(-.5))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_roundf(-.4))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_roundf(.4))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_roundf(.5))));
|
||||
EXPECT_STREQ("2", gc(xdtoa(_roundf(1.5))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_roundf(2.5))));
|
||||
}
|
||||
|
||||
TEST(roundl, test) {
|
||||
EXPECT_STREQ("-3", gc(xdtoa(roundl(-2.5))));
|
||||
EXPECT_STREQ("-2", gc(xdtoa(roundl(-1.5))));
|
||||
EXPECT_STREQ("-1", gc(xdtoa(roundl(-.5))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(roundl(-.4))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(roundl(.4))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(roundl(.5))));
|
||||
EXPECT_STREQ("2", gc(xdtoa(roundl(1.5))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(roundl(2.5))));
|
||||
EXPECT_STREQ("-3", gc(xdtoa(_roundl(-2.5))));
|
||||
EXPECT_STREQ("-2", gc(xdtoa(_roundl(-1.5))));
|
||||
EXPECT_STREQ("-1", gc(xdtoa(_roundl(-.5))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_roundl(-.4))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_roundl(.4))));
|
||||
EXPECT_STREQ("1", gc(xdtoa(_roundl(.5))));
|
||||
EXPECT_STREQ("2", gc(xdtoa(_roundl(1.5))));
|
||||
EXPECT_STREQ("3", gc(xdtoa(_roundl(2.5))));
|
||||
}
|
||||
|
||||
TEST(nearbyint, test) {
|
||||
|
|
@ -126,25 +134,25 @@ TEST(rint, test) {
|
|||
}
|
||||
|
||||
TEST(lrint, test) {
|
||||
EXPECT_EQ(-2, lrint(-2.5));
|
||||
EXPECT_EQ(-2, lrint(-1.5));
|
||||
EXPECT_EQ(-0, lrint(-.5));
|
||||
EXPECT_EQ(-0, lrint(-.4));
|
||||
EXPECT_EQ(0, lrint(.4));
|
||||
EXPECT_EQ(0, lrint(.5));
|
||||
EXPECT_EQ(2, lrint(1.5));
|
||||
EXPECT_EQ(2, lrint(2.5));
|
||||
EXPECT_EQ(-2, _lrint(-2.5));
|
||||
EXPECT_EQ(-2, _lrint(-1.5));
|
||||
EXPECT_EQ(-0, _lrint(-.5));
|
||||
EXPECT_EQ(-0, _lrint(-.4));
|
||||
EXPECT_EQ(0, _lrint(.4));
|
||||
EXPECT_EQ(0, _lrint(.5));
|
||||
EXPECT_EQ(2, _lrint(1.5));
|
||||
EXPECT_EQ(2, _lrint(2.5));
|
||||
}
|
||||
|
||||
TEST(lrintf, test) {
|
||||
EXPECT_EQ(-2, lrintf(-2.5));
|
||||
EXPECT_EQ(-2, lrintf(-1.5));
|
||||
EXPECT_EQ(-0, lrintf(-.5));
|
||||
EXPECT_EQ(-0, lrintf(-.4));
|
||||
EXPECT_EQ(0, lrintf(.4));
|
||||
EXPECT_EQ(0, lrintf(.5));
|
||||
EXPECT_EQ(2, lrintf(1.5));
|
||||
EXPECT_EQ(2, lrintf(2.5));
|
||||
EXPECT_EQ(-2, _lrintf(-2.5));
|
||||
EXPECT_EQ(-2, _lrintf(-1.5));
|
||||
EXPECT_EQ(-0, _lrintf(-.5));
|
||||
EXPECT_EQ(-0, _lrintf(-.4));
|
||||
EXPECT_EQ(0, _lrintf(.4));
|
||||
EXPECT_EQ(0, _lrintf(.5));
|
||||
EXPECT_EQ(2, _lrintf(1.5));
|
||||
EXPECT_EQ(2, _lrintf(2.5));
|
||||
}
|
||||
|
||||
TEST(rintf, test) {
|
||||
|
|
@ -170,43 +178,43 @@ TEST(rintl, test) {
|
|||
}
|
||||
|
||||
TEST(roundf, testCornerCases) {
|
||||
EXPECT_STREQ("-0", gc(xdtoa(roundf(-0.0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(roundf(NAN))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(roundf(-NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(roundf(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(roundf(-INFINITY))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_roundf(-0.0))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_roundf(NAN))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(_roundf(-NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_roundf(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(_roundf(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(lroundf, test) {
|
||||
EXPECT_EQ(-3, lroundf(-2.5));
|
||||
EXPECT_EQ(-2, lroundf(-1.5));
|
||||
EXPECT_EQ(-1, lroundf(-.5));
|
||||
EXPECT_EQ(0, lroundf(-.0));
|
||||
EXPECT_EQ(1, lroundf(.5));
|
||||
EXPECT_EQ(2, lroundf(1.5));
|
||||
EXPECT_EQ(3, lroundf(2.5));
|
||||
EXPECT_EQ(-3, _lroundf(-2.5));
|
||||
EXPECT_EQ(-2, _lroundf(-1.5));
|
||||
EXPECT_EQ(-1, _lroundf(-.5));
|
||||
EXPECT_EQ(0, _lroundf(-.0));
|
||||
EXPECT_EQ(1, _lroundf(.5));
|
||||
EXPECT_EQ(2, _lroundf(1.5));
|
||||
EXPECT_EQ(3, _lroundf(2.5));
|
||||
}
|
||||
|
||||
TEST(lround, test) {
|
||||
EXPECT_EQ(-3, lround(-2.5));
|
||||
EXPECT_EQ(-2, lround(-1.5));
|
||||
EXPECT_EQ(-1, lround(-.5));
|
||||
EXPECT_EQ(-0, lround(-.4));
|
||||
EXPECT_EQ(0, lround(.4));
|
||||
EXPECT_EQ(1, lround(.5));
|
||||
EXPECT_EQ(2, lround(1.5));
|
||||
EXPECT_EQ(3, lround(2.5));
|
||||
EXPECT_EQ(-3, _lround(-2.5));
|
||||
EXPECT_EQ(-2, _lround(-1.5));
|
||||
EXPECT_EQ(-1, _lround(-.5));
|
||||
EXPECT_EQ(-0, _lround(-.4));
|
||||
EXPECT_EQ(0, _lround(.4));
|
||||
EXPECT_EQ(1, _lround(.5));
|
||||
EXPECT_EQ(2, _lround(1.5));
|
||||
EXPECT_EQ(3, _lround(2.5));
|
||||
}
|
||||
|
||||
TEST(lroundl, test) {
|
||||
EXPECT_EQ(-3, lroundl(-2.5));
|
||||
EXPECT_EQ(-2, lroundl(-1.5));
|
||||
EXPECT_EQ(-1, lroundl(-.5));
|
||||
EXPECT_EQ(-0, lroundl(-.4));
|
||||
EXPECT_EQ(0, lroundl(.4));
|
||||
EXPECT_EQ(1, lroundl(.5));
|
||||
EXPECT_EQ(2, lroundl(1.5));
|
||||
EXPECT_EQ(3, lroundl(2.5));
|
||||
EXPECT_EQ(-3, _lroundl(-2.5));
|
||||
EXPECT_EQ(-2, _lroundl(-1.5));
|
||||
EXPECT_EQ(-1, _lroundl(-.5));
|
||||
EXPECT_EQ(-0, _lroundl(-.4));
|
||||
EXPECT_EQ(0, _lroundl(.4));
|
||||
EXPECT_EQ(1, _lroundl(.5));
|
||||
EXPECT_EQ(2, _lroundl(1.5));
|
||||
EXPECT_EQ(3, _lroundl(2.5));
|
||||
}
|
||||
|
||||
BENCH(round, bench) {
|
||||
|
|
@ -214,16 +222,10 @@ BENCH(round, bench) {
|
|||
EZBENCH2("float+.5f", donothing, EXPROPRIATE(VEIL("x", (float)(-3.5)) + .5));
|
||||
EZBENCH2("ldbl+.5l", donothing,
|
||||
EXPROPRIATE(VEIL("t", (long double)(-3.5)) + .5));
|
||||
double _round(double) asm("round");
|
||||
float _roundf(float) asm("roundf");
|
||||
long double _roundl(long double) asm("roundl");
|
||||
EZBENCH2("-round", donothing, _round(.7)); /* ~4ns */
|
||||
EZBENCH2("-roundf", donothing, _roundf(.7)); /* ~3ns */
|
||||
EZBENCH2("-roundl", donothing, _roundl(.7)); /* ~8ns */
|
||||
double _lrint(double) asm("lrint");
|
||||
float _lrintf(float) asm("lrintf");
|
||||
long double _lrintl(long double) asm("lrintl");
|
||||
EZBENCH2("-lrint", donothing, _lrint(.7)); /* ~1ns */
|
||||
EZBENCH2("-lrintf", donothing, _lrintf(.7)); /* ~1ns */
|
||||
EZBENCH2("-lrintl", donothing, _lrintl(.7)); /* ~78ns */
|
||||
EZBENCH2("round", donothing, _round(.7)); /* ~4ns */
|
||||
EZBENCH2("roundf", donothing, _roundf(.7)); /* ~3ns */
|
||||
EZBENCH2("roundl", donothing, _roundl(.7)); /* ~8ns */
|
||||
EZBENCH2("lrint", donothing, _lrint(.7)); /* ~1ns */
|
||||
EZBENCH2("lrintf", donothing, _lrintf(.7)); /* ~1ns */
|
||||
EZBENCH2("lrintl", donothing, _lrintl(.7)); /* ~78ns */
|
||||
}
|
||||
|
|
|
|||
|
|
@ -23,61 +23,58 @@
|
|||
#include "libc/x/x.h"
|
||||
#include "libc/x/xasprintf.h"
|
||||
|
||||
#define sinl(x) sinl(VEIL("t", (long double)(x)))
|
||||
#define sin(x) sin(VEIL("x", (double)(x)))
|
||||
#define sinf(x) sinf(VEIL("x", (float)(x)))
|
||||
double _sin(double) asm("sin");
|
||||
float _sinf(float) asm("sinf");
|
||||
long double _sinl(long double) asm("sinl");
|
||||
|
||||
TEST(sinl, test) {
|
||||
EXPECT_STREQ("NAN", _gc(xdtoal(sinl(NAN))));
|
||||
EXPECT_STREQ("-NAN", _gc(xdtoal(sinl(+INFINITY))));
|
||||
EXPECT_STREQ("-NAN", _gc(xdtoal(sinl(-INFINITY))));
|
||||
EXPECT_STREQ(".479425538604203", _gc(xdtoal(sinl(.5))));
|
||||
EXPECT_STREQ("-.479425538604203", _gc(xdtoal(sinl(-.5))));
|
||||
EXPECT_STREQ(".8414709794048734", _gc(xdtoal(sinl(.99999999))));
|
||||
/* EXPECT_STREQ("-.998836772397", _gc(xdtoal(sinl(555555555555)))); */
|
||||
/* EXPECT_STREQ("1", _gc(xdtoal(sinl(5.319372648326541e+255L)))); */
|
||||
EXPECT_STREQ("NAN", _gc(xdtoal(_sinl(NAN))));
|
||||
EXPECT_STREQ("-NAN", _gc(xdtoal(_sinl(+INFINITY))));
|
||||
EXPECT_STREQ("-NAN", _gc(xdtoal(_sinl(-INFINITY))));
|
||||
EXPECT_STREQ(".479425538604203", _gc(xdtoal(_sinl(.5))));
|
||||
EXPECT_STREQ("-.479425538604203", _gc(xdtoal(_sinl(-.5))));
|
||||
EXPECT_STREQ(".8414709794048734", _gc(xdtoal(_sinl(.99999999))));
|
||||
/* EXPECT_STREQ("-.998836772397", _gc(xdtoal(_sinl(555555555555)))); */
|
||||
/* EXPECT_STREQ("1", _gc(xdtoal(_sinl(5.319372648326541e+255L)))); */
|
||||
}
|
||||
|
||||
TEST(sin, test) {
|
||||
EXPECT_STREQ("0", _gc(xasprintf("%.15g", sin(0.))));
|
||||
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", sin(-0.))));
|
||||
EXPECT_STREQ("0.0998334166468282", _gc(xasprintf("%.15g", sin(.1))));
|
||||
EXPECT_STREQ("-0.0998334166468282", _gc(xasprintf("%.15g", sin(-.1))));
|
||||
EXPECT_STREQ("0.479425538604203", _gc(xasprintf("%.15g", sin(.5))));
|
||||
EXPECT_STREQ("-0.479425538604203", _gc(xasprintf("%.15g", sin(-.5))));
|
||||
EXPECT_STREQ("0.841470984807897", _gc(xasprintf("%.15g", sin(1.))));
|
||||
EXPECT_STREQ("-0.841470984807897", _gc(xasprintf("%.15g", sin(-1.))));
|
||||
EXPECT_STREQ("0.997494986604054", _gc(xasprintf("%.15g", sin(1.5))));
|
||||
EXPECT_STREQ("-0.997494986604054", _gc(xasprintf("%.15g", sin(-1.5))));
|
||||
EXPECT_STREQ("0.909297426825682", _gc(xasprintf("%.15g", sin(2.))));
|
||||
EXPECT_TRUE(isnan(sin(NAN)));
|
||||
EXPECT_TRUE(isnan(sin(-NAN)));
|
||||
EXPECT_TRUE(isnan(sin(INFINITY)));
|
||||
EXPECT_TRUE(isnan(sin(-INFINITY)));
|
||||
EXPECT_STREQ("0", _gc(xasprintf("%.15g", _sin(0.))));
|
||||
EXPECT_STREQ("-0", _gc(xasprintf("%.15g", _sin(-0.))));
|
||||
EXPECT_STREQ("0.0998334166468282", _gc(xasprintf("%.15g", _sin(.1))));
|
||||
EXPECT_STREQ("-0.0998334166468282", _gc(xasprintf("%.15g", _sin(-.1))));
|
||||
EXPECT_STREQ("0.479425538604203", _gc(xasprintf("%.15g", _sin(.5))));
|
||||
EXPECT_STREQ("-0.479425538604203", _gc(xasprintf("%.15g", _sin(-.5))));
|
||||
EXPECT_STREQ("0.841470984807897", _gc(xasprintf("%.15g", _sin(1.))));
|
||||
EXPECT_STREQ("-0.841470984807897", _gc(xasprintf("%.15g", _sin(-1.))));
|
||||
EXPECT_STREQ("0.997494986604054", _gc(xasprintf("%.15g", _sin(1.5))));
|
||||
EXPECT_STREQ("-0.997494986604054", _gc(xasprintf("%.15g", _sin(-1.5))));
|
||||
EXPECT_STREQ("0.909297426825682", _gc(xasprintf("%.15g", _sin(2.))));
|
||||
EXPECT_TRUE(isnan(_sin(NAN)));
|
||||
EXPECT_TRUE(isnan(_sin(-NAN)));
|
||||
EXPECT_TRUE(isnan(_sin(INFINITY)));
|
||||
EXPECT_TRUE(isnan(_sin(-INFINITY)));
|
||||
EXPECT_STREQ("2.2250738585072e-308",
|
||||
_gc(xasprintf("%.15g", sin(__DBL_MIN__))));
|
||||
_gc(xasprintf("%.15g", _sin(__DBL_MIN__))));
|
||||
EXPECT_STREQ("0.00496195478918406",
|
||||
_gc(xasprintf("%.15g", sin(__DBL_MAX__))));
|
||||
_gc(xasprintf("%.15g", _sin(__DBL_MAX__))));
|
||||
EXPECT_STREQ("-0.841470984807897",
|
||||
_gc(xasprintf("%.15g", sin(-1.0000000000000002))));
|
||||
_gc(xasprintf("%.15g", _sin(-1.0000000000000002))));
|
||||
EXPECT_STREQ("-2.1073424255447e-08",
|
||||
_gc(xasprintf("%.15g", sin(-2.1073424255447e-08))));
|
||||
_gc(xasprintf("%.15g", _sin(-2.1073424255447e-08))));
|
||||
}
|
||||
|
||||
TEST(sinf, test) {
|
||||
EXPECT_TRUE(isnan(sinf(NAN)));
|
||||
EXPECT_TRUE(isnan(sinf(+INFINITY)));
|
||||
EXPECT_TRUE(isnan(sinf(-INFINITY)));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoaf(sinf(NAN))));
|
||||
EXPECT_STARTSWITH(".479426", _gc(xdtoaf(sinf(.5f))));
|
||||
EXPECT_STARTSWITH("-.479426", _gc(xdtoaf(sinf(-.5f))));
|
||||
EXPECT_STARTSWITH(".873283", _gc(xdtoaf(sinf(555))));
|
||||
EXPECT_TRUE(isnan(_sinf(NAN)));
|
||||
EXPECT_TRUE(isnan(_sinf(+INFINITY)));
|
||||
EXPECT_TRUE(isnan(_sinf(-INFINITY)));
|
||||
EXPECT_STREQ("NAN", _gc(xdtoaf(_sinf(NAN))));
|
||||
EXPECT_STARTSWITH(".479426", _gc(xdtoaf(_sinf(.5f))));
|
||||
EXPECT_STARTSWITH("-.479426", _gc(xdtoaf(_sinf(-.5f))));
|
||||
EXPECT_STARTSWITH(".873283", _gc(xdtoaf(_sinf(555))));
|
||||
}
|
||||
|
||||
BENCH(sin, bench) {
|
||||
double _sin(double) asm("sin");
|
||||
float _sinf(float) asm("sinf");
|
||||
long double _sinl(long double) asm("sinl");
|
||||
BENCH(_sin, bench) {
|
||||
EZBENCH2("sin", donothing, _sin(.7)); /* ~5ns */
|
||||
EZBENCH2("sinf", donothing, _sinf(.7)); /* ~5ns */
|
||||
EZBENCH2("sinl", donothing, _sinl(.7)); /* ~28ns */
|
||||
|
|
|
|||
|
|
@ -21,42 +21,42 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define sinhl(x) sinhl(VEIL("t", (long double)(x)))
|
||||
#define sinh(x) sinh(VEIL("x", (double)(x)))
|
||||
#define sinhf(x) sinhf(VEIL("x", (float)(x)))
|
||||
double _sinh(double) asm("sinh");
|
||||
float _sinhf(float) asm("sinhf");
|
||||
long double _sinhl(long double) asm("sinhl");
|
||||
|
||||
TEST(sinh, test) {
|
||||
EXPECT_STREQ(".521095305493747", gc(xdtoa(sinh(+.5))));
|
||||
EXPECT_STREQ("-.521095305493747", gc(xdtoa(sinh(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(sinh(30000))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(sinh(-30000))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(sinh(0))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(sinh(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(sinh(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(sinh(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(sinh(-INFINITY))));
|
||||
EXPECT_STREQ(".521095305493747", gc(xdtoa(_sinh(+.5))));
|
||||
EXPECT_STREQ("-.521095305493747", gc(xdtoa(_sinh(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_sinh(30000))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(_sinh(-30000))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_sinh(0))));
|
||||
EXPECT_STREQ("-0", gc(xdtoa(_sinh(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_sinh(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_sinh(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoa(_sinh(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(sinhl, test) {
|
||||
EXPECT_STREQ(".5210953054937474", gc(xdtoal(sinhl(+.5))));
|
||||
EXPECT_STREQ("-.5210953054937474", gc(xdtoal(sinhl(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(sinhl(30000))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoal(sinhl(-30000))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(sinhl(0))));
|
||||
EXPECT_STREQ("-0", gc(xdtoal(sinhl(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(sinhl(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(sinhl(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoal(sinhl(-INFINITY))));
|
||||
EXPECT_STREQ(".5210953054937474", gc(xdtoal(_sinhl(+.5))));
|
||||
EXPECT_STREQ("-.5210953054937474", gc(xdtoal(_sinhl(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_sinhl(30000))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoal(_sinhl(-30000))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_sinhl(0))));
|
||||
EXPECT_STREQ("-0", gc(xdtoal(_sinhl(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_sinhl(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_sinhl(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoal(_sinhl(-INFINITY))));
|
||||
}
|
||||
|
||||
TEST(sinhf, test) {
|
||||
EXPECT_STREQ(".521095", gc(xdtoaf(sinhf(+.5))));
|
||||
EXPECT_STREQ("-.521095", gc(xdtoaf(sinhf(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(sinhf(30000))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoaf(sinhf(-30000))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(sinhf(0))));
|
||||
EXPECT_STREQ("-0", gc(xdtoaf(sinhf(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(sinhf(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(sinhf(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoaf(sinhf(-INFINITY))));
|
||||
EXPECT_STREQ(".521095", gc(xdtoaf(_sinhf(+.5))));
|
||||
EXPECT_STREQ("-.521095", gc(xdtoaf(_sinhf(-.5))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_sinhf(30000))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoaf(_sinhf(-30000))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_sinhf(0))));
|
||||
EXPECT_STREQ("-0", gc(xdtoaf(_sinhf(-0.))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_sinhf(NAN))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_sinhf(INFINITY))));
|
||||
EXPECT_STREQ("-INFINITY", gc(xdtoaf(_sinhf(-INFINITY))));
|
||||
}
|
||||
|
|
|
|||
|
|
@ -22,39 +22,36 @@
|
|||
#include "libc/testlib/testlib.h"
|
||||
#include "libc/x/x.h"
|
||||
|
||||
#define sqrtl(x) sqrtl(VEIL("t", (long double)(x)))
|
||||
#define sqrt(x) sqrt(VEIL("x", (double)(x)))
|
||||
#define sqrtf(x) sqrtf(VEIL("x", (float)(x)))
|
||||
double _sqrt(double) asm("sqrt");
|
||||
float _sqrtf(float) asm("sqrtf");
|
||||
long double _sqrtl(long double) asm("sqrtl");
|
||||
|
||||
TEST(sqrtl, test) {
|
||||
EXPECT_STREQ("7", gc(xdtoal(sqrtl(7 * 7))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(sqrtl(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(sqrtl(0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(sqrtl(INFINITY))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoal(sqrtl(-1))));
|
||||
EXPECT_STREQ("7", gc(xdtoal(_sqrtl(7 * 7))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoal(_sqrtl(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoal(_sqrtl(0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoal(_sqrtl(INFINITY))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoal(_sqrtl(-1))));
|
||||
}
|
||||
|
||||
TEST(sqrt, test) {
|
||||
EXPECT_STREQ("7", gc(xdtoa(sqrt(7 * 7))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(sqrt(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(sqrt(0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(sqrt(INFINITY))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(sqrt(-1))));
|
||||
EXPECT_STREQ("7", gc(xdtoa(_sqrt(7 * 7))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoa(_sqrt(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoa(_sqrt(0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoa(_sqrt(INFINITY))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoa(_sqrt(-1))));
|
||||
}
|
||||
|
||||
TEST(sqrtf, test) {
|
||||
EXPECT_STREQ("7", gc(xdtoaf(sqrtf(7 * 7))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(sqrtf(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(sqrtf(0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(sqrtf(INFINITY))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoaf(sqrtf(-1))));
|
||||
EXPECT_STREQ("7", gc(xdtoaf(_sqrtf(7 * 7))));
|
||||
EXPECT_STREQ("NAN", gc(xdtoaf(_sqrtf(NAN))));
|
||||
EXPECT_STREQ("0", gc(xdtoaf(_sqrtf(0))));
|
||||
EXPECT_STREQ("INFINITY", gc(xdtoaf(_sqrtf(INFINITY))));
|
||||
EXPECT_STREQ("-NAN", gc(xdtoaf(_sqrtf(-1))));
|
||||
}
|
||||
|
||||
BENCH(sqrt, bench) {
|
||||
double _sqrt(double) asm("sqrt");
|
||||
float _sqrtf(float) asm("sqrtf");
|
||||
long double _sqrtl(long double) asm("sqrtl");
|
||||
EZBENCH2("sqrt", donothing, _sqrt(.7)); /* ~5ns */
|
||||
EZBENCH2("sqrtf", donothing, _sqrtf(.7)); /* ~5ns */
|
||||
EZBENCH2("sqrtl", donothing, _sqrtl(.7)); /* ~28ns */
|
||||
BENCH(_sqrt, bench) {
|
||||
EZBENCH2("sqrt", donothing, _sqrt(.7)); /* ~2ns */
|
||||
EZBENCH2("sqrtf", donothing, _sqrtf(.7)); /* ~1ns */
|
||||
EZBENCH2("sqrtl", donothing, _sqrtl(.7)); /* ~9ns */
|
||||
}
|
||||
|
|
|
|||
|
|
@ -22,51 +22,51 @@
|
|||
#include "libc/x/x.h"
|
||||
#include "libc/x/xasprintf.h"
|
||||
|
||||
#define tanhl(x) tanhl(VEIL("t", (long double)(x)))
|
||||
#define tanh(x) tanh(VEIL("x", (double)(x)))
|
||||
#define tanhf(x) tanhf(VEIL("x", (float)(x)))
|
||||
double _tanh(double) asm("tanh");
|
||||
float _tanhf(float) asm("tanhf");
|
||||
long double _tanhl(long double) asm("tanhl");
|
||||
|
||||
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_TRUE(isnan(tanhl(NAN)));
|
||||
EXPECT_STREQ("1", _gc(xdtoal(tanhl(INFINITY))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoal(tanhl(-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_TRUE(isnan(_tanhl(NAN)));
|
||||
EXPECT_STREQ("1", _gc(xdtoal(_tanhl(INFINITY))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoal(_tanhl(-INFINITY))));
|
||||
}
|
||||
|
||||
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_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))));
|
||||
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_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("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_TRUE(isnan(tanhf(NAN)));
|
||||
EXPECT_STREQ("1", _gc(xdtoaf(tanhf(INFINITY))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoaf(tanhf(-INFINITY))));
|
||||
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_TRUE(isnan(_tanhf(NAN)));
|
||||
EXPECT_STREQ("1", _gc(xdtoaf(_tanhf(INFINITY))));
|
||||
EXPECT_STREQ("-1", _gc(xdtoaf(_tanhf(-INFINITY))));
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue