math: fix test vectors for logb
authornsz <nsz@port70.net>
Sun, 7 Oct 2012 18:58:32 +0000 (20:58 +0200)
committernsz <nsz@port70.net>
Sun, 7 Oct 2012 18:58:32 +0000 (20:58 +0200)
src/math/gen/mp.c
src/math/sanity/logb.h
src/math/sanity/logbf.h
src/math/sanity/logbl.h

index 177bc8b..50182e3 100644 (file)
@@ -469,7 +469,7 @@ int mplogb(struct t *t)
        MPFR_DECL_INIT(mx, 53);
 
        mpfr_set_d(mx, t->x, MPFR_RNDN);
-       t->y = mpfr_get_exp(mx) + 1;
+       t->y = mpfr_get_exp(mx) - 1;
        t->dy = 0;
        t->e = 0;
        return 0;
@@ -479,7 +479,7 @@ int mplogbf(struct t *t)
        MPFR_DECL_INIT(mx, 24);
 
        mpfr_set_flt(mx, t->x, MPFR_RNDN);
-       t->y = mpfr_get_exp(mx) + 1;
+       t->y = mpfr_get_exp(mx) - 1;
        t->dy = 0;
        t->e = 0;
        return 0;
@@ -489,7 +489,7 @@ int mplogbl(struct t *t)
        MPFR_DECL_INIT(mx, 64);
 
        mpfr_set_ld(mx, t->x, MPFR_RNDN);
-       t->y = mpfr_get_exp(mx) + 1;
+       t->y = mpfr_get_exp(mx) - 1;
        t->dy = 0;
        t->e = 0;
        return 0;
index c429fa2..589c6a7 100644 (file)
@@ -1,10 +1,10 @@
-T(RN,   -0x1.02239f3c6a8f1p+3,                0x1.4p+2,          0x0p+0, 0)
-T(RN,    0x1.161868e18bc67p+2,                  0x1p+2,          0x0p+0, 0)
-T(RN,   -0x1.0c34b3e01e6e7p+3,                0x1.4p+2,          0x0p+0, 0)
-T(RN,   -0x1.a206f0a19dcc4p+2,                  0x1p+2,          0x0p+0, 0)
-T(RN,    0x1.288bbb0d6a1e6p+3,                0x1.4p+2,          0x0p+0, 0)
-T(RN,    0x1.52efd0cd80497p-1,                  0x1p+0,          0x0p+0, 0)
-T(RN,   -0x1.a05cc754481d1p-2,                  0x0p+0,          0x0p+0, 0)
-T(RN,    0x1.1f9ef934745cbp-1,                  0x1p+0,          0x0p+0, 0)
-T(RN,    0x1.8c5db097f7442p-1,                  0x1p+0,          0x0p+0, 0)
-T(RN,   -0x1.5b86ea8118a0ep-1,                  0x1p+0,          0x0p+0, 0)
+T(RN,   -0x1.02239f3c6a8f1p+3,                0x1.8p+1,          0x0p+0, 0)
+T(RN,    0x1.161868e18bc67p+2,                  0x1p+1,          0x0p+0, 0)
+T(RN,   -0x1.0c34b3e01e6e7p+3,                0x1.8p+1,          0x0p+0, 0)
+T(RN,   -0x1.a206f0a19dcc4p+2,                  0x1p+1,          0x0p+0, 0)
+T(RN,    0x1.288bbb0d6a1e6p+3,                0x1.8p+1,          0x0p+0, 0)
+T(RN,    0x1.52efd0cd80497p-1,                 -0x1p+0,          0x0p+0, 0)
+T(RN,   -0x1.a05cc754481d1p-2,                 -0x1p+1,          0x0p+0, 0)
+T(RN,    0x1.1f9ef934745cbp-1,                 -0x1p+0,          0x0p+0, 0)
+T(RN,    0x1.8c5db097f7442p-1,                 -0x1p+0,          0x0p+0, 0)
+T(RN,   -0x1.5b86ea8118a0ep-1,                 -0x1p+0,          0x0p+0, 0)
index 8f53730..f8a7cfe 100644 (file)
@@ -1,10 +1,10 @@
-T(RN,   -0x1.0223ap+3,        0x1.4p+2,          0x0p+0, 0)
-T(RN,   0x1.161868p+2,          0x1p+2,          0x0p+0, 0)
-T(RN,  -0x1.0c34b4p+3,        0x1.4p+2,          0x0p+0, 0)
-T(RN,   -0x1.a206fp+2,          0x1p+2,          0x0p+0, 0)
-T(RN,   0x1.288bbcp+3,        0x1.4p+2,          0x0p+0, 0)
-T(RN,    0x1.52efdp-1,          0x1p+0,          0x0p+0, 0)
-T(RN,  -0x1.a05cc8p-2,          0x0p+0,          0x0p+0, 0)
-T(RN,   0x1.1f9efap-1,          0x1p+0,          0x0p+0, 0)
-T(RN,    0x1.8c5dbp-1,          0x1p+0,          0x0p+0, 0)
-T(RN,  -0x1.5b86eap-1,          0x1p+0,          0x0p+0, 0)
+T(RN,   -0x1.0223ap+3,        0x1.8p+1,          0x0p+0, 0)
+T(RN,   0x1.161868p+2,          0x1p+1,          0x0p+0, 0)
+T(RN,  -0x1.0c34b4p+3,        0x1.8p+1,          0x0p+0, 0)
+T(RN,   -0x1.a206fp+2,          0x1p+1,          0x0p+0, 0)
+T(RN,   0x1.288bbcp+3,        0x1.8p+1,          0x0p+0, 0)
+T(RN,    0x1.52efdp-1,         -0x1p+0,          0x0p+0, 0)
+T(RN,  -0x1.a05cc8p-2,         -0x1p+1,          0x0p+0, 0)
+T(RN,   0x1.1f9efap-1,         -0x1p+0,          0x0p+0, 0)
+T(RN,    0x1.8c5dbp-1,         -0x1p+0,          0x0p+0, 0)
+T(RN,  -0x1.5b86eap-1,         -0x1p+0,          0x0p+0, 0)
index 12a5427..993d5ca 100644 (file)
@@ -1,10 +1,10 @@
-T(RN,      -0x1.02239f3c6a8f13dep+3L,                      0x1.4p+2L,          0x0p+0, 0)
-T(RN,       0x1.161868e18bc67782p+2L,                        0x1p+2L,          0x0p+0, 0)
-T(RN,      -0x1.0c34b3e01e6e682cp+3L,                      0x1.4p+2L,          0x0p+0, 0)
-T(RN,      -0x1.a206f0a19dcc3948p+2L,                        0x1p+2L,          0x0p+0, 0)
-T(RN,       0x1.288bbb0d6a1e5bdap+3L,                      0x1.4p+2L,          0x0p+0, 0)
-T(RN,       0x1.52efd0cd80496a5ap-1L,                        0x1p+0L,          0x0p+0, 0)
-T(RN,       -0x1.a05cc754481d0bdp-2L,                        0x0p+0L,          0x0p+0, 0)
-T(RN,        0x1.1f9ef934745cad6p-1L,                        0x1p+0L,          0x0p+0, 0)
-T(RN,       0x1.8c5db097f744257ep-1L,                        0x1p+0L,          0x0p+0, 0)
-T(RN,      -0x1.5b86ea8118a0e2bcp-1L,                        0x1p+0L,          0x0p+0, 0)
+T(RN,      -0x1.02239f3c6a8f13dep+3L,                      0x1.8p+1L,          0x0p+0, 0)
+T(RN,       0x1.161868e18bc67782p+2L,                        0x1p+1L,          0x0p+0, 0)
+T(RN,      -0x1.0c34b3e01e6e682cp+3L,                      0x1.8p+1L,          0x0p+0, 0)
+T(RN,      -0x1.a206f0a19dcc3948p+2L,                        0x1p+1L,          0x0p+0, 0)
+T(RN,       0x1.288bbb0d6a1e5bdap+3L,                      0x1.8p+1L,          0x0p+0, 0)
+T(RN,       0x1.52efd0cd80496a5ap-1L,                       -0x1p+0L,          0x0p+0, 0)
+T(RN,       -0x1.a05cc754481d0bdp-2L,                       -0x1p+1L,          0x0p+0, 0)
+T(RN,        0x1.1f9ef934745cad6p-1L,                       -0x1p+0L,          0x0p+0, 0)
+T(RN,       0x1.8c5db097f744257ep-1L,                       -0x1p+0L,          0x0p+0, 0)
+T(RN,      -0x1.5b86ea8118a0e2bcp-1L,                       -0x1p+0L,          0x0p+0, 0)