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/] [struct-by-value-3_y.c] - Blame information for rev 404

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


#include <stdarg.h>
 
#include "compat-common.h"
 
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
 
#include "small-struct-defs.h"
 
extern void checkSc (Sc x, int i);
extern void checkSs (Ss x, int i);
extern void checkSi (Si x, int i);
extern void checkSsc (Ssc x, int i);
extern void checkScs (Scs x, int i);
extern void checkSsi (Ssi x, int i);
extern void checkSis (Sis x, int i);
extern void checkSic (Sic x, int i);
extern void checkSci (Sci x, int i);
extern void checkScsi (Scsi x, int i);
extern void checkScis (Scis x, int i);
extern void checkSsci (Ssci x, int i);
extern void checkSsic (Ssic x, int i);
extern void checkSisc (Sisc x, int i);
extern void checkSics (Sics x, int i);
 
#include "small-struct-init.h"
 
#define T(TYPE)                                                 \
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;     \
                                                                \
void                                                            \
checkg##TYPE (void)                                             \
{                                                               \
  check##TYPE (  g1s##TYPE,  1);                                \
  check##TYPE (  g2s##TYPE,  2);                                \
  check##TYPE (  g3s##TYPE,  3);                                \
  check##TYPE (  g4s##TYPE,  4);                                \
  check##TYPE (  g5s##TYPE,  5);                                \
  check##TYPE (  g6s##TYPE,  6);                                \
  check##TYPE (  g7s##TYPE,  7);                                \
  check##TYPE (  g8s##TYPE,  8);                                \
  check##TYPE (  g9s##TYPE,  9);                                \
  check##TYPE ( g10s##TYPE, 10);                                \
  check##TYPE ( g11s##TYPE, 11);                                \
  check##TYPE ( g12s##TYPE, 12);                                \
  check##TYPE ( g13s##TYPE, 13);                                \
  check##TYPE ( g14s##TYPE, 14);                                \
  check##TYPE ( g15s##TYPE, 15);                                \
  check##TYPE ( g16s##TYPE, 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, 1);                                          \
  check##TYPE (s2, 2);                                          \
  check##TYPE (s3, 3);                                          \
  check##TYPE (s4, 4);                                          \
  check##TYPE (s5, 5);                                          \
  check##TYPE (s6, 6);                                          \
  check##TYPE (s7, 7);                                          \
  check##TYPE (s8, 8);                                          \
  check##TYPE (s9, 9);                                          \
  check##TYPE (s10, 10);                                        \
  check##TYPE (s11, 11);                                        \
  check##TYPE (s12, 12);                                        \
  check##TYPE (s13, 13);                                        \
  check##TYPE (s14, 14);                                        \
  check##TYPE (s15, 15);                                        \
  check##TYPE (s16, 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, i+1);                                 \
        }                                                       \
      va_end (ap);                                              \
    }                                                           \
}
 
T(Sc)
T(Ss)
T(Si)
T(Ssc)
T(Scs)
T(Sic)
T(Sci)
T(Ssi)
T(Sis)
T(Scsi)
T(Scis)
T(Ssci)
T(Ssic)
T(Sisc)
T(Sics)

Line No.	Rev	Author	Line
1	298	jeremybenn	`#include <stdarg.h>`
2
3			`#include "compat-common.h"`
4
5			`#ifdef SKIP_VA`
6			`const int test_va = 0;`
7			`#else`
8			`const int test_va = 1;`
9			`#endif`
10
11			`#include "small-struct-defs.h"`
12
13			`extern void checkSc (Sc x, int i);`
14			`extern void checkSs (Ss x, int i);`
15			`extern void checkSi (Si x, int i);`
16			`extern void checkSsc (Ssc x, int i);`
17			`extern void checkScs (Scs x, int i);`
18			`extern void checkSsi (Ssi x, int i);`
19			`extern void checkSis (Sis x, int i);`
20			`extern void checkSic (Sic x, int i);`
21			`extern void checkSci (Sci x, int i);`
22			`extern void checkScsi (Scsi x, int i);`
23			`extern void checkScis (Scis x, int i);`
24			`extern void checkSsci (Ssci x, int i);`
25			`extern void checkSsic (Ssic x, int i);`
26			`extern void checkSisc (Sisc x, int i);`
27			`extern void checkSics (Sics x, int i);`
28
29			`#include "small-struct-init.h"`
30
31			`#define T(TYPE) \`
32			`extern TYPE g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE; \`
33			`extern TYPE g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE; \`
34			`extern TYPE g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE; \`
35			`extern TYPE g13s##TYPE, g14s##TYPE, g15s##TYPE, g16s##TYPE; \`
36			`\`
37			`void \`
38			`checkg##TYPE (void) \`
39			`{ \`
40			`check##TYPE ( g1s##TYPE, 1); \`
41			`check##TYPE ( g2s##TYPE, 2); \`
42			`check##TYPE ( g3s##TYPE, 3); \`
43			`check##TYPE ( g4s##TYPE, 4); \`
44			`check##TYPE ( g5s##TYPE, 5); \`
45			`check##TYPE ( g6s##TYPE, 6); \`
46			`check##TYPE ( g7s##TYPE, 7); \`
47			`check##TYPE ( g8s##TYPE, 8); \`
48			`check##TYPE ( g9s##TYPE, 9); \`
49			`check##TYPE ( g10s##TYPE, 10); \`
50			`check##TYPE ( g11s##TYPE, 11); \`
51			`check##TYPE ( g12s##TYPE, 12); \`
52			`check##TYPE ( g13s##TYPE, 13); \`
53			`check##TYPE ( g14s##TYPE, 14); \`
54			`check##TYPE ( g15s##TYPE, 15); \`
55			`check##TYPE ( g16s##TYPE, 16); \`
56			`} \`
57			`\`
58			`void \`
59			`test##TYPE (TYPE s1, TYPE s2, TYPE s3, TYPE s4, \`
60			`TYPE s5, TYPE s6, TYPE s7, TYPE s8, \`
61			`TYPE s9, TYPE s10, TYPE s11, TYPE s12, \`
62			`TYPE s13, TYPE s14, TYPE s15, TYPE s16) \`
63			`{ \`
64			`check##TYPE (s1, 1); \`
65			`check##TYPE (s2, 2); \`
66			`check##TYPE (s3, 3); \`
67			`check##TYPE (s4, 4); \`
68			`check##TYPE (s5, 5); \`
69			`check##TYPE (s6, 6); \`
70			`check##TYPE (s7, 7); \`
71			`check##TYPE (s8, 8); \`
72			`check##TYPE (s9, 9); \`
73			`check##TYPE (s10, 10); \`
74			`check##TYPE (s11, 11); \`
75			`check##TYPE (s12, 12); \`
76			`check##TYPE (s13, 13); \`
77			`check##TYPE (s14, 14); \`
78			`check##TYPE (s15, 15); \`
79			`check##TYPE (s16, 16); \`
80			`} \`
81			`\`
82			`void \`
83			`testva##TYPE (int n, ...) \`
84			`{ \`
85			`int i; \`
86			`va_list ap; \`
87			`if (test_va) \`
88			`{ \`
89			`va_start (ap, n); \`
90			`for (i = 0; i < n; i++) \`
91			`{ \`
92			`TYPE t = va_arg (ap, TYPE); \`
93			`check##TYPE (t, i+1); \`
94			`} \`
95			`va_end (ap); \`
96			`} \`
97			`}`
98
99			`T(Sc)`
100			`T(Ss)`
101			`T(Si)`
102			`T(Ssc)`
103			`T(Scs)`
104			`T(Sic)`
105			`T(Sci)`
106			`T(Ssi)`
107			`T(Sis)`
108			`T(Scsi)`
109			`T(Scis)`
110			`T(Ssci)`
111			`T(Ssic)`
112			`T(Sisc)`
113			`T(Sics)`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [struct-by-value-3_y.c] - Blame information for rev 404