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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pack-test-1.c] - Blame information for rev 689

Details | Compare with Previous | View Log


/* Test semantics of #pragma pack.
   Contributed by Mike Coleman <mcoleman2@kc.rr.com> */
 
/* { dg-do compile { target { ! default_packed } } } */
 
/* Mainly we're just testing whether pushing and popping seem to be
   working correctly, and verifying the (alignment == 1) case, which
   is really the only reason anyone would use this pragma anyway. */
 
#include <stddef.h>
 
/* generalized compile-time test expression */
#define test(n, expr) int test_##n [(expr) ? 1 : -1]
 
/* Round V down to multiple of A */
#define floor(v,a) ((v) / (a) * (a))
 
/* Offset of field with alignment A in structure S after a field P of
   type PT */
#define offset(s,p,pt,a) \
        floor ((offsetof(struct s, p) + sizeof (pt) + (a) - 1), a)
 
/* regular minimum */
#define min(a,b)  ((a) < (b) ? (a) : (b))
 
/* Check that field A (type AT) followed by field B (type BT) are
   packed according to P */
#define test_pack(n, a, at, b, bt, p) \
        test(n, offsetof (struct SNAME, b) \
                == min (offset (SNAME,a,at,__alignof__(bt)), \
                        offset (SNAME,a,at,p)))
 
/* Test offset of field F in structs s1 and s2 are the same.  */
#define test_offset(n, s1, s2, f) \
        test (n, (offsetof(struct s1, f) == offsetof(struct s2, f)))
 
#define SNAME s0
#include "pack-test-1.h"
 
#undef SNAME
#define SNAME s1
#pragma pack(push, p1, 1)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 1);
  test_pack(1, f2, short, f3, double, 1);
  test_pack(2, f4, int, f5, double, 1);
}
 
#undef SNAME
#define SNAME s2
#pragma pack(push, p2, 2)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 2);
  test_pack(1, f2, short, f3, double, 2);
  test_pack(2, f4, int, f5, double, 2);
}
 
#undef SNAME
#define SNAME s3
#pragma pack(push, p3, 4)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 4);
  test_pack(1, f2, short, f3, double, 4);
  test_pack(2, f4, int, f5, double, 4);
}
 
#undef SNAME
#define SNAME s4
#pragma pack(pop)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 2);
  test_pack(1, f2, short, f3, double, 2);
  test_pack(2, f4, int, f5, double, 2);
}
 
#undef SNAME
#define SNAME s5
#pragma pack(pop, p2)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 1);
  test_pack(1, f2, short, f3, double, 1);
  test_pack(2, f4, int, f5, double, 1);
}
 
#undef SNAME
#define SNAME s6
#pragma pack(pop, p1)
#include "pack-test-1.h"
 
void SNAME() {
  test_offset (0, s0, SNAME, f0);
  test_offset (1, s0, SNAME, f1);
  test_offset (2, s0, SNAME, f2);
  test_offset (3, s0, SNAME, f3);
  test_offset (4, s0, SNAME, f4);
  test_offset (5, s0, SNAME, f5);
}
 
#undef SNAME
#define SNAME s7
#pragma pack(1)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 1);
  test_pack(1, f2, short, f3, double, 1);
  test_pack(2, f4, int, f5, double, 1);
}
 
#undef SNAME
#define SNAME s8
#pragma pack(push, p2, 2)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 2);
  test_pack(1, f2, short, f3, double, 2);
  test_pack(2, f4, int, f5, double, 2);
}
 
#undef SNAME
#define SNAME s9
#pragma pack(pop)
#include "pack-test-1.h"
 
void SNAME() {
  test_pack(0, f0, char, f1, double, 1);
  test_pack(1, f2, short, f3, double, 1);
  test_pack(2, f4, int, f5, double, 1);
}
 
#undef SNAME
#define SNAME s10
#pragma pack()
#include "pack-test-1.h"
 
void SNAME() {
  test_offset (0, s0, SNAME, f0);
  test_offset (1, s0, SNAME, f1);
  test_offset (2, s0, SNAME, f2);
  test_offset (3, s0, SNAME, f3);
  test_offset (4, s0, SNAME, f4);
  test_offset (5, s0, SNAME, f5);
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* Test semantics of #pragma pack.`
2			`Contributed by Mike Coleman <mcoleman2@kc.rr.com> */`
3
4			`/* { dg-do compile { target { ! default_packed } } } */`
5
6			`/* Mainly we're just testing whether pushing and popping seem to be`
7			`working correctly, and verifying the (alignment == 1) case, which`
8			`is really the only reason anyone would use this pragma anyway. */`
9
10			`#include <stddef.h>`
11
12			`/* generalized compile-time test expression */`
13			`#define test(n, expr) int test_##n [(expr) ? 1 : -1]`
14
15			`/* Round V down to multiple of A */`
16			`#define floor(v,a) ((v) / (a) * (a))`
17
18			`/* Offset of field with alignment A in structure S after a field P of`
19			`type PT */`
20			`#define offset(s,p,pt,a) \`
21			`floor ((offsetof(struct s, p) + sizeof (pt) + (a) - 1), a)`
22
23			`/* regular minimum */`
24			`#define min(a,b) ((a) < (b) ? (a) : (b))`
25
26			`/* Check that field A (type AT) followed by field B (type BT) are`
27			`packed according to P */`
28			`#define test_pack(n, a, at, b, bt, p) \`
29			`test(n, offsetof (struct SNAME, b) \`
30			`== min (offset (SNAME,a,at,__alignof__(bt)), \`
31			`offset (SNAME,a,at,p)))`
32
33			`/* Test offset of field F in structs s1 and s2 are the same. */`
34			`#define test_offset(n, s1, s2, f) \`
35			`test (n, (offsetof(struct s1, f) == offsetof(struct s2, f)))`
36
37			`#define SNAME s0`
38			`#include "pack-test-1.h"`
39
40			`#undef SNAME`
41			`#define SNAME s1`
42			`#pragma pack(push, p1, 1)`
43			`#include "pack-test-1.h"`
44
45			`void SNAME() {`
46			`test_pack(0, f0, char, f1, double, 1);`
47			`test_pack(1, f2, short, f3, double, 1);`
48			`test_pack(2, f4, int, f5, double, 1);`
49			`}`
50
51			`#undef SNAME`
52			`#define SNAME s2`
53			`#pragma pack(push, p2, 2)`
54			`#include "pack-test-1.h"`
55
56			`void SNAME() {`
57			`test_pack(0, f0, char, f1, double, 2);`
58			`test_pack(1, f2, short, f3, double, 2);`
59			`test_pack(2, f4, int, f5, double, 2);`
60			`}`
61
62			`#undef SNAME`
63			`#define SNAME s3`
64			`#pragma pack(push, p3, 4)`
65			`#include "pack-test-1.h"`
66
67			`void SNAME() {`
68			`test_pack(0, f0, char, f1, double, 4);`
69			`test_pack(1, f2, short, f3, double, 4);`
70			`test_pack(2, f4, int, f5, double, 4);`
71			`}`
72
73			`#undef SNAME`
74			`#define SNAME s4`
75			`#pragma pack(pop)`
76			`#include "pack-test-1.h"`
77
78			`void SNAME() {`
79			`test_pack(0, f0, char, f1, double, 2);`
80			`test_pack(1, f2, short, f3, double, 2);`
81			`test_pack(2, f4, int, f5, double, 2);`
82			`}`
83
84			`#undef SNAME`
85			`#define SNAME s5`
86			`#pragma pack(pop, p2)`
87			`#include "pack-test-1.h"`
88
89			`void SNAME() {`
90			`test_pack(0, f0, char, f1, double, 1);`
91			`test_pack(1, f2, short, f3, double, 1);`
92			`test_pack(2, f4, int, f5, double, 1);`
93			`}`
94
95			`#undef SNAME`
96			`#define SNAME s6`
97			`#pragma pack(pop, p1)`
98			`#include "pack-test-1.h"`
99
100			`void SNAME() {`
101			`test_offset (0, s0, SNAME, f0);`
102			`test_offset (1, s0, SNAME, f1);`
103			`test_offset (2, s0, SNAME, f2);`
104			`test_offset (3, s0, SNAME, f3);`
105			`test_offset (4, s0, SNAME, f4);`
106			`test_offset (5, s0, SNAME, f5);`
107			`}`
108
109			`#undef SNAME`
110			`#define SNAME s7`
111			`#pragma pack(1)`
112			`#include "pack-test-1.h"`
113
114			`void SNAME() {`
115			`test_pack(0, f0, char, f1, double, 1);`
116			`test_pack(1, f2, short, f3, double, 1);`
117			`test_pack(2, f4, int, f5, double, 1);`
118			`}`
119
120			`#undef SNAME`
121			`#define SNAME s8`
122			`#pragma pack(push, p2, 2)`
123			`#include "pack-test-1.h"`
124
125			`void SNAME() {`
126			`test_pack(0, f0, char, f1, double, 2);`
127			`test_pack(1, f2, short, f3, double, 2);`
128			`test_pack(2, f4, int, f5, double, 2);`
129			`}`
130
131			`#undef SNAME`
132			`#define SNAME s9`
133			`#pragma pack(pop)`
134			`#include "pack-test-1.h"`
135
136			`void SNAME() {`
137			`test_pack(0, f0, char, f1, double, 1);`
138			`test_pack(1, f2, short, f3, double, 1);`
139			`test_pack(2, f4, int, f5, double, 1);`
140			`}`
141
142			`#undef SNAME`
143			`#define SNAME s10`
144			`#pragma pack()`
145			`#include "pack-test-1.h"`
146
147			`void SNAME() {`
148			`test_offset (0, s0, SNAME, f0);`
149			`test_offset (1, s0, SNAME, f1);`
150			`test_offset (2, s0, SNAME, f2);`
151			`test_offset (3, s0, SNAME, f3);`
152			`test_offset (4, s0, SNAME, f4);`
153			`test_offset (5, s0, SNAME, f5);`
154			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pack-test-1.c] - Blame information for rev 689