URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [g++.dg/] [compat/] [decimal/] [return_x.h] - Blame information for rev 328

Go to most recent revision | Details | Compare with Previous | View Log


#include "compat-common.h"
 
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
 
#define T(NAME, TYPE, INITVAL)                                  \
TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME;                \
TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME;                \
TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME;                \
TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME;                \
                                                                \
extern void init##NAME (TYPE *p, TYPE v);                       \
extern void checkg##NAME (void);                                \
extern TYPE test0##NAME (void);                                 \
extern TYPE test1##NAME (TYPE);                                 \
extern TYPE testva##NAME (int n, ...);                          \
                                                                \
extern void                                                     \
check##NAME (TYPE x, TYPE v)                                    \
{                                                               \
  if (x != v)                                                   \
    DEBUG_CHECK                                                 \
}                                                               \
                                                                \
extern void                                                     \
testit##NAME (void)                                             \
{                                                               \
  TYPE rslt;                                                    \
  DEBUG_FPUTS (#NAME)                                           \
  DEBUG_FPUTS (" init: ")                                       \
  init##NAME (&g01##NAME,  1);                                  \
  init##NAME (&g02##NAME,  2);                                  \
  init##NAME (&g03##NAME,  3);                                  \
  init##NAME (&g04##NAME,  4);                                  \
  init##NAME (&g05##NAME,  5);                                  \
  init##NAME (&g06##NAME,  6);                                  \
  init##NAME (&g07##NAME,  7);                                  \
  init##NAME (&g08##NAME,  8);                                  \
  init##NAME (&g09##NAME,  9);                                  \
  init##NAME (&g10##NAME, 10);                                  \
  init##NAME (&g11##NAME, 11);                                  \
  init##NAME (&g12##NAME, 12);                                  \
  init##NAME (&g13##NAME, 13);                                  \
  init##NAME (&g14##NAME, 14);                                  \
  init##NAME (&g15##NAME, 15);                                  \
  init##NAME (&g16##NAME, 16);                                  \
  checkg##NAME ();                                              \
  DEBUG_NL                                                      \
  DEBUG_FPUTS (#NAME)                                           \
  DEBUG_FPUTS (" test0: ")                                      \
  rslt = test0##NAME ();                                        \
  check##NAME (rslt, g01##NAME);                                \
  DEBUG_NL                                                      \
  DEBUG_FPUTS (#NAME)                                           \
  DEBUG_FPUTS (" test1: ")                                      \
  rslt = test1##NAME (g01##NAME);                               \
  check##NAME (rslt, g01##NAME);                                \
  if (test_va)                                                  \
    {                                                           \
      DEBUG_NL                                                  \
      DEBUG_FPUTS (#NAME)                                       \
      DEBUG_FPUTS (" testva: ")                                 \
      rslt = testva##NAME (1, g01##NAME);                       \
      check##NAME (rslt, g01##NAME);                            \
      rslt = testva##NAME (5, g01##NAME, g02##NAME, g03##NAME,  \
                           g04##NAME, g05##NAME);               \
      check##NAME (rslt, g05##NAME);                            \
      rslt = testva##NAME (9, g01##NAME, g02##NAME, g03##NAME,  \
                           g04##NAME, g05##NAME, g06##NAME,     \
                           g07##NAME, g08##NAME, g09##NAME);    \
      check##NAME (rslt, g09##NAME);                            \
      rslt = testva##NAME (16, g01##NAME, g02##NAME, g03##NAME, \
                           g04##NAME, g05##NAME, g06##NAME,     \
                           g07##NAME, g08##NAME, g09##NAME,     \
                           g10##NAME, g11##NAME, g12##NAME,     \
                           g13##NAME, g14##NAME, g15##NAME,     \
                           g16##NAME);                          \
      check##NAME (rslt, g16##NAME);                            \
    }                                                           \
  DEBUG_NL                                                      \
}
 
T(d32, dec32, (dec32)1.5DF);
T(d64, dec64, (dec64)2.5DD);
T(d128, dec128, (dec128)3.5DL);
 
#undef T

Line No.	Rev	Author	Line
1	301	jeremybenn	`#include "compat-common.h"`
2
3			`#ifdef SKIP_VA`
4			`const int test_va = 0;`
5			`#else`
6			`const int test_va = 1;`
7			`#endif`
8
9			`#define T(NAME, TYPE, INITVAL) \`
10			`TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME; \`
11			`TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME; \`
12			`TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME; \`
13			`TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME; \`
14			`\`
15			`extern void init##NAME (TYPE *p, TYPE v); \`
16			`extern void checkg##NAME (void); \`
17			`extern TYPE test0##NAME (void); \`
18			`extern TYPE test1##NAME (TYPE); \`
19			`extern TYPE testva##NAME (int n, ...); \`
20			`\`
21			`extern void \`
22			`check##NAME (TYPE x, TYPE v) \`
23			`{ \`
24			`if (x != v) \`
25			`DEBUG_CHECK \`
26			`} \`
27			`\`
28			`extern void \`
29			`testit##NAME (void) \`
30			`{ \`
31			`TYPE rslt; \`
32			`DEBUG_FPUTS (#NAME) \`
33			`DEBUG_FPUTS (" init: ") \`
34			`init##NAME (&g01##NAME, 1); \`
35			`init##NAME (&g02##NAME, 2); \`
36			`init##NAME (&g03##NAME, 3); \`
37			`init##NAME (&g04##NAME, 4); \`
38			`init##NAME (&g05##NAME, 5); \`
39			`init##NAME (&g06##NAME, 6); \`
40			`init##NAME (&g07##NAME, 7); \`
41			`init##NAME (&g08##NAME, 8); \`
42			`init##NAME (&g09##NAME, 9); \`
43			`init##NAME (&g10##NAME, 10); \`
44			`init##NAME (&g11##NAME, 11); \`
45			`init##NAME (&g12##NAME, 12); \`
46			`init##NAME (&g13##NAME, 13); \`
47			`init##NAME (&g14##NAME, 14); \`
48			`init##NAME (&g15##NAME, 15); \`
49			`init##NAME (&g16##NAME, 16); \`
50			`checkg##NAME (); \`
51			`DEBUG_NL \`
52			`DEBUG_FPUTS (#NAME) \`
53			`DEBUG_FPUTS (" test0: ") \`
54			`rslt = test0##NAME (); \`
55			`check##NAME (rslt, g01##NAME); \`
56			`DEBUG_NL \`
57			`DEBUG_FPUTS (#NAME) \`
58			`DEBUG_FPUTS (" test1: ") \`
59			`rslt = test1##NAME (g01##NAME); \`
60			`check##NAME (rslt, g01##NAME); \`
61			`if (test_va) \`
62			`{ \`
63			`DEBUG_NL \`
64			`DEBUG_FPUTS (#NAME) \`
65			`DEBUG_FPUTS (" testva: ") \`
66			`rslt = testva##NAME (1, g01##NAME); \`
67			`check##NAME (rslt, g01##NAME); \`
68			`rslt = testva##NAME (5, g01##NAME, g02##NAME, g03##NAME, \`
69			`g04##NAME, g05##NAME); \`
70			`check##NAME (rslt, g05##NAME); \`
71			`rslt = testva##NAME (9, g01##NAME, g02##NAME, g03##NAME, \`
72			`g04##NAME, g05##NAME, g06##NAME, \`
73			`g07##NAME, g08##NAME, g09##NAME); \`
74			`check##NAME (rslt, g09##NAME); \`
75			`rslt = testva##NAME (16, g01##NAME, g02##NAME, g03##NAME, \`
76			`g04##NAME, g05##NAME, g06##NAME, \`
77			`g07##NAME, g08##NAME, g09##NAME, \`
78			`g10##NAME, g11##NAME, g12##NAME, \`
79			`g13##NAME, g14##NAME, g15##NAME, \`
80			`g16##NAME); \`
81			`check##NAME (rslt, g16##NAME); \`
82			`} \`
83			`DEBUG_NL \`
84			`}`
85
86			`T(d32, dec32, (dec32)1.5DF);`
87			`T(d64, dec64, (dec64)2.5DD);`
88			`T(d128, dec128, (dec128)3.5DL);`
89
90			`#undef T`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [g++.dg/] [compat/] [decimal/] [return_x.h] - Blame information for rev 328