compiler-rt/test/builtins/Unit/fixunsxfsi_test.c

   1 // RUN: %clang_builtins %s %librt -o %t && %run %t
   2 // REQUIRES: librt_has_fixunsxfsi
   3 //===-- fixunsxfsi_test.c - Test __fixunsxfsi -----------------------------===//
   4 //
   5 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   6 // See https://llvm.org/LICENSE.txt for license information.
   7 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   8 //
   9 //===----------------------------------------------------------------------===//
  10 //
  11 // This file tests __fixunsxfsi for the compiler_rt library.
  12 //
  13 //===----------------------------------------------------------------------===//
  14
  15 #include "int_lib.h"
  16 #include <stdio.h>
  17
  18 #if HAS_80_BIT_LONG_DOUBLE
  19 // Returns: convert a to a unsigned int, 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 //             su_int is a 32 bit integral type
  24 //             value in long double is representable in su_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 COMPILER_RT_ABI su_int __fixunsxfsi(long double a);
  31
  32 int test__fixunsxfsi(long double a, su_int expected)
  33 {
  34     su_int x = __fixunsxfsi(a);
  35     if (x != expected)
  36         printf("error in __fixunsxfsi(%LA) = %X, expected %X\n", a, x, expected);
  37     return x != expected;
  38 }
  39
  40 char assumption_2[sizeof(su_int)*CHAR_BIT == 32] = {0};
  41 char assumption_3[sizeof(long double)*CHAR_BIT == 128] = {0};
  42 #endif
  43
  44 int main()
  45 {
  46 #if HAS_80_BIT_LONG_DOUBLE
  47     if (test__fixunsxfsi(0.0, 0))
  48         return 1;
  49
  50     if (test__fixunsxfsi(0.5, 0))
  51         return 1;
  52     if (test__fixunsxfsi(0.99, 0))
  53         return 1;
  54     if (test__fixunsxfsi(1.0, 1))
  55         return 1;
  56     if (test__fixunsxfsi(1.5, 1))
  57         return 1;
  58     if (test__fixunsxfsi(1.99, 1))
  59         return 1;
  60     if (test__fixunsxfsi(2.0, 2))
  61         return 1;
  62     if (test__fixunsxfsi(2.01, 2))
  63         return 1;
  64     if (test__fixunsxfsi(-0.5, 0))
  65         return 1;
  66     if (test__fixunsxfsi(-0.99, 0))
  67         return 1;
  68 #if !TARGET_LIBGCC
  69     if (test__fixunsxfsi(-1.0, 0))  // libgcc ignores "returns 0 for negative input" spec
  70         return 1;
  71     if (test__fixunsxfsi(-1.5, 0))
  72         return 1;
  73     if (test__fixunsxfsi(-1.99, 0))
  74         return 1;
  75     if (test__fixunsxfsi(-2.0, 0))
  76         return 1;
  77     if (test__fixunsxfsi(-2.01, 0))
  78         return 1;
  79 #endif
  80
  81     if (test__fixunsxfsi(0x1.000000p+31, 0x80000000))
  82         return 1;
  83     if (test__fixunsxfsi(0x1.FFFFFEp+31, 0xFFFFFF00))
  84         return 1;
  85     if (test__fixunsxfsi(0x1.FFFFFEp+30, 0x7FFFFF80))
  86         return 1;
  87     if (test__fixunsxfsi(0x1.FFFFFCp+30, 0x7FFFFF00))
  88         return 1;
  89
  90 #if !TARGET_LIBGCC
  91     if (test__fixunsxfsi(-0x1.FFFFFEp+30, 0))
  92         return 1;
  93     if (test__fixunsxfsi(-0x1.FFFFFCp+30, 0))
  94         return 1;
  95 #endif
  96
  97     if (test__fixunsxfsi(0x1.FFFFFFFEp+31, 0xFFFFFFFF))
  98         return 1;
  99     if (test__fixunsxfsi(0x1.FFFFFFFC00000p+30, 0x7FFFFFFF))
 100         return 1;
 101     if (test__fixunsxfsi(0x1.FFFFFFF800000p+30, 0x7FFFFFFE))
 102         return 1;
 103
 104 #endif
 105    return 0;
 106 }