• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 //===-- aeabi_cfcmple.c - Test __aeabi_cfcmple and __aeabi_cfrcmple -------===//
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 __aeabi_cfcmple and __aeabi_cfrcmple for the compiler_rt
11 // library.
12 //
13 //===----------------------------------------------------------------------===//
14 
15 #include <stdint.h>
16 #include <stdio.h>
17 #include <stdlib.h>
18 #include <math.h>
19 
20 #include "call_apsr.h"
21 
22 #if __arm__
23 
24 extern __attribute__((pcs("aapcs"))) void __aeabi_cfcmple(float a, float b);
25 extern __attribute__((pcs("aapcs"))) void __aeabi_cfrcmple(float a, float b);
26 
test__aeabi_cfcmple(float a,float b,int expected)27 int test__aeabi_cfcmple(float a, float b, int expected)
28 {
29     int32_t cpsr_value = call_apsr_f(a, b, __aeabi_cfcmple);
30     int32_t r_cpsr_value = call_apsr_f(b, a, __aeabi_cfrcmple);
31 
32     if (cpsr_value != r_cpsr_value) {
33         printf("error: __aeabi_cfcmple(%f, %f) != __aeabi_cfrcmple(%f, %f)\n", a, b, b, a);
34         return 1;
35     }
36 
37     int expected_z, expected_c;
38     if (expected == -1) {
39         expected_z = 0;
40         expected_c = 0;
41     } else if (expected == 0) {
42         expected_z = 1;
43         expected_c = 1;
44     } else {
45         // a or b is NaN, or a > b
46         expected_z = 0;
47         expected_c = 1;
48     }
49 
50     union cpsr cpsr = { .value = cpsr_value };
51     if (expected_z != cpsr.flags.z || expected_c != cpsr.flags.c) {
52         printf("error in __aeabi_cfcmple(%f, %f) => (Z = %d, C = %d), expected (Z = %d, C = %d)\n",
53                a, b, cpsr.flags.z, cpsr.flags.c, expected_z, expected_c);
54         return 1;
55     }
56 
57     cpsr.value = r_cpsr_value;
58     if (expected_z != cpsr.flags.z || expected_c != cpsr.flags.c) {
59         printf("error in __aeabi_cfrcmple(%f, %f) => (Z = %d, C = %d), expected (Z = %d, C = %d)\n",
60                a, b, cpsr.flags.z, cpsr.flags.c, expected_z, expected_c);
61         return 1;
62     }
63     return 0;
64 }
65 #endif
66 
main()67 int main()
68 {
69 #if __arm__
70     if (test__aeabi_cfcmple(1.0, 1.0, 0))
71         return 1;
72     if (test__aeabi_cfcmple(1234.567, 765.4321, 1))
73         return 1;
74     if (test__aeabi_cfcmple(765.4321, 1234.567, -1))
75         return 1;
76     if (test__aeabi_cfcmple(-123.0, -678.0, 1))
77         return 1;
78     if (test__aeabi_cfcmple(-678.0, -123.0, -1))
79         return 1;
80     if (test__aeabi_cfcmple(0.0, -0.0, 0))
81         return 1;
82     if (test__aeabi_cfcmple(1.0, NAN, 1))
83         return 1;
84     if (test__aeabi_cfcmple(NAN, 1.0, 1))
85         return 1;
86     if (test__aeabi_cfcmple(NAN, NAN, 1))
87         return 1;
88 #else
89     printf("skipped\n");
90 #endif
91     return 0;
92 }
93