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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [fp-struct-test-by-value-y.h] - Blame information for rev 298

Details | Compare with Previous | View Log


#define TEST(TYPE,TYPE2)                                        \
extern TYPE g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE;         \
extern TYPE g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE;         \
extern TYPE g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE;      \
extern TYPE g13s##TYPE, g14s##TYPE, g15s##TYPE, g16s##TYPE;     \
                                                                \
extern void check##TYPE (TYPE x, TYPE2 y);                      \
                                                                \
void                                                            \
checkg##TYPE (void)                                             \
{                                                               \
  check##TYPE (  g1s##TYPE,  (TYPE2)1);                         \
  check##TYPE (  g2s##TYPE,  (TYPE2)2);                         \
  check##TYPE (  g3s##TYPE,  (TYPE2)3);                         \
  check##TYPE (  g4s##TYPE,  (TYPE2)4);                         \
  check##TYPE (  g5s##TYPE,  (TYPE2)5);                         \
  check##TYPE (  g6s##TYPE,  (TYPE2)6);                         \
  check##TYPE (  g7s##TYPE,  (TYPE2)7);                         \
  check##TYPE (  g8s##TYPE,  (TYPE2)8);                         \
  check##TYPE (  g9s##TYPE,  (TYPE2)9);                         \
  check##TYPE ( g10s##TYPE, (TYPE2)10);                         \
  check##TYPE ( g11s##TYPE, (TYPE2)11);                         \
  check##TYPE ( g12s##TYPE, (TYPE2)12);                         \
  check##TYPE ( g13s##TYPE, (TYPE2)13);                         \
  check##TYPE ( g14s##TYPE, (TYPE2)14);                         \
  check##TYPE ( g15s##TYPE, (TYPE2)15);                         \
  check##TYPE ( g16s##TYPE, (TYPE2)16);                         \
}                                                               \
                                                                \
void                                                            \
test##TYPE (TYPE s1, TYPE s2, TYPE s3, TYPE s4,                 \
            TYPE s5, TYPE s6, TYPE s7, TYPE s8,                 \
            TYPE s9, TYPE s10, TYPE s11, TYPE s12,              \
            TYPE s13, TYPE s14, TYPE s15, TYPE s16)             \
{                                                               \
  check##TYPE (s1, (TYPE2)1);                                   \
  check##TYPE (s2, (TYPE2)2);                                   \
  check##TYPE (s3, (TYPE2)3);                                   \
  check##TYPE (s4, (TYPE2)4);                                   \
  check##TYPE (s5, (TYPE2)5);                                   \
  check##TYPE (s6, (TYPE2)6);                                   \
  check##TYPE (s7, (TYPE2)7);                                   \
  check##TYPE (s8, (TYPE2)8);                                   \
  check##TYPE (s9, (TYPE2)9);                                   \
  check##TYPE (s10, (TYPE2)10);                                 \
  check##TYPE (s11, (TYPE2)11);                                 \
  check##TYPE (s12, (TYPE2)12);                                 \
  check##TYPE (s13, (TYPE2)13);                                 \
  check##TYPE (s14, (TYPE2)14);                                 \
  check##TYPE (s15, (TYPE2)15);                                 \
  check##TYPE (s16, (TYPE2)16);                                 \
}                                                               \
                                                                \
void                                                            \
testva##TYPE (int n, ...)                                       \
{                                                               \
  int i;                                                        \
  va_list ap;                                                   \
  if (test_va)                                                  \
    {                                                           \
      va_start (ap, n);                                         \
      for (i = 0; i < n; i++)                                    \
        {                                                       \
          TYPE t = va_arg (ap, TYPE);                           \
          check##TYPE (t, (TYPE2)i+1);                          \
        }                                                       \
      va_end (ap);                                              \
    }                                                           \
}

Line No.	Rev	Author	Line
1	298	jeremybenn	`#define TEST(TYPE,TYPE2) \`
2			`extern TYPE g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE; \`
3			`extern TYPE g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE; \`
4			`extern TYPE g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE; \`
5			`extern TYPE g13s##TYPE, g14s##TYPE, g15s##TYPE, g16s##TYPE; \`
6			`\`
7			`extern void check##TYPE (TYPE x, TYPE2 y); \`
8			`\`
9			`void \`
10			`checkg##TYPE (void) \`
11			`{ \`
12			`check##TYPE ( g1s##TYPE, (TYPE2)1); \`
13			`check##TYPE ( g2s##TYPE, (TYPE2)2); \`
14			`check##TYPE ( g3s##TYPE, (TYPE2)3); \`
15			`check##TYPE ( g4s##TYPE, (TYPE2)4); \`
16			`check##TYPE ( g5s##TYPE, (TYPE2)5); \`
17			`check##TYPE ( g6s##TYPE, (TYPE2)6); \`
18			`check##TYPE ( g7s##TYPE, (TYPE2)7); \`
19			`check##TYPE ( g8s##TYPE, (TYPE2)8); \`
20			`check##TYPE ( g9s##TYPE, (TYPE2)9); \`
21			`check##TYPE ( g10s##TYPE, (TYPE2)10); \`
22			`check##TYPE ( g11s##TYPE, (TYPE2)11); \`
23			`check##TYPE ( g12s##TYPE, (TYPE2)12); \`
24			`check##TYPE ( g13s##TYPE, (TYPE2)13); \`
25			`check##TYPE ( g14s##TYPE, (TYPE2)14); \`
26			`check##TYPE ( g15s##TYPE, (TYPE2)15); \`
27			`check##TYPE ( g16s##TYPE, (TYPE2)16); \`
28			`} \`
29			`\`
30			`void \`
31			`test##TYPE (TYPE s1, TYPE s2, TYPE s3, TYPE s4, \`
32			`TYPE s5, TYPE s6, TYPE s7, TYPE s8, \`
33			`TYPE s9, TYPE s10, TYPE s11, TYPE s12, \`
34			`TYPE s13, TYPE s14, TYPE s15, TYPE s16) \`
35			`{ \`
36			`check##TYPE (s1, (TYPE2)1); \`
37			`check##TYPE (s2, (TYPE2)2); \`
38			`check##TYPE (s3, (TYPE2)3); \`
39			`check##TYPE (s4, (TYPE2)4); \`
40			`check##TYPE (s5, (TYPE2)5); \`
41			`check##TYPE (s6, (TYPE2)6); \`
42			`check##TYPE (s7, (TYPE2)7); \`
43			`check##TYPE (s8, (TYPE2)8); \`
44			`check##TYPE (s9, (TYPE2)9); \`
45			`check##TYPE (s10, (TYPE2)10); \`
46			`check##TYPE (s11, (TYPE2)11); \`
47			`check##TYPE (s12, (TYPE2)12); \`
48			`check##TYPE (s13, (TYPE2)13); \`
49			`check##TYPE (s14, (TYPE2)14); \`
50			`check##TYPE (s15, (TYPE2)15); \`
51			`check##TYPE (s16, (TYPE2)16); \`
52			`} \`
53			`\`
54			`void \`
55			`testva##TYPE (int n, ...) \`
56			`{ \`
57			`int i; \`
58			`va_list ap; \`
59			`if (test_va) \`
60			`{ \`
61			`va_start (ap, n); \`
62			`for (i = 0; i < n; i++) \`
63			`{ \`
64			`TYPE t = va_arg (ap, TYPE); \`
65			`check##TYPE (t, (TYPE2)i+1); \`
66			`} \`
67			`va_end (ap); \`
68			`} \`
69			`}`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [fp-struct-test-by-value-y.h] - Blame information for rev 298