OpenCores
URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.dg/] [compat/] [struct-layout-1_x1.h] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 jlechner
#include "struct-layout-1.h"
2
 
3
struct Info info;
4
int fails;
5
int intarray[256];
6
int fn0 (void) { return 0; }
7
int fn1 (void) { return 1; }
8
int fn2 (void) { return 2; }
9
int fn3 (void) { return 3; }
10
int fn4 (void) { return 4; }
11
int fn5 (void) { return 5; }
12
int fn6 (void) { return 6; }
13
int fn7 (void) { return 7; }
14
int fn8 (void) { return 8; }
15
int fn9 (void) { return 9; }
16
 
17
/* This macro is intended for fields where their
18
   addresses/sizes/alignments and value passing should be checked.  */
19
#define F(n, x, v, w)                                           \
20
  info.flds[i] = &s##n.x;                                       \
21
  info.sizes[i] = sizeof (s##n.x);                              \
22
  info.aligns[i] = __alignof__ (s##n.x);                        \
23
  s##n.x = v;                                                   \
24
  a##n[2].x = w;                                                \
25
  ++i;
26
/* This macro is for fields where just their addresses/sizes/alignments
27
   should be checked.  */
28
#define N(n, x)                                                 \
29
  info.flds[i] = &s##n.x;                                       \
30
  info.sizes[i] = sizeof (s##n.x);                              \
31
  info.aligns[i] = __alignof__ (s##n.x);                        \
32
  ++i;
33
/* This macro is for fields where just value passing should be checked.  */
34
#define B(n, x, v, w)                                           \
35
  s##n.x = v;                                                   \
36
  a##n[2].x = w;                                                \
37
  ++j;
38
#define TX(n, type, attrs, fields, ops)                         \
39
type S##n { fields } attrs;                                     \
40
type S##n s##n;                                                 \
41
extern type S##n a##n[5];                                       \
42
extern type S##n check##n (type S##n, type S##n *,              \
43
                             type S##n);                        \
44
extern void check##n##va (int i, ...);                          \
45
extern void checkx##n (type S##n);                              \
46
void test##n (void)                                             \
47
{                                                               \
48
  int i, j;                                                     \
49
  memset (&s##n, '\0', sizeof (s##n));                          \
50
  memset (a##n, '\0', sizeof (a##n));                           \
51
  memset (&info, '\0', sizeof (info));                          \
52
  info.sp = &s##n;                                              \
53
  info.a0p = &a##n[0];                                          \
54
  info.a3p = &a##n[3];                                          \
55
  info.sz = sizeof (s##n);                                      \
56
  info.als = __alignof__ (s##n);                                \
57
  info.ala0 = __alignof__ (a##n[0]);                            \
58
  info.ala3 = __alignof__ (a##n[3]);                            \
59
  if (((long) &a##n[3]) & (info.als - 1))                       \
60
    FAIL (n, 1);                                                \
61
  i = 0; j = 0;                                                   \
62
  ops                                                           \
63
  info.nfields = i;                                             \
64
  info.nbitfields = j;                                          \
65
  checkx##n (check##n (s##n, &a##n[1], a##n[2]));               \
66
  check##n##va (1, 1.0, s##n, 2LL, a##n[2], a##n[2]);           \
67
  check##n##va (2, s##n, s##n, 2.0L, a##n[2], s##n);            \
68
}

powered by: WebSVN 2.1.0

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