1 /* Common support for checking that appropriate floating point exceptions
2 are raised for decimal float operations. These tests are here to test
3 the software decimal float support in libgcc. */
4
5 #include "dfp-dbg.h"
6 #include "dfp-except.h"
7
8 #if defined(DBG) || defined(DBG2)
9 #include <stdio.h>
10 #undef FAILURE
11 #define FAILURE(NUM,KIND,EXCEPT) \
12 { printf ("failed for test %d: %s %s\n", NUM, KIND, EXCEPT); failures++; }
13 #else
14 #undef FAILURE
15 #define FAILURE(N,K,E) __builtin_abort ();
16 #endif
17
18 /* This is useful when modifying the test to make sure that tests are
19 actually run. */
20 #if defined(DBG2)
21 #define SUCCESS(NUM,EXCEPT) \
22 { printf ("passed for test %d: %s\n", NUM, EXCEPT); }
23 #else
24 #define SUCCESS(N,E) ;
25 #endif
26
27 #define CHECKFLAG(NUM,EXCEPT,GOT,WANT) \
28 if ((WANT & EXCEPT) != (GOT & EXCEPT)) \
29 { \
30 if ((WANT & EXCEPT) != 0) \
31 FAILURE (NUM, "missing", #EXCEPT) \
32 else \
33 FAILURE (NUM, "unexpected", #EXCEPT) \
34 } \
35 else \
36 SUCCESS (NUM, #EXCEPT)
37
38 void
checkflags(int num,int want)39 checkflags (int num, int want)
40 {
41 int got = DFP_TEST_EXCEPT (FE_ALL_EXCEPT);
42 CHECKFLAG (num, FE_INVALID, got, want)
43 CHECKFLAG (num, FE_OVERFLOW, got, want)
44 CHECKFLAG (num, FE_UNDERFLOW, got, want)
45 CHECKFLAG (num, FE_DIVBYZERO, got, want)
46 CHECKFLAG (num, FE_INEXACT, got, want)
47 }
48
49 #define BINOP(NUM,OP,VAR1,VAL1,VAR2,VAL2,VAR3,EXCEPT) \
50 void \
51 binop_##NUM (void) \
52 { \
53 VAR1 = VAL1; \
54 VAR2 = VAL2; \
55 DFP_CLEAR_EXCEPT (FE_ALL_EXCEPT); \
56 VAR3 = VAR1 OP VAR2; \
57 checkflags (NUM, EXCEPT); \
58 }
59
60 #define CONVERT(NUM,FROM,TO,VALUE,EXCEPT) \
61 void \
62 convert_##NUM (void) \
63 { \
64 FROM = VALUE; \
65 DFP_CLEAR_EXCEPT (FE_ALL_EXCEPT); \
66 TO = FROM; \
67 checkflags (NUM, EXCEPT); \
68 }
69