1 /* -----------------------------------------------------------------------
2 ffi.c - Copyright (c) 2013 Synopsys, Inc. (www.synopsys.com)
4 ARC Foreign Function Interface
6 Permission is hereby granted, free of charge, to any person obtaining
7 a copy of this software and associated documentation files (the
8 ``Software''), to deal in the Software without restriction, including
9 without limitation the rights to use, copy, modify, merge, publish,
10 distribute, sublicense, and/or sell copies of the Software, and to
11 permit persons to whom the Software is furnished to do so, subject to
12 the following conditions:
14 The above copyright notice and this permission notice shall be included
15 in all copies or substantial portions of the Software.
17 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
18 OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
20 IN NO EVENT SHALL RENESAS TECHNOLOGY BE LIABLE FOR ANY CLAIM, DAMAGES OR
21 OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
22 ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
23 OTHER DEALINGS IN THE SOFTWARE.
24 ----------------------------------------------------------------------- */
27 #include <ffi_common.h>
32 #include <sys/cachectl.h>
34 /* for little endian ARC, the code is in fact stored as mixed endian for
35 performance reasons */
37 #define CODE_ENDIAN(x) (x)
39 #define CODE_ENDIAN(x) ( (((uint32_t) (x)) << 16) | (((uint32_t) (x)) >> 16))
42 /* ffi_prep_args is called by the assembly routine once stack
43 space has been allocated for the function's arguments. */
46 ffi_prep_args (char *stack
, extended_cif
* ecif
)
57 if (ecif
->cif
->rtype
->type
== FFI_TYPE_STRUCT
)
59 *(void **) argp
= ecif
->rvalue
;
63 p_argv
= ecif
->avalue
;
65 for (i
= ecif
->cif
->nargs
, p_arg
= ecif
->cif
->arg_types
;
66 (i
!= 0); i
--, p_arg
++)
71 /* align alignment to 4 */
72 alignment
= (((*p_arg
)->alignment
- 1) | 3) + 1;
74 /* Align if necessary. */
75 if ((alignment
- 1) & (unsigned) argp
)
76 argp
= (char *) ALIGN (argp
, alignment
);
83 switch ((*p_arg
)->type
)
86 *(signed int *) argp
= (signed int) *(SINT8
*) (*p_argv
);
90 *(unsigned int *) argp
= (unsigned int) *(UINT8
*) (*p_argv
);
94 *(signed int *) argp
= (signed int) *(SINT16
*) (*p_argv
);
98 *(unsigned int *) argp
= (unsigned int) *(UINT16
*) (*p_argv
);
101 case FFI_TYPE_STRUCT
:
102 memcpy (argp
, *p_argv
, (*p_arg
)->size
);
109 else if (z
== sizeof (int))
111 *(unsigned int *) argp
= (unsigned int) *(UINT32
*) (*p_argv
);
115 if ((*p_arg
)->type
== FFI_TYPE_STRUCT
)
117 memcpy (argp
, *p_argv
, z
);
121 /* Double or long long 64bit. */
122 memcpy (argp
, *p_argv
, z
);
132 /* Perform machine dependent cif processing. */
134 ffi_prep_cif_machdep (ffi_cif
* cif
)
136 /* Set the return type flag. */
137 switch (cif
->rtype
->type
)
140 cif
->flags
= (unsigned) cif
->rtype
->type
;
143 case FFI_TYPE_STRUCT
:
144 cif
->flags
= (unsigned) cif
->rtype
->type
;
147 case FFI_TYPE_SINT64
:
148 case FFI_TYPE_UINT64
:
149 case FFI_TYPE_DOUBLE
:
150 cif
->flags
= FFI_TYPE_DOUBLE
;
155 cif
->flags
= FFI_TYPE_INT
;
162 extern void ffi_call_ARCompact (void (*)(char *, extended_cif
*),
163 extended_cif
*, unsigned, unsigned,
164 unsigned *, void (*fn
) (void));
167 ffi_call (ffi_cif
* cif
, void (*fn
) (void), void *rvalue
, void **avalue
)
172 ecif
.avalue
= avalue
;
174 /* If the return value is a struct and we don't have
175 a return value address then we need to make one. */
176 if ((rvalue
== NULL
) && (cif
->rtype
->type
== FFI_TYPE_STRUCT
))
178 ecif
.rvalue
= alloca (cif
->rtype
->size
);
181 ecif
.rvalue
= rvalue
;
186 ffi_call_ARCompact (ffi_prep_args
, &ecif
, cif
->bytes
,
187 cif
->flags
, ecif
.rvalue
, fn
);
197 ffi_closure_inner_ARCompact (ffi_closure
* closure
, void *rvalue
,
200 void **arg_area
, **p_argv
;
201 ffi_cif
*cif
= closure
->cif
;
202 char *argp
= (char *) args
;
206 arg_area
= (void **) alloca (cif
->nargs
* sizeof (void *));
208 /* handle hidden argument */
209 if (cif
->flags
== FFI_TYPE_STRUCT
)
211 rvalue
= *(void **) argp
;
217 for (i
= 0, p_argt
= cif
->arg_types
; i
< cif
->nargs
;
218 i
++, p_argt
++, p_argv
++)
223 /* align alignment to 4 */
224 alignment
= (((*p_argt
)->alignment
- 1) | 3) + 1;
226 /* Align if necessary. */
227 if ((alignment
- 1) & (unsigned) argp
)
228 argp
= (char *) ALIGN (argp
, alignment
);
231 *p_argv
= (void *) argp
;
235 (closure
->fun
) (cif
, rvalue
, arg_area
, closure
->user_data
);
240 extern void ffi_closure_ARCompact (void);
243 ffi_prep_closure_loc (ffi_closure
* closure
, ffi_cif
* cif
,
244 void (*fun
) (ffi_cif
*, void *, void **, void *),
245 void *user_data
, void *codeloc
)
247 uint32_t *tramp
= (uint32_t *) & (closure
->tramp
[0]);
252 FFI_ASSERT (tramp
== codeloc
);
253 tramp
[0] = CODE_ENDIAN (0x200a1fc0); /* mov r8, pcl */
254 tramp
[1] = CODE_ENDIAN (0x20200f80); /* j [long imm] */
255 tramp
[2] = CODE_ENDIAN (ffi_closure_ARCompact
);
264 closure
->user_data
= user_data
;
265 cacheflush (codeloc
, FFI_TRAMPOLINE_SIZE
, BCACHE
);