qemu/roms/u-boot/post/lib_powerpc/fpu/compare-fp-1.c

   1 /*
   2  * Copyright (C) 2007
   3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
   4  *
   5  * SPDX-License-Identifier:     GPL-2.0+
   6  */
   7 /*
   8  * Test for correctness of composite floating-point comparisons.
   9  * Written by Paolo Bonzini, 26th May 2004.
  10  * This file is originally a part of the GCC testsuite.
  11  */
  12
  13 #include <common.h>
  14
  15 #include <post.h>
  16
  17 GNU_FPOST_ATTR
  18
  19 #if CONFIG_POST & CONFIG_SYS_POST_FPU
  20
  21 static int failed;
  22
  23 #define TEST(c) if ((c) != ok) failed++
  24 #define ORD(a, b) (!__builtin_isunordered ((a), (b)))
  25 #define UNORD(a, b) (__builtin_isunordered ((a), (b)))
  26 #define UNEQ(a, b) (__builtin_isunordered ((a), (b)) || ((a) == (b)))
  27 #define UNLT(a, b) (__builtin_isunordered ((a), (b)) || ((a) < (b)))
  28 #define UNLE(a, b) (__builtin_isunordered ((a), (b)) || ((a) <= (b)))
  29 #define UNGT(a, b) (__builtin_isunordered ((a), (b)) || ((a) > (b)))
  30 #define UNGE(a, b) (__builtin_isunordered ((a), (b)) || ((a) >= (b)))
  31 #define LTGT(a, b) (__builtin_islessgreater ((a), (b)))
  32
  33 static float pinf;
  34 static float ninf;
  35 static float NaN;
  36
  37 static void iuneq (float x, float y, int ok)
  38 {
  39         TEST (UNEQ (x, y));
  40         TEST (!LTGT (x, y));
  41         TEST (UNLE (x, y) && UNGE (x,y));
  42 }
  43
  44 static void ieq (float x, float y, int ok)
  45 {
  46         TEST (ORD (x, y) && UNEQ (x, y));
  47 }
  48
  49 static void iltgt (float x, float y, int ok)
  50 {
  51         TEST (!UNEQ (x, y)); /* Not optimizable. */
  52         TEST (LTGT (x, y)); /* Same, __builtin_islessgreater does not trap. */
  53         TEST (ORD (x, y) && (UNLT (x, y) || UNGT (x,y)));
  54 }
  55
  56 static void ine (float x, float y, int ok)
  57 {
  58         TEST (UNLT (x, y) || UNGT (x, y));
  59 }
  60
  61 static void iunlt (float x, float y, int ok)
  62 {
  63         TEST (UNLT (x, y));
  64         TEST (UNORD (x, y) || (x < y));
  65 }
  66
  67 static void ilt (float x, float y, int ok)
  68 {
  69         TEST (ORD (x, y) && UNLT (x, y)); /* Not optimized */
  70         TEST ((x <= y) && (x != y));
  71         TEST ((x <= y) && (y != x));
  72         TEST ((x != y) && (x <= y)); /* Not optimized */
  73         TEST ((y != x) && (x <= y)); /* Not optimized */
  74 }
  75
  76 static void iunle (float x, float y, int ok)
  77 {
  78         TEST (UNLE (x, y));
  79         TEST (UNORD (x, y) || (x <= y));
  80 }
  81
  82 static void ile (float x, float y, int ok)
  83 {
  84         TEST (ORD (x, y) && UNLE (x, y)); /* Not optimized */
  85         TEST ((x < y) || (x == y));
  86         TEST ((y > x) || (x == y));
  87         TEST ((x == y) || (x < y)); /* Not optimized */
  88         TEST ((y == x) || (x < y)); /* Not optimized */
  89 }
  90
  91 static void iungt (float x, float y, int ok)
  92 {
  93         TEST (UNGT (x, y));
  94         TEST (UNORD (x, y) || (x > y));
  95 }
  96
  97 static void igt (float x, float y, int ok)
  98 {
  99         TEST (ORD (x, y) && UNGT (x, y)); /* Not optimized */
 100         TEST ((x >= y) && (x != y));
 101         TEST ((x >= y) && (y != x));
 102         TEST ((x != y) && (x >= y)); /* Not optimized */
 103         TEST ((y != x) && (x >= y)); /* Not optimized */
 104 }
 105
 106 static void iunge (float x, float y, int ok)
 107 {
 108         TEST (UNGE (x, y));
 109         TEST (UNORD (x, y) || (x >= y));
 110 }
 111
 112 static void ige (float x, float y, int ok)
 113 {
 114         TEST (ORD (x, y) && UNGE (x, y)); /* Not optimized */
 115         TEST ((x > y) || (x == y));
 116         TEST ((y < x) || (x == y));
 117         TEST ((x == y) || (x > y)); /* Not optimized */
 118         TEST ((y == x) || (x > y)); /* Not optimized */
 119 }
 120
 121 int fpu_post_test_math6 (void)
 122 {
 123         pinf = __builtin_inf ();
 124         ninf = -__builtin_inf ();
 125         NaN = __builtin_nan ("");
 126
 127         iuneq (ninf, pinf, 0);
 128         iuneq (NaN, NaN, 1);
 129         iuneq (pinf, ninf, 0);
 130         iuneq (1, 4, 0);
 131         iuneq (3, 3, 1);
 132         iuneq (5, 2, 0);
 133
 134         ieq (1, 4, 0);
 135         ieq (3, 3, 1);
 136         ieq (5, 2, 0);
 137
 138         iltgt (ninf, pinf, 1);
 139         iltgt (NaN, NaN, 0);
 140         iltgt (pinf, ninf, 1);
 141         iltgt (1, 4, 1);
 142         iltgt (3, 3, 0);
 143         iltgt (5, 2, 1);
 144
 145         ine (1, 4, 1);
 146         ine (3, 3, 0);
 147         ine (5, 2, 1);
 148
 149         iunlt (NaN, ninf, 1);
 150         iunlt (pinf, NaN, 1);
 151         iunlt (pinf, ninf, 0);
 152         iunlt (pinf, pinf, 0);
 153         iunlt (ninf, ninf, 0);
 154         iunlt (1, 4, 1);
 155         iunlt (3, 3, 0);
 156         iunlt (5, 2, 0);
 157
 158         ilt (1, 4, 1);
 159         ilt (3, 3, 0);
 160         ilt (5, 2, 0);
 161
 162         iunle (NaN, ninf, 1);
 163         iunle (pinf, NaN, 1);
 164         iunle (pinf, ninf, 0);
 165         iunle (pinf, pinf, 1);
 166         iunle (ninf, ninf, 1);
 167         iunle (1, 4, 1);
 168         iunle (3, 3, 1);
 169         iunle (5, 2, 0);
 170
 171         ile (1, 4, 1);
 172         ile (3, 3, 1);
 173         ile (5, 2, 0);
 174
 175         iungt (NaN, ninf, 1);
 176         iungt (pinf, NaN, 1);
 177         iungt (pinf, ninf, 1);
 178         iungt (pinf, pinf, 0);
 179         iungt (ninf, ninf, 0);
 180         iungt (1, 4, 0);
 181         iungt (3, 3, 0);
 182         iungt (5, 2, 1);
 183
 184         igt (1, 4, 0);
 185         igt (3, 3, 0);
 186         igt (5, 2, 1);
 187
 188         iunge (NaN, ninf, 1);
 189         iunge (pinf, NaN, 1);
 190         iunge (ninf, pinf, 0);
 191         iunge (pinf, pinf, 1);
 192         iunge (ninf, ninf, 1);
 193         iunge (1, 4, 0);
 194         iunge (3, 3, 1);
 195         iunge (5, 2, 1);
 196
 197         ige (1, 4, 0);
 198         ige (3, 3, 1);
 199         ige (5, 2, 1);
 200
 201         if (failed) {
 202                 post_log ("Error in FPU math6 test\n");
 203                 return -1;
 204         }
 205         return 0;
 206 }
 207
 208 #endif /* CONFIG_POST & CONFIG_SYS_POST_FPU */