1c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* -----------------------------------------------------------------*-C-*- 2c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein libffi 3.0.6 - Copyright (c) 1996-2003, 2007, 2008 Red Hat, Inc. 3c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 4c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein Permission is hereby granted, free of charge, to any person obtaining 5c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein a copy of this software and associated documentation files (the 6c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ``Software''), to deal in the Software without restriction, including 7c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein without limitation the rights to use, copy, modify, merge, publish, 8c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein distribute, sublicense, and/or sell copies of the Software, and to 9c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein permit persons to whom the Software is furnished to do so, subject to 10c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein the following conditions: 11c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 12c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein The above copyright notice and this permission notice shall be included 13c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein in all copies or substantial portions of the Software. 14c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 15c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, 16c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 17c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 18c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 19c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 20c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 22c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein DEALINGS IN THE SOFTWARE. 23c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 24c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ----------------------------------------------------------------------- */ 25c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 26c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* ------------------------------------------------------------------- 27c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein The basic API is described in the README file. 28c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 29c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein The raw API is designed to bypass some of the argument packing 30c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein and unpacking on architectures for which it can be avoided. 31c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 32c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein The closure API allows interpreted functions to be packaged up 33c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein inside a C function pointer, so that they can be called as C functions, 34c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein with no understanding on the client side that they are interpreted. 35c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein It can also be used in other cases in which it is necessary to package 36c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein up a user specified parameter and a function pointer as a single 37c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein function pointer. 38c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 39c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein The closure API must be implemented in order to get its functionality, 40c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein e.g. for use by gij. Routines are provided to emulate the raw API 41c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein if the underlying platform doesn't allow faster implementation. 42c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 43c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein More details on the raw and cloure API can be found in: 44c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 45c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein http://gcc.gnu.org/ml/java/1999-q3/msg00138.html 46c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 47c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein and 48c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 49c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein http://gcc.gnu.org/ml/java/1999-q3/msg00174.html 50c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein -------------------------------------------------------------------- */ 51c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 52c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifndef LIBFFI_H 53c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define LIBFFI_H 54c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 55c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifdef __cplusplus 56c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern "C" { 57c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 58c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 59c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* Specify which architecture libffi is configured for. */ 60c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifndef X86_DARWIN 61c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define X86_DARWIN 62c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 63c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 64c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* ---- System configuration information --------------------------------- */ 65c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 66c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#include <ffitarget.h> 67c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 68c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifndef LIBFFI_ASM 69c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 70c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#include <stddef.h> 71c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#include <limits.h> 72c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 73c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* LONG_LONG_MAX is not always defined (not if STRICT_ANSI, for example). 74c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein But we can find it either under the correct ANSI name, or under GNU 75c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein C's internal name. */ 76c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifdef LONG_LONG_MAX 77c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define FFI_LONG_LONG_MAX LONG_LONG_MAX 78c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 79c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# ifdef LLONG_MAX 80c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define FFI_LONG_LONG_MAX LLONG_MAX 81c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# else 82c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# ifdef __GNUC__ 83c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define FFI_LONG_LONG_MAX __LONG_LONG_MAX__ 84c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# endif 85c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# endif 86c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 87c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 88c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* The closure code assumes that this works on pointers, i.e. a size_t */ 89c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* can hold a pointer. */ 90c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 91c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef struct _ffi_type 92c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein{ 93c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein size_t size; 94c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned short alignment; 95c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned short type; 96c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein struct _ffi_type **elements; 97c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_type; 98c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 99c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifndef LIBFFI_HIDE_BASIC_TYPES 100c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if SCHAR_MAX == 127 101c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_uchar ffi_type_uint8 102c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_schar ffi_type_sint8 103c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 104c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein #error "char size not supported" 105c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 106c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 107c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if SHRT_MAX == 32767 108c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_ushort ffi_type_uint16 109c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_sshort ffi_type_sint16 110c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#elif SHRT_MAX == 2147483647 111c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_ushort ffi_type_uint32 112c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_sshort ffi_type_sint32 113c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 114c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein #error "short size not supported" 115c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 116c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 117c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if INT_MAX == 32767 118c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_uint ffi_type_uint16 119c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_sint ffi_type_sint16 120c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#elif INT_MAX == 2147483647 121c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_uint ffi_type_uint32 122c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_sint ffi_type_sint32 123c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#elif INT_MAX == 9223372036854775807 124c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_uint ffi_type_uint64 125c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_sint ffi_type_sint64 126c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 127c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein #error "int size not supported" 128c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 129c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 130c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if LONG_MAX == 2147483647 131c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# if FFI_LONG_LONG_MAX != 9223372036854775807 132c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein #error "no 64-bit data type supported" 133c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# endif 134c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#elif LONG_MAX != 9223372036854775807 135c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein #error "long size not supported" 136c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 137c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 138c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if LONG_MAX == 2147483647 139c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_ulong ffi_type_uint32 140c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_slong ffi_type_sint32 141c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#elif LONG_MAX == 9223372036854775807 142c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_ulong ffi_type_uint64 143c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define ffi_type_slong ffi_type_sint64 144c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 145c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein #error "long size not supported" 146c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 147c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 148c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* These are defined in types.c */ 149c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_void; 150c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_uint8; 151c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_sint8; 152c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_uint16; 153c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_sint16; 154c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_uint32; 155c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_sint32; 156c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_uint64; 157c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_sint64; 158c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_float; 159c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_double; 160c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_pointer; 161c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 162c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if 1 163c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinextern ffi_type ffi_type_longdouble; 164c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 165c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define ffi_type_longdouble ffi_type_double 166c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 167c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif /* LIBFFI_HIDE_BASIC_TYPES */ 168c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 169c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef enum { 170c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein FFI_OK = 0, 171c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein FFI_BAD_TYPEDEF, 172c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein FFI_BAD_ABI 173c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_status; 174c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 175c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef unsigned FFI_TYPE; 176c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 177c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef struct { 178c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_abi abi; 179c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned nargs; 180c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_type **arg_types; 181c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_type *rtype; 182c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned bytes; 183c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned flags; 184c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifdef FFI_EXTRA_CIF_FIELDS 185c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein FFI_EXTRA_CIF_FIELDS; 186c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 187c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_cif; 188c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 189c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* ---- Definitions for the raw API -------------------------------------- */ 190c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 191c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifndef FFI_SIZEOF_ARG 192c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# if LONG_MAX == 2147483647 193c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define FFI_SIZEOF_ARG 4 194c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# elif LONG_MAX == 9223372036854775807 195c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define FFI_SIZEOF_ARG 8 196c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# endif 197c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 198c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 199c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifndef FFI_SIZEOF_JAVA_RAW 200c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein# define FFI_SIZEOF_JAVA_RAW FFI_SIZEOF_ARG 201c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 202c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 203c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef union { 204c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_sarg sint; 205c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_arg uint; 206c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein float flt; 207c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein char data[FFI_SIZEOF_ARG]; 208c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void* ptr; 209c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_raw; 210c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 211c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if FFI_SIZEOF_JAVA_RAW == 4 && FFI_SIZEOF_ARG == 8 212c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* This is a special case for mips64/n32 ABI (and perhaps others) where 213c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein sizeof(void *) is 4 and FFI_SIZEOF_ARG is 8. */ 214c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef union { 215c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein signed int sint; 216c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned int uint; 217c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein float flt; 218c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein char data[FFI_SIZEOF_JAVA_RAW]; 219c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void* ptr; 220c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_java_raw; 221c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 222c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef ffi_raw ffi_java_raw; 223c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 224c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 225c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 226c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_raw_call (ffi_cif *cif, 227c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fn)(void), 228c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *rvalue, 229c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_raw *avalue); 230c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 231c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_ptrarray_to_raw (ffi_cif *cif, void **args, ffi_raw *raw); 232c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_raw_to_ptrarray (ffi_cif *cif, ffi_raw *raw, void **args); 233c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinsize_t ffi_raw_size (ffi_cif *cif); 234c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 235c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* This is analogous to the raw API, except it uses Java parameter */ 236c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* packing, even on 64-bit machines. I.e. on 64-bit machines */ 237c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* longs and doubles are followed by an empty 64-bit word. */ 238c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 239c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_java_raw_call (ffi_cif *cif, 240c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fn)(void), 241c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *rvalue, 242c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_java_raw *avalue); 243c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 244c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_java_ptrarray_to_raw (ffi_cif *cif, void **args, ffi_java_raw *raw); 245c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_java_raw_to_ptrarray (ffi_cif *cif, ffi_java_raw *raw, void **args); 246c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinsize_t ffi_java_raw_size (ffi_cif *cif); 247c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 248c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* ---- Definitions for closures ----------------------------------------- */ 249c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 250c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if FFI_CLOSURES 251c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 252c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef struct { 253c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein char tramp[FFI_TRAMPOLINE_SIZE]; 254c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif; 255c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,void**,void*); 256c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data; 257c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_closure __attribute__((aligned (8))); 258c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 259c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid *ffi_closure_alloc (size_t size, void **code); 260c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_closure_free (void *); 261c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 262c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status 263c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_prep_closure (ffi_closure*, 264c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *, 265c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,void**,void*), 266c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data); 267c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 268c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status 269c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_prep_closure_loc (ffi_closure*, 270c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *, 271c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,void**,void*), 272c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data, 273c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void*codeloc); 274c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 275c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef struct { 276c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein char tramp[FFI_TRAMPOLINE_SIZE]; 277c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 278c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif; 279c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 280c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if !FFI_NATIVE_RAW_API 281c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 282c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein /* if this is enabled, then a raw closure has the same layout 283c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein as a regular closure. We use this to install an intermediate 284c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein handler to do the transaltion, void** -> ffi_raw*. */ 285c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 286c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*translate_args)(ffi_cif*,void*,void**,void*); 287c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *this_closure; 288c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 289c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 290c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 291c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,ffi_raw*,void*); 292c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data; 293c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 294c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_raw_closure; 295c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 296c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteintypedef struct { 297c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein char tramp[FFI_TRAMPOLINE_SIZE]; 298c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 299c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif; 300c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 301c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if !FFI_NATIVE_RAW_API 302c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 303c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein /* if this is enabled, then a raw closure has the same layout 304c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein as a regular closure. We use this to install an intermediate 305c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein handler to do the transaltion, void** -> ffi_raw*. */ 306c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 307c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*translate_args)(ffi_cif*,void*,void**,void*); 308c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *this_closure; 309c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 310c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 311c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 312c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,ffi_java_raw*,void*); 313c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data; 314c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 315c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} ffi_java_raw_closure; 316c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 317c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status 318c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_prep_raw_closure (ffi_raw_closure*, 319c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif, 320c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,ffi_raw*,void*), 321c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data); 322c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 323c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status 324c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_prep_raw_closure_loc (ffi_raw_closure*, 325c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif, 326c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,ffi_raw*,void*), 327c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data, 328c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *codeloc); 329c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 330c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status 331c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_prep_java_raw_closure (ffi_java_raw_closure*, 332c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif, 333c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,ffi_java_raw*,void*), 334c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data); 335c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 336c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status 337c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_prep_java_raw_closure_loc (ffi_java_raw_closure*, 338c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_cif *cif, 339c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fun)(ffi_cif*,void*,ffi_java_raw*,void*), 340c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *user_data, 341c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *codeloc); 342c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 343c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif /* FFI_CLOSURES */ 344c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 345c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* ---- Public interface definition -------------------------------------- */ 346c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 347c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinffi_status ffi_prep_cif(ffi_cif *cif, 348c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_abi abi, 349c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein unsigned int nargs, 350c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_type *rtype, 351c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein ffi_type **atypes); 352c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 353c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornsteinvoid ffi_call(ffi_cif *cif, 354c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void (*fn)(void), 355c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void *rvalue, 356c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein void **avalue); 357c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 358c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* Useful for eliminating compiler warnings */ 359c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_FN(f) ((void (*)(void))f) 360c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 361c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* ---- Definitions shared with assembly code ---------------------------- */ 362c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 363c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 364c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 365c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* If these change, update src/mips/ffitarget.h. */ 366c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_VOID 0 367c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_INT 1 368c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_FLOAT 2 369c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_DOUBLE 3 370c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#if 1 371c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_LONGDOUBLE 4 372c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#else 373c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_LONGDOUBLE FFI_TYPE_DOUBLE 374c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 375c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_UINT8 5 376c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_SINT8 6 377c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_UINT16 7 378c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_SINT16 8 379c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_UINT32 9 380c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_SINT32 10 381c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_UINT64 11 382c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_SINT64 12 383c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_STRUCT 13 384c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_POINTER 14 385c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 386c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein/* This should always refer to the last type code (for sanity checks) */ 387c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#define FFI_TYPE_LAST FFI_TYPE_POINTER 388c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 389c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#ifdef __cplusplus 390c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein} 391c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 392c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein 393c2b1dd7a596d1accbc3fa0cfea5f96062ec44606Dan Bornstein#endif 394