1 /* -----------------------------------------------------------------------
2 raw_api.c - Copyright (c) 1999 Cygnus Solutions
4 Author: Kresten Krab Thorup <krab@gnu.org>
8 Permission is hereby granted, free of charge, to any person obtaining
9 a copy of this software and associated documentation files (the
10 ``Software''), to deal in the Software without restriction, including
11 without limitation the rights to use, copy, modify, merge, publish,
12 distribute, sublicense, and/or sell copies of the Software, and to
13 permit persons to whom the Software is furnished to do so, subject to
14 the following conditions:
16 The above copyright notice and this permission notice shall be included
17 in all copies or substantial portions of the Software.
19 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
20 OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
21 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
22 IN NO EVENT SHALL CYGNUS SOLUTIONS BE LIABLE FOR ANY CLAIM, DAMAGES OR
23 OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
24 ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
25 OTHER DEALINGS IN THE SOFTWARE.
26 ----------------------------------------------------------------------- */
28 /* This file defines generic functions for use with the raw api. */
31 #include <ffi_common.h>
36 ffi_raw_size (ffi_cif
*cif
)
41 ffi_type
**at
= cif
->arg_types
;
43 for (i
= cif
->nargs
-1; i
>= 0; i
--, at
++)
46 if ((*at
)->type
== FFI_TYPE_STRUCT
)
47 result
+= ALIGN (sizeof (void*), SIZEOF_ARG
);
50 result
+= ALIGN ((*at
)->size
, SIZEOF_ARG
);
58 ffi_raw_to_ptrarray (ffi_cif
*cif
, ffi_raw
*raw
, void **args
)
61 ffi_type
**tp
= cif
->arg_types
;
65 for (i
= 0; i
< cif
->nargs
; i
++, tp
++, args
++)
71 *args
= (void*) ((char*)(raw
++) + SIZEOF_ARG
- 1);
76 *args
= (void*) ((char*)(raw
++) + SIZEOF_ARG
- 2);
82 *args
= (void*) ((char*)(raw
++) + SIZEOF_ARG
- 4);
92 case FFI_TYPE_POINTER
:
93 *args
= (void*) &(raw
++)->ptr
;
98 raw
+= ALIGN ((*tp
)->size
, SIZEOF_ARG
) / SIZEOF_ARG
;
102 #else /* WORDS_BIGENDIAN */
106 /* then assume little endian */
107 for (i
= 0; i
< cif
->nargs
; i
++, tp
++, args
++)
110 if ((*tp
)->type
== FFI_TYPE_STRUCT
)
112 *args
= (raw
++)->ptr
;
118 raw
+= ALIGN ((*tp
)->size
, sizeof (void*)) / sizeof (void*);
123 #error "pdp endian not supported"
126 #endif /* WORDS_BIGENDIAN */
130 ffi_ptrarray_to_raw (ffi_cif
*cif
, void **args
, ffi_raw
*raw
)
133 ffi_type
**tp
= cif
->arg_types
;
135 for (i
= 0; i
< cif
->nargs
; i
++, tp
++, args
++)
140 (raw
++)->uint
= *(UINT8
*) (*args
);
144 (raw
++)->sint
= *(SINT8
*) (*args
);
147 case FFI_TYPE_UINT16
:
148 (raw
++)->uint
= *(UINT16
*) (*args
);
151 case FFI_TYPE_SINT16
:
152 (raw
++)->sint
= *(SINT16
*) (*args
);
156 case FFI_TYPE_UINT32
:
157 (raw
++)->uint
= *(UINT32
*) (*args
);
160 case FFI_TYPE_SINT32
:
161 (raw
++)->sint
= *(SINT32
*) (*args
);
166 case FFI_TYPE_STRUCT
:
167 (raw
++)->ptr
= *args
;
171 case FFI_TYPE_POINTER
:
172 (raw
++)->ptr
= **(void***) args
;
176 memcpy ((void*) raw
->data
, (void*)*args
, (*tp
)->size
);
177 raw
+= ALIGN ((*tp
)->size
, SIZEOF_ARG
) / SIZEOF_ARG
;
182 #if !FFI_NATIVE_RAW_API
185 /* This is a generic definition of ffi_raw_call, to be used if the
186 * native system does not provide a machine-specific implementation.
187 * Having this, allows code to be written for the raw API, without
188 * the need for system-specific code to handle input in that format;
189 * these following couple of functions will handle the translation forth
190 * and back automatically. */
192 void ffi_raw_call (/*@dependent@*/ ffi_cif
*cif
,
194 /*@out@*/ void *rvalue
,
195 /*@dependent@*/ ffi_raw
*raw
)
197 void **avalue
= (void**) alloca (cif
->nargs
* sizeof (void*));
198 ffi_raw_to_ptrarray (cif
, raw
, avalue
);
199 ffi_call (cif
, fn
, rvalue
, avalue
);
202 #if FFI_CLOSURES /* base system provides closures */
205 ffi_translate_args (ffi_cif
*cif
, void *rvalue
,
206 void **avalue
, void *user_data
)
208 ffi_raw
*raw
= (ffi_raw
*)alloca (ffi_raw_size (cif
));
209 ffi_raw_closure
*cl
= (ffi_raw_closure
*)user_data
;
211 ffi_ptrarray_to_raw (cif
, avalue
, raw
);
212 (*cl
->fun
) (cif
, rvalue
, raw
, cl
->user_data
);
215 /* Again, here is the generic version of ffi_prep_raw_closure, which
216 * will install an intermediate "hub" for translation of arguments from
217 * the pointer-array format, to the raw format */
220 ffi_prep_raw_closure (ffi_raw_closure
* cl
,
222 void (*fun
)(ffi_cif
*,void*,ffi_raw
*,void*),
227 status
= ffi_prep_closure ((ffi_closure
*) cl
,
231 if (status
== FFI_OK
)
234 cl
->user_data
= user_data
;
240 #endif /* FFI_CLOSURES */
241 #endif /* !FFI_NATIVE_RAW_API */
242 #endif /* !FFI_NO_RAW_API */