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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libffi/] [testsuite/] [libffi.call/] [nested_struct5.c] - Blame information for rev 732

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 732 jeremybenn
/* Area:        ffi_call, closure_call
2
   Purpose:     Check structure passing with different structure size.
3
                Contains structs as parameter of the struct itself.
4
                Sample taken from Alan Modras patch to src/prep_cif.c.
5
   Limitations: none.
6
   PR:          none.
7
   Originator:  <andreast@gcc.gnu.org> 20051010  */
8
 
9
/* { dg-do run } */
10
#include "ffitest.h"
11
 
12
typedef struct A {
13
  long double a;
14
  unsigned char b;
15
} A;
16
 
17
typedef struct B {
18
  struct A x;
19
  unsigned char y;
20
} B;
21
 
22
static B B_fn(struct A b2, struct B b3)
23
{
24
  struct B result;
25
 
26
  result.x.a = b2.a + b3.x.a;
27
  result.x.b = b2.b + b3.x.b + b3.y;
28
  result.y = b2.b + b3.x.b;
29
 
30
  printf("%d %d %d %d %d: %d %d %d\n", (int)b2.a, b2.b,
31
         (int)b3.x.a, b3.x.b, b3.y,
32
         (int)result.x.a, result.x.b, result.y);
33
 
34
  return result;
35
}
36
 
37
static void
38
B_gn(ffi_cif* cif __UNUSED__, void* resp, void** args,
39
     void* userdata __UNUSED__)
40
{
41
  struct A b0;
42
  struct B b1;
43
 
44
  b0 = *(struct A*)(args[0]);
45
  b1 = *(struct B*)(args[1]);
46
 
47
  *(B*)resp = B_fn(b0, b1);
48
}
49
 
50
int main (void)
51
{
52
  ffi_cif cif;
53
  void *code;
54
  ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
55
  void* args_dbl[3];
56
  ffi_type* cls_struct_fields[3];
57
  ffi_type* cls_struct_fields1[3];
58
  ffi_type cls_struct_type, cls_struct_type1;
59
  ffi_type* dbl_arg_types[3];
60
 
61
  cls_struct_type.size = 0;
62
  cls_struct_type.alignment = 0;
63
  cls_struct_type.type = FFI_TYPE_STRUCT;
64
  cls_struct_type.elements = cls_struct_fields;
65
 
66
  cls_struct_type1.size = 0;
67
  cls_struct_type1.alignment = 0;
68
  cls_struct_type1.type = FFI_TYPE_STRUCT;
69
  cls_struct_type1.elements = cls_struct_fields1;
70
 
71
  struct A e_dbl = { 1.0, 7};
72
  struct B f_dbl = {{12.0 , 127}, 99};
73
 
74
  struct B res_dbl;
75
 
76
  cls_struct_fields[0] = &ffi_type_longdouble;
77
  cls_struct_fields[1] = &ffi_type_uchar;
78
  cls_struct_fields[2] = NULL;
79
 
80
  cls_struct_fields1[0] = &cls_struct_type;
81
  cls_struct_fields1[1] = &ffi_type_uchar;
82
  cls_struct_fields1[2] = NULL;
83
 
84
 
85
  dbl_arg_types[0] = &cls_struct_type;
86
  dbl_arg_types[1] = &cls_struct_type1;
87
  dbl_arg_types[2] = NULL;
88
 
89
  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &cls_struct_type1,
90
                     dbl_arg_types) == FFI_OK);
91
 
92
  args_dbl[0] = &e_dbl;
93
  args_dbl[1] = &f_dbl;
94
  args_dbl[2] = NULL;
95
 
96
  ffi_call(&cif, FFI_FN(B_fn), &res_dbl, args_dbl);
97
  /* { dg-output "1 7 12 127 99: 13 233 134" } */
98
  CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a));
99
  CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y));
100
  CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b));
101
 
102
 
103
  CHECK(ffi_prep_closure_loc(pcl, &cif, B_gn, NULL, code) == FFI_OK);
104
 
105
  res_dbl = ((B(*)(A, B))(code))(e_dbl, f_dbl);
106
  /* { dg-output "\n1 7 12 127 99: 13 233 134" } */
107
  CHECK( res_dbl.x.a == (e_dbl.a + f_dbl.x.a));
108
  CHECK( res_dbl.x.b == (e_dbl.b + f_dbl.x.b + f_dbl.y));
109
  CHECK( res_dbl.y == (e_dbl.b + f_dbl.x.b));
110
 
111
  exit(0);
112
}

powered by: WebSVN 2.1.0

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