1//===-- fixsfti_test.c - Test __fixsfti -----------------------------------===//
2//
3//                     The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9//
10// This file tests __fixsfti 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 signed long long, rounding toward zero.
20
21// Assumption: float is a IEEE 32 bit floating point type
22//             su_int is a 32 bit integral type
23//             value in float is representable in ti_int (no range checking performed)
24
25// seee eeee emmm mmmm mmmm mmmm mmmm mmmm
26
27ti_int __fixsfti(float a);
28
29int test__fixsfti(float a, ti_int expected)
30{
31    ti_int x = __fixsfti(a);
32    if (x != expected)
33    {
34        twords xt;
35        xt.all = x;
36        twords expectedt;
37        expectedt.all = expected;
38        printf("error in __fixsfti(%A) = 0x%.16llX%.16llX, expected 0x%.16llX%.16llX\n",
39        a, xt.s.high, xt.s.low, expectedt.s.high, expectedt.s.low);
40    }
41    return x != expected;
42}
43
44char assumption_1[sizeof(ti_int) == 2*sizeof(di_int)] = {0};
45char assumption_2[sizeof(su_int)*CHAR_BIT == 32] = {0};
46char assumption_3[sizeof(float)*CHAR_BIT == 32] = {0};
47
48#endif
49
50int main()
51{
52#if __x86_64
53    if (test__fixsfti(0.0F, 0))
54        return 1;
55
56    if (test__fixsfti(0.5F, 0))
57        return 1;
58    if (test__fixsfti(0.99F, 0))
59        return 1;
60    if (test__fixsfti(1.0F, 1))
61        return 1;
62    if (test__fixsfti(1.5F, 1))
63        return 1;
64    if (test__fixsfti(1.99F, 1))
65        return 1;
66    if (test__fixsfti(2.0F, 2))
67        return 1;
68    if (test__fixsfti(2.01F, 2))
69        return 1;
70    if (test__fixsfti(-0.5F, 0))
71        return 1;
72    if (test__fixsfti(-0.99F, 0))
73        return 1;
74    if (test__fixsfti(-1.0F, -1))
75        return 1;
76    if (test__fixsfti(-1.5F, -1))
77        return 1;
78    if (test__fixsfti(-1.99F, -1))
79        return 1;
80    if (test__fixsfti(-2.0F, -2))
81        return 1;
82    if (test__fixsfti(-2.01F, -2))
83        return 1;
84
85    if (test__fixsfti(0x1.FFFFFEp+62F, 0x7FFFFF8000000000LL))
86        return 1;
87    if (test__fixsfti(0x1.FFFFFCp+62F, 0x7FFFFF0000000000LL))
88        return 1;
89
90    if (test__fixsfti(-0x1.FFFFFEp+62F, make_ti(0xFFFFFFFFFFFFFFFFLL,
91                                                0x8000008000000000LL)))
92        return 1;
93    if (test__fixsfti(-0x1.FFFFFCp+62F, make_ti(0xFFFFFFFFFFFFFFFFLL,
94                                                0x8000010000000000LL)))
95        return 1;
96
97    if (test__fixsfti(0x1.FFFFFEp+126F, make_ti(0x7FFFFF8000000000LL, 0)))
98        return 1;
99    if (test__fixsfti(0x1.FFFFFCp+126F, make_ti(0x7FFFFF0000000000LL, 0)))
100        return 1;
101
102    if (test__fixsfti(-0x1.FFFFFEp+126F, make_ti(0x8000008000000000LL, 0)))
103        return 1;
104    if (test__fixsfti(-0x1.FFFFFCp+126F, make_ti(0x8000010000000000LL, 0)))
105        return 1;
106
107#endif
108   return 0;
109}
110