URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [scalar-return-2_x.c] - Blame information for rev 404

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


#include "compat-common.h"
 
#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);                                 \
                                                                \
void                                                            \
check##NAME (TYPE x, TYPE v)                                    \
{                                                               \
  if (x != v)                                                   \
    DEBUG_CHECK                                                 \
}                                                               \
                                                                \
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);                                \
  DEBUG_NL;                                                     \
}
 
T(c, char, 21)
T(uc, unsigned char, 22)
T(sc, signed char, (-33))
T(us, unsigned short, 41)
T(ss, short, (-44))
T(f, float, 90.0)
 
#undef T
 
void
scalar_return_2_x ()
{
DEBUG_INIT
 
#define T(NAME) testit##NAME ();
 
T(c)
T(uc)
T(sc)
T(us)
T(ss)
T(f)
 
DEBUG_FINI
 
if (fails != 0)
  abort ();
 
#undef T
}

Line No.	Rev	Author	Line
1	298	jeremybenn	`#include "compat-common.h"`
2
3			`#define T(NAME, TYPE, INITVAL) \`
4			`TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME; \`
5			`TYPE g05##NAME, g06##NAME, g07##NAME, g08##NAME; \`
6			`TYPE g09##NAME, g10##NAME, g11##NAME, g12##NAME; \`
7			`TYPE g13##NAME, g14##NAME, g15##NAME, g16##NAME; \`
8			`\`
9			`extern void init##NAME (TYPE *p, TYPE v); \`
10			`extern void checkg##NAME (void); \`
11			`extern TYPE test0##NAME (void); \`
12			`extern TYPE test1##NAME (TYPE); \`
13			`\`
14			`void \`
15			`check##NAME (TYPE x, TYPE v) \`
16			`{ \`
17			`if (x != v) \`
18			`DEBUG_CHECK \`
19			`} \`
20			`\`
21			`void \`
22			`testit##NAME (void) \`
23			`{ \`
24			`TYPE rslt; \`
25			`DEBUG_FPUTS (#NAME); \`
26			`DEBUG_FPUTS (" init: "); \`
27			`init##NAME (&g01##NAME, 1); \`
28			`init##NAME (&g02##NAME, 2); \`
29			`init##NAME (&g03##NAME, 3); \`
30			`init##NAME (&g04##NAME, 4); \`
31			`init##NAME (&g05##NAME, 5); \`
32			`init##NAME (&g06##NAME, 6); \`
33			`init##NAME (&g07##NAME, 7); \`
34			`init##NAME (&g08##NAME, 8); \`
35			`init##NAME (&g09##NAME, 9); \`
36			`init##NAME (&g10##NAME, 10); \`
37			`init##NAME (&g11##NAME, 11); \`
38			`init##NAME (&g12##NAME, 12); \`
39			`init##NAME (&g13##NAME, 13); \`
40			`init##NAME (&g14##NAME, 14); \`
41			`init##NAME (&g15##NAME, 15); \`
42			`init##NAME (&g16##NAME, 16); \`
43			`checkg##NAME (); \`
44			`DEBUG_NL; \`
45			`DEBUG_FPUTS (#NAME); \`
46			`DEBUG_FPUTS (" test0: "); \`
47			`rslt = test0##NAME (); \`
48			`check##NAME (rslt, g01##NAME); \`
49			`DEBUG_NL; \`
50			`DEBUG_FPUTS (#NAME); \`
51			`DEBUG_FPUTS (" test1: "); \`
52			`rslt = test1##NAME (g01##NAME); \`
53			`check##NAME (rslt, g01##NAME); \`
54			`DEBUG_NL; \`
55			`}`
56
57			`T(c, char, 21)`
58			`T(uc, unsigned char, 22)`
59			`T(sc, signed char, (-33))`
60			`T(us, unsigned short, 41)`
61			`T(ss, short, (-44))`
62			`T(f, float, 90.0)`
63
64			`#undef T`
65
66			`void`
67			`scalar_return_2_x ()`
68			`{`
69			`DEBUG_INIT`
70
71			`#define T(NAME) testit##NAME ();`
72
73			`T(c)`
74			`T(uc)`
75			`T(sc)`
76			`T(us)`
77			`T(ss)`
78			`T(f)`
79
80			`DEBUG_FINI`
81
82			`if (fails != 0)`
83			`abort ();`
84
85			`#undef T`
86			`}`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [scalar-return-2_x.c] - Blame information for rev 404