// REQUIRES: arm-target-arch || armv6m-target-arch // RUN: %arm_call_apsr -o %t.aspr.o // RUN: %clang_builtins %s %t.aspr.o %librt -o %t && %run %t //===-- aeabi_cdcmple.c - Test __aeabi_cdcmple and __aeabi_cdrcmple -------===// // // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. // See https://llvm.org/LICENSE.txt for license information. // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception // //===----------------------------------------------------------------------===// // // This file tests __aeabi_cdcmple and __aeabi_cdrcmple for the compiler_rt // library. // //===----------------------------------------------------------------------===// #include #include #include #include #include "call_apsr.h" #if __arm__ extern __attribute__((pcs("aapcs"))) void __aeabi_cdcmple(double a, double b); extern __attribute__((pcs("aapcs"))) void __aeabi_cdrcmple(double a, double b); int test__aeabi_cdcmple(double a, double b, int expected) { int32_t cpsr_value = call_apsr_d(a, b, __aeabi_cdcmple); int32_t r_cpsr_value = call_apsr_d(b, a, __aeabi_cdrcmple); if (cpsr_value != r_cpsr_value) { printf("error: __aeabi_cdcmple(%f, %f) != __aeabi_cdrcmple(%f, %f)\n", a, b, b, a); return 1; } int expected_z, expected_c; if (expected == -1) { expected_z = 0; expected_c = 0; } else if (expected == 0) { expected_z = 1; expected_c = 1; } else { // a or b is NaN, or a > b expected_z = 0; expected_c = 1; } union cpsr cpsr = { .value = cpsr_value }; if (expected_z != cpsr.flags.z || expected_c != cpsr.flags.c) { printf("error in __aeabi_cdcmple(%f, %f) => (Z = %d, C = %d), expected (Z = %d, C = %d)\n", a, b, cpsr.flags.z, cpsr.flags.c, expected_z, expected_c); return 1; } cpsr.value = r_cpsr_value; if (expected_z != cpsr.flags.z || expected_c != cpsr.flags.c) { printf("error in __aeabi_cdrcmple(%f, %f) => (Z = %d, C = %d), expected (Z = %d, C = %d)\n", a, b, cpsr.flags.z, cpsr.flags.c, expected_z, expected_c); return 1; } return 0; } #endif int main() { #if __arm__ if (test__aeabi_cdcmple(1.0, 1.0, 0)) return 1; if (test__aeabi_cdcmple(1234.567, 765.4321, 1)) return 1; if (test__aeabi_cdcmple(765.4321, 1234.567, -1)) return 1; if (test__aeabi_cdcmple(-123.0, -678.0, 1)) return 1; if (test__aeabi_cdcmple(-678.0, -123.0, -1)) return 1; if (test__aeabi_cdcmple(0.0, -0.0, 0)) return 1; if (test__aeabi_cdcmple(1.0, NAN, 1)) return 1; if (test__aeabi_cdcmple(NAN, 1.0, 1)) return 1; if (test__aeabi_cdcmple(NAN, NAN, 1)) return 1; #else printf("skipped\n"); #endif return 0; }