1 /* -----------------------------------------------------------------------
2 java_raw_api.c - Copyright (c) 1999 Cygnus Solutions
6 Raw_api.c author: Kresten Krab Thorup <krab@gnu.org>
7 Java_raw_api.c author: Hans-J. Boehm <hboehm@hpl.hp.com>
11 Permission is hereby granted, free of charge, to any person obtaining
12 a copy of this software and associated documentation files (the
13 ``Software''), to deal in the Software without restriction, including
14 without limitation the rights to use, copy, modify, merge, publish,
15 distribute, sublicense, and/or sell copies of the Software, and to
16 permit persons to whom the Software is furnished to do so, subject to
17 the following conditions:
19 The above copyright notice and this permission notice shall be included
20 in all copies or substantial portions of the Software.
22 THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
23 OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
24 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
25 IN NO EVENT SHALL CYGNUS SOLUTIONS BE LIABLE FOR ANY CLAIM, DAMAGES OR
26 OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
27 ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
28 OTHER DEALINGS IN THE SOFTWARE.
29 ----------------------------------------------------------------------- */
31 /* This defines a Java- and 64-bit specific variant of the raw API. */
32 /* It assumes that "raw" argument blocks look like Java stacks on a */
33 /* 64-bit machine. Arguments that can be stored in a single stack */
34 /* stack slots (longs, doubles) occupy 128 bits, but only the first */
35 /* 64 bits are actually used. */
38 #include <ffi_common.h>
40 #if !defined(NO_JAVA_RAW_API) && !defined(FFI_NO_RAW_API)
43 ffi_java_raw_size (ffi_cif
*cif
)
48 ffi_type
**at
= cif
->arg_types
;
50 for (i
= cif
->nargs
-1; i
>= 0; i
--, at
++)
52 switch((*at
) -> type
) {
55 result
+= 2 * SIZEOF_ARG
;
58 /* No structure parameters in Java. */
70 ffi_java_raw_to_ptrarray (ffi_cif
*cif
, ffi_raw
*raw
, void **args
)
73 ffi_type
**tp
= cif
->arg_types
;
77 for (i
= 0; i
< cif
->nargs
; i
++, tp
++, args
++)
83 *args
= (void*) ((char*)(raw
++) + SIZEOF_ARG
- 1);
88 *args
= (void*) ((char*)(raw
++) + SIZEOF_ARG
- 2);
94 *args
= (void*) ((char*)(raw
++) + SIZEOF_ARG
- 4);
100 case FFI_TYPE_SINT64
:
101 case FFI_TYPE_DOUBLE
:
107 case FFI_TYPE_POINTER
:
108 *args
= (void*) &(raw
++)->ptr
;
113 raw
+= ALIGN ((*tp
)->size
, SIZEOF_ARG
) / SIZEOF_ARG
;
117 #else /* WORDS_BIGENDIAN */
121 /* then assume little endian */
122 for (i
= 0; i
< cif
->nargs
; i
++, tp
++, args
++)
125 switch((*tp
)->type
) {
126 case FFI_TYPE_UINT64
:
127 case FFI_TYPE_SINT64
:
128 case FFI_TYPE_DOUBLE
:
133 *args
= (void*) raw
++;
135 #else /* SIZEOF_ARG != 8 */
137 raw
+= ALIGN ((*tp
)->size
, sizeof (void*)) / sizeof (void*);
138 #endif /* SIZEOF_ARG == 8 */
142 #error "pdp endian not supported"
145 #endif /* WORDS_BIGENDIAN */
149 ffi_java_ptrarray_to_raw (ffi_cif
*cif
, void **args
, ffi_raw
*raw
)
152 ffi_type
**tp
= cif
->arg_types
;
154 for (i
= 0; i
< cif
->nargs
; i
++, tp
++, args
++)
159 (raw
++)->uint
= *(UINT8
*) (*args
);
163 (raw
++)->sint
= *(SINT8
*) (*args
);
166 case FFI_TYPE_UINT16
:
167 (raw
++)->uint
= *(UINT16
*) (*args
);
170 case FFI_TYPE_SINT16
:
171 (raw
++)->sint
= *(SINT16
*) (*args
);
175 case FFI_TYPE_UINT32
:
176 (raw
++)->uint
= *(UINT32
*) (*args
);
179 case FFI_TYPE_SINT32
:
180 (raw
++)->sint
= *(SINT32
*) (*args
);
184 (raw
++)->flt
= *(FLOAT32
*) (*args
);
188 case FFI_TYPE_UINT64
:
189 case FFI_TYPE_SINT64
:
190 case FFI_TYPE_DOUBLE
:
191 raw
->uint
= *(UINT64
*) (*args
);
196 case FFI_TYPE_POINTER
:
197 (raw
++)->ptr
= **(void***) args
;
202 FFI_ASSERT(FALSE
); /* Should have covered all cases */
204 memcpy ((void*) raw
->data
, (void*)*args
, (*tp
)->size
);
205 raw
+= ALIGN ((*tp
)->size
, SIZEOF_ARG
) / SIZEOF_ARG
;
211 #if !FFI_NATIVE_RAW_API
214 /* This is a generic definition of ffi_raw_call, to be used if the
215 * native system does not provide a machine-specific implementation.
216 * Having this, allows code to be written for the raw API, without
217 * the need for system-specific code to handle input in that format;
218 * these following couple of functions will handle the translation forth
219 * and back automatically. */
221 void ffi_java_raw_call (/*@dependent@*/ ffi_cif
*cif
,
223 /*@out@*/ void *rvalue
,
224 /*@dependent@*/ ffi_raw
*raw
)
226 void **avalue
= (void**) alloca (cif
->nargs
* sizeof (void*));
227 ffi_java_raw_to_ptrarray (cif
, raw
, avalue
);
228 ffi_call (cif
, fn
, rvalue
, avalue
);
231 #if FFI_CLOSURES /* base system provides closures */
234 ffi_java_translate_args (ffi_cif
*cif
, void *rvalue
,
235 void **avalue
, void *user_data
)
237 ffi_raw
*raw
= (ffi_raw
*)alloca (ffi_java_raw_size (cif
));
238 ffi_raw_closure
*cl
= (ffi_raw_closure
*)user_data
;
240 ffi_java_ptrarray_to_raw (cif
, avalue
, raw
);
241 (*cl
->fun
) (cif
, rvalue
, raw
, cl
->user_data
);
244 /* Again, here is the generic version of ffi_prep_raw_closure, which
245 * will install an intermediate "hub" for translation of arguments from
246 * the pointer-array format, to the raw format */
249 ffi_prep_java_raw_closure (ffi_raw_closure
* cl
,
251 void (*fun
)(ffi_cif
*,void*,ffi_raw
*,void*),
256 status
= ffi_prep_closure ((ffi_closure
*) cl
,
258 &ffi_java_translate_args
,
260 if (status
== FFI_OK
)
263 cl
->user_data
= user_data
;
269 #endif /* FFI_CLOSURES */
270 #endif /* !FFI_NATIVE_RAW_API */
271 #endif /* !FFI_NO_RAW_API */