OpenCores
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/] [struct-by-value-1.c] - Blame information for rev 298

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn
/* Test structure passing by value.  */
2
/* { dg-do run } */
3
/* { dg-options "-O2" } */
4
 
5
#define T(N)                                    \
6
struct S##N { unsigned char i[N]; };            \
7
struct S##N g1s##N, g2s##N, g3s##N;             \
8
                                                \
9
void                                            \
10
init##N (struct S##N *p, int i)                 \
11
{                                               \
12
  int j;                                        \
13
  for (j = 0; j < N; j++)                        \
14
    p->i[j] = i + j;                            \
15
}                                               \
16
                                                \
17
void                                            \
18
check##N (struct S##N *p, int i)                \
19
{                                               \
20
  int j;                                        \
21
  for (j = 0; j < N; j++)                        \
22
    if (p->i[j] != i + j) abort ();             \
23
}                                               \
24
                                                \
25
void                                            \
26
test##N (struct S##N s1, struct S##N s2,        \
27
         struct S##N s3)                        \
28
{                                               \
29
  check##N (&s1, 64);                           \
30
  check##N (&s2, 128);                          \
31
  check##N (&s3, 192);                          \
32
}                                               \
33
                                                \
34
void                                            \
35
test2_##N (struct S##N s1, struct S##N s2)      \
36
{                                               \
37
  test##N (s1, g2s##N, s2);                     \
38
}                                               \
39
                                                \
40
void                                            \
41
testit##N (void)                                \
42
{                                               \
43
  init##N (&g1s##N, 64);                        \
44
  check##N (&g1s##N, 64);                       \
45
  init##N (&g2s##N, 128);                       \
46
  check##N (&g2s##N, 128);                      \
47
  init##N (&g3s##N, 192);                       \
48
  check##N (&g3s##N, 192);                      \
49
  test##N (g1s##N, g2s##N, g3s##N);             \
50
  test2_##N (g1s##N, g3s##N);                   \
51
}
52
 
53
extern void abort (void);
54
extern void exit (int);
55
 
56
T(0) T(1) T(2) T(3) T(4) T(5) T(6) T(7)
57
T(8) T(9) T(10) T(11) T(12) T(13) T(14) T(15)
58
T(16) T(17) T(18) T(19) T(20) T(21) T(22) T(23)
59
T(24) T(25) T(26) T(27) T(28) T(29) T(30) T(31)
60
T(32) T(33) T(34) T(35) T(36) T(37) T(38) T(39)
61
T(40) T(41) T(42) T(43) T(44) T(45) T(46) T(47)
62
T(48) T(49) T(50) T(51) T(52) T(53) T(54) T(55)
63
T(56) T(57) T(58) T(59) T(60) T(61) T(62) T(63)
64
 
65
#undef T
66
 
67
int
68
main ()
69
{
70
#define T(N) testit##N ();
71
 
72
T(0) T(1) T(2) T(3) T(4) T(5) T(6) T(7)
73
T(8) T(9) T(10) T(11) T(12) T(13) T(14) T(15)
74
T(16) T(17) T(18) T(19) T(20) T(21) T(22) T(23)
75
T(24) T(25) T(26) T(27) T(28) T(29) T(30) T(31)
76
T(32) T(33) T(34) T(35) T(36) T(37) T(38) T(39)
77
T(40) T(41) T(42) T(43) T(44) T(45) T(46) T(47)
78
T(48) T(49) T(50) T(51) T(52) T(53) T(54) T(55)
79
T(56) T(57) T(58) T(59) T(60) T(61) T(62) T(63)
80
 
81
#undef T
82
  exit (0);
83
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.