Home | History | Annotate | Download | only in Unit
      1 //===-- fixunsxfti_test.c - Test __fixunsxfti -----------------------------===//
      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 __fixunsxfti for the compiler_rt library.
     11 //
     12 //===----------------------------------------------------------------------===//
     13 
     14 #if __x86_64
     15 
     16 #include "int_lib.h"
     17 #include <stdio.h>
     18 
     19 // Returns: convert a to a unsigned long long, rounding toward zero.
     20 //          Negative values all become zero.
     21 
     22 // Assumption: long double is an intel 80 bit floating point type padded with 6 bytes
     23 //             tu_int is a 64 bit integral type
     24 //             value in long double is representable in tu_int or is negative
     25 //                 (no range checking performed)
     26 
     27 // gggg gggg gggg gggg gggg gggg gggg gggg | gggg gggg gggg gggg seee eeee eeee eeee |
     28 // 1mmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm | mmmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm
     29 
     30 tu_int __fixunsxfti(long double a);
     31 
     32 int test__fixunsxfti(long double a, tu_int expected)
     33 {
     34     tu_int x = __fixunsxfti(a);
     35     if (x != expected)
     36     {
     37         utwords xt;
     38         xt.all = x;
     39         utwords expectedt;
     40         expectedt.all = expected;
     41         printf("error in __fixunsxfti(%LA) = 0x%.16llX%.16llX, expected 0x%.16llX%.16llX\n",
     42                a, xt.s.high, xt.s.low, expectedt.s.high, expectedt.s.low);
     43     }
     44     return x != expected;
     45 }
     46 
     47 char assumption_1[sizeof(tu_int) == 2*sizeof(du_int)] = {0};
     48 char assumption_2[sizeof(tu_int)*CHAR_BIT == 128] = {0};
     49 char assumption_3[sizeof(long double)*CHAR_BIT == 128] = {0};
     50 
     51 #endif
     52 
     53 int main()
     54 {
     55 #if __x86_64
     56     if (test__fixunsxfti(0.0, 0))
     57         return 1;
     58 
     59     if (test__fixunsxfti(0.5, 0))
     60         return 1;
     61     if (test__fixunsxfti(0.99, 0))
     62         return 1;
     63     if (test__fixunsxfti(1.0, 1))
     64         return 1;
     65     if (test__fixunsxfti(1.5, 1))
     66         return 1;
     67     if (test__fixunsxfti(1.99, 1))
     68         return 1;
     69     if (test__fixunsxfti(2.0, 2))
     70         return 1;
     71     if (test__fixunsxfti(2.01, 2))
     72         return 1;
     73     if (test__fixunsxfti(-0.5, 0))
     74         return 1;
     75     if (test__fixunsxfti(-0.99, 0))
     76         return 1;
     77     if (test__fixunsxfti(-1.0, 0))
     78         return 1;
     79     if (test__fixunsxfti(-1.5, 0))
     80         return 1;
     81     if (test__fixunsxfti(-1.99, 0))
     82         return 1;
     83     if (test__fixunsxfti(-2.0, 0))
     84         return 1;
     85     if (test__fixunsxfti(-2.01, 0))
     86         return 1;
     87 
     88     if (test__fixunsxfti(0x1.FFFFFEp+62, 0x7FFFFF8000000000LL))
     89         return 1;
     90     if (test__fixunsxfti(0x1.FFFFFCp+62, 0x7FFFFF0000000000LL))
     91         return 1;
     92 
     93     if (test__fixunsxfti(-0x1.FFFFFEp+62, 0))
     94         return 1;
     95     if (test__fixunsxfti(-0x1.FFFFFCp+62, 0))
     96         return 1;
     97 
     98     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFp+62, 0x7FFFFFFFFFFFFC00LL))
     99         return 1;
    100     if (test__fixunsxfti(0x1.FFFFFFFFFFFFEp+62, 0x7FFFFFFFFFFFF800LL))
    101         return 1;
    102 
    103     if (test__fixunsxfti(-0x1.FFFFFFFFFFFFFp+62, 0))
    104         return 1;
    105     if (test__fixunsxfti(-0x1.FFFFFFFFFFFFEp+62, 0))
    106         return 1;
    107 
    108     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFFFEp+63L, 0xFFFFFFFFFFFFFFFFLL))
    109         return 1;
    110     if (test__fixunsxfti(0x1.0000000000000002p+63L, 0x8000000000000001LL))
    111         return 1;
    112     if (test__fixunsxfti(0x1.0000000000000000p+63L, 0x8000000000000000LL))
    113         return 1;
    114     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFFFCp+62L, 0x7FFFFFFFFFFFFFFFLL))
    115         return 1;
    116     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFFF8p+62L, 0x7FFFFFFFFFFFFFFELL))
    117         return 1;
    118 
    119     if (test__fixunsxfti(-0x1.0000000000000000p+63L, 0))
    120         return 1;
    121     if (test__fixunsxfti(-0x1.FFFFFFFFFFFFFFFCp+62L, 0))
    122         return 1;
    123     if (test__fixunsxfti(-0x1.FFFFFFFFFFFFFFF8p+62L, 0))
    124         return 1;
    125 
    126     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFFFEp+127L, make_ti(0xFFFFFFFFFFFFFFFFLL, 0)))
    127         return 1;
    128     if (test__fixunsxfti(0x1.0000000000000002p+127L, make_ti(0x8000000000000001LL, 0)))
    129         return 1;
    130     if (test__fixunsxfti(0x1.0000000000000000p+127L, make_ti(0x8000000000000000LL, 0)))
    131         return 1;
    132     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFFFCp+126L, make_ti(0x7FFFFFFFFFFFFFFFLL, 0)))
    133         return 1;
    134     if (test__fixunsxfti(0x1.FFFFFFFFFFFFFFF8p+126L, make_ti(0x7FFFFFFFFFFFFFFELL, 0)))
    135         return 1;
    136 
    137 #else
    138     printf("skipped\n");
    139 #endif
    140    return 0;
    141 }
    142