Home | History | Annotate | Download | only in Unit 
      1 //===--------------- fixtfti_test.c - Test __fixtfti ----------------------===//
      2 //
      3 //                     The LLVM Compiler Infrastructure
      4 //
      5 // This file is dual licensed under the MIT and the University of Illinois Open
      6 // Source Licenses. See LICENSE.TXT for details.
      7 //
      8 //===----------------------------------------------------------------------===//
      9 //
     10 // This file tests __fixtfti for the compiler_rt library.
     11 //
     12 //===----------------------------------------------------------------------===//
     13 
     14 #include "int_lib.h"
     15 #include <stdio.h>
     16 
     17 #if __LDBL_MANT_DIG__ == 113
     18 
     19 #include "fp_test.h"
     20 
     21 ti_int __fixtfti(long double a);
     22 
     23 int test__fixtfti(long double a, ti_int expected)
     24 {
     25     ti_int x = __fixtfti(a);
     26     int ret = (x != expected);
     27 
     28     if (ret)
     29     {
     30         twords xt;
     31         xt.all = x;
     32 
     33         twords expectedt;
     34         expectedt.all = expected;
     35 
     36         printf("error in test__fixtfti(%.20Lf) = 0x%.16llX%.16llX, "
     37                "expected 0x%.16llX%.16llX\n",
     38                a, xt.s.high, xt.s.low, expectedt.s.high, expectedt.s.low);
     39     }
     40     return ret;
     41 }
     42 
     43 char assumption_1[sizeof(long double) * CHAR_BIT == 128] = {0};
     44 
     45 #endif
     46 
     47 int main()
     48 {
     49 #if __LDBL_MANT_DIG__ == 113
     50     if (test__fixtfti(makeInf128(), make_ti(0x7fffffffffffffffLL,
     51                                             0xffffffffffffffffLL)))
     52         return 1;
     53     if (test__fixtfti(0, make_ti(0x0LL, 0x0LL)))
     54         return 1;
     55     if (test__fixtfti(0x1.23456789abcdefp+5L, make_ti(0x0LL, 0x24LL)))
     56         return 1;
     57     if (test__fixtfti(0x1.23456789abcdefp-3L, make_ti(0x0LL, 0x0LL)))
     58         return 1;
     59     if (test__fixtfti(0x1.23456789abcdef12345678p+20L,
     60                       make_ti(0x0LL, 0x123456LL)))
     61         return 1;
     62     if (test__fixtfti(0x1.23456789abcdef123456789abcdep+112L,
     63                       make_ti(0x123456789abcdLL, 0xef123456789abcdeLL)))
     64         return 1;
     65     if (test__fixtfti(-0x1.23456789abcdef123456789abcdep+112L,
     66                       make_ti(0xFFFEDCBA98765432LL, 0x10EDCBA987654322LL)))
     67         return 1;
     68     if (test__fixtfti(0x1.23456789abcdefp+256L, make_ti(0x7fffffffffffffffLL,
     69                                                         0xffffffffffffffffLL)))
     70         return 1;
     71     if (test__fixtfti(-0x1.23456789abcdefp+20L, make_ti(0xffffffffffffffffLL,
     72                                                         0xffffffffffedcbaaLL)))
     73         return 1;
     74     if (test__fixtfti(-0x1.23456789abcdefp+256L, make_ti(0x8000000000000000LL,
     75                                                          0x0)))
     76         return 1;
     77 
     78 #else
     79     printf("skipped\n");
     80 
     81 #endif
     82     return 0;
     83 }
     84