URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [dfp/] [fe-check.h] - Rev 689
Compare with Previous | Blame | View Log
/* Common support for checking that appropriate floating point exceptions are raised for decimal float operations. These tests are here to test the software decimal float support in libgcc. */ #include "dfp-dbg.h" #include "dfp-except.h" #if defined(DBG) || defined(DBG2) #include <stdio.h> #undef FAILURE #define FAILURE(NUM,KIND,EXCEPT) \ { printf ("failed for test %d: %s %s\n", NUM, KIND, EXCEPT); failures++; } #else #undef FAILURE #define FAILURE(N,K,E) __builtin_abort (); #endif /* This is useful when modifying the test to make sure that tests are actually run. */ #if defined(DBG2) #define SUCCESS(NUM,EXCEPT) \ { printf ("passed for test %d: %s\n", NUM, EXCEPT); } #else #define SUCCESS(N,E) ; #endif #define CHECKFLAG(NUM,EXCEPT,GOT,WANT) \ if ((WANT & EXCEPT) != (GOT & EXCEPT)) \ { \ if ((WANT & EXCEPT) != 0) \ FAILURE (NUM, "missing", #EXCEPT) \ else \ FAILURE (NUM, "unexpected", #EXCEPT) \ } \ else \ SUCCESS (NUM, #EXCEPT) void checkflags (int num, int want) { int got = DFP_TEST_EXCEPT (FE_ALL_EXCEPT); CHECKFLAG (num, FE_INVALID, got, want) CHECKFLAG (num, FE_OVERFLOW, got, want) CHECKFLAG (num, FE_UNDERFLOW, got, want) CHECKFLAG (num, FE_DIVBYZERO, got, want) CHECKFLAG (num, FE_INEXACT, got, want) } #define BINOP(NUM,OP,VAR1,VAL1,VAR2,VAL2,VAR3,EXCEPT) \ void \ binop_##NUM (void) \ { \ VAR1 = VAL1; \ VAR2 = VAL2; \ DFP_CLEAR_EXCEPT (FE_ALL_EXCEPT); \ VAR3 = VAR1 OP VAR2; \ checkflags (NUM, EXCEPT); \ } #define CONVERT(NUM,FROM,TO,VALUE,EXCEPT) \ void \ convert_##NUM (void) \ { \ FROM = VALUE; \ DFP_CLEAR_EXCEPT (FE_ALL_EXCEPT); \ TO = FROM; \ checkflags (NUM, EXCEPT); \ }