test: Cope with GDB simulator limitations

When running the simulator, rounding modes and exceptions aren't
handled. In addition, it "emulates" fma with a*b+c.

Signed-off-by: Keith Packard <[email protected]>

Author: keith-packard

newlib/libm/test/test.c

@@ -425,6 +425,12 @@ test_mfok (float value,
   /* RX doesn't support nan or inf at all */
   if (isnan(shouldbe) || isinf(shouldbe))
       mag = 32;
+#endif
+#ifdef __sh__
+  /* SuperH has a different canonical representation for nans */
+  if (!!isnan(shouldbe) == !!isnan(value) &&
+      !!__issignalingf(shouldbe) == !!__issignalingf(value))
+      mag = 32;
 #endif
   a.value = shouldbe;
   b.value = value;

test/fenv.c

@@ -44,6 +44,12 @@
 #define HAVE_HW_DOUBLE
 #endif
 
+#ifdef __sh__
+#if !(defined(__SH4__) || defined(__SH4_SINGLE__) || defined(__SH4_SINGLE_ONLY__))
+#define GDB_SIMULATOR
+#endif
+#endif
+
 #ifdef HAVE_HW_DOUBLE
 typedef double test_t;
 #define test_sqrt(x) sqrt(x)
@@ -206,6 +212,10 @@ int main(void)
         int ret;
         unsigned i;
 
+#ifdef GDB_SIMULATOR
+        printf("GDB simulator doesn't support fenv. Skipping\n");
+        return 77;
+#endif
 	(void) report;
 	(void) e_to_str;
 	if (math_errhandling & MATH_ERREXCEPT) {

test/math_errhandling.c

@@ -49,6 +49,12 @@
 #define ALWAYS_INLINE __inline
 #endif
 
+#ifdef __sh__
+#if !(defined(__SH4__) || defined(__SH4_SINGLE__) || defined(__SH4_SINGLE_ONLY__))
+#define GDB_SIMULATOR
+#endif
+#endif
+
 static ALWAYS_INLINE float
 opt_barrier_float (float x)
 {

test/math_errhandling_tests.c

@@ -1527,8 +1527,13 @@ makemathname(is_equal)(FLOAT_T a, FLOAT_T b)
 {
     if (isinf(a) && isinf(b))
         return (a > 0) == (b > 0);
-    if (makemathname(isnan)(a) && makemathname(isnan)(b))
+    if (makemathname(isnan)(a) && makemathname(isnan)(b)) {
+#ifdef GDB_SIMULATOR
+        return 1;
+#else
         return issignaling(a) == issignaling(b);
+#endif
+    }
     return a == b;
 }
 
@@ -1652,6 +1657,12 @@ static bool makemathname(check_except)(void)
         return result;
 }
 
+#ifdef GDB_SIMULATOR
+#define record_exception_error() printf("\tignoring exception error on GDB simulator\n")
+#else
+#define record_exception_error() result++
+#endif
+
 static int
 makemathname(run_tests)(void) {
 	int result = 0;
@@ -1661,8 +1672,9 @@ makemathname(run_tests)(void) {
 	int t;
         int printed;
 
-        if (!makemathname(check_except)())
-                result++;
+        if (!makemathname(check_except)()) {
+                record_exception_error();
+        }
 
 	for (t = 0; makemathname(tests)[t].func; t++) {
                 printed = 0;
@@ -1695,7 +1707,7 @@ makemathname(run_tests)(void) {
                                 PRINT;
 				printf("\texceptions supported. %s returns %s instead of %s\n",
                                        makemathname(tests)[t].name, e_to_str(except), e_to_str(makemathname(tests)[t].except));
-				++result;
+                                record_exception_error();
 			}
 		} else {
 			if (except) {
@@ -1706,7 +1718,7 @@ makemathname(run_tests)(void) {
                                 {
                                         PRINT;
                                         printf("\texceptions not supported. %s returns %s\n", makemathname(tests)[t].name, e_to_str(except));
-                                        ++result;
+                                        record_exception_error();
                                 }
 			}
 		}
@@ -1755,13 +1767,13 @@ makemathname(run_tests)(void) {
                                 IPRINT;
 				printf("\texceptions supported. %s returns %s instead of %s\n",
                                        makemathname(itests)[t].name, e_to_str(except), e_to_str(makemathname(itests)[t].except));
-				++result;
+                                record_exception_error();
 			}
 		} else {
 			if (except) {
                                 IPRINT;
 				printf("\texceptions not supported. %s returns %s\n", makemathname(itests)[t].name, e_to_str(except));
-				++result;
+                                record_exception_error();
 			}
 		}
 		if (math_errhandling & MATH_ERRNO) {

test/rounding-mode.c

@@ -38,6 +38,12 @@
 #include <fenv.h>
 #include "rounding-mode.h"
 
+#ifdef __sh__
+#if !(defined(__SH4__) || defined(__SH4_SINGLE__) || defined(__SH4_SINGLE_ONLY__))
+#define GDB_SIMULATOR
+#endif
+#endif
+
 #ifndef PICOLIBC_DOUBLE_NOROUND
 static double
 do_round_int(double value, int mode)
@@ -229,6 +235,10 @@ int main(void)
 	unsigned i;
 	int ret = 0;
 
+#ifdef GDB_SIMULATOR
+        printf("GDB simulator doesn't support rounding modes. Skipping\n");
+        return 77;
+#endif
 	for (i = 0; i < NUM_VALUE; i++) {
 #ifdef FE_TONEAREST
 		ret += check(FE_TONEAREST, "FE_TONEAREST", my_values[i]);

test/test-fma.c

@@ -41,6 +41,12 @@
 #include <stdbool.h>
 #include <fenv.h>
 
+#ifdef __sh__
+#if !(defined(__SH4__) || defined(__SH4_SINGLE__) || defined(__SH4_SINGLE_ONLY__))
+#define GDB_SIMULATOR
+#endif
+#endif
+
 #if FLT_MANT_DIG == 24
 
 static int roundings[] = {
@@ -336,6 +342,10 @@ main(void)
         printf("ARC soft float bug, skipping FMA tests\n");
         return 77;
     }
+#endif
+#ifdef GDB_SIMULATOR
+    printf("GDB simulator doesn't support FMA. Skipping\n");
+    return 77;
 #endif
     (void) rounding_names;
     (void) roundings;