cybrid_api_organization_ruby 0.117.27 → 0.117.29

data/vendor/bundle/ruby/3.2.0/gems/ffi-1.16.3/ext/ffi_c/libffi/src/loongarch64/sysv.S

@@ -1,327 +0,0 @@
-/* -----------------------------------------------------------------------
-  sysv.S  - Copyright (c) 2022 Xu Chenghua <xuchenghua@loongson.cn>
-                          2022 Cheng Lulu <chenglulu@loongson.cn>
-
-   LoongArch Foreign Function Interface
-
-   Permission is hereby granted, free of charge, to any person obtaining
-   a copy of this software and associated documentation files (the
-   ``Software''), to deal in the Software without restriction, including
-   without limitation the rights to use, copy, modify, merge, publish,
-   distribute, sublicense, and/or sell copies of the Software, and to
-   permit persons to whom the Software is furnished to do so, subject to
-   the following conditions:
-
-   The above copyright notice and this permission notice shall be included
-   in all copies or substantial portions of the Software.
-
-   THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
-   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-   NONINFRINGEMENT.  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-   HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-   WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-   OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-   DEALINGS IN THE SOFTWARE.
-   ----------------------------------------------------------------------- */
-
-#define LIBFFI_ASM
-#include <fficonfig.h>
-#include <ffi.h>
-
-/* Define aliases so that we can handle all ABIs uniformly.  */
-
-#if __SIZEOF_POINTER__ == 8
-# define PTRS 8
-# define LARG ld.d
-# define SARG st.d
-#else
-# define PTRS 4
-# define LARG ld.w
-# define SARG st.w
-#endif
-
-#if defined(__loongarch_single_float)
-# define FLTS 4
-# define FLD fld.w
-# define FST fst.w
-#elif defined(__loongarch_double_float)
-# define FLTS 8
-# define FLARG fld.d
-# define FSARG fst.d
-#elif defined(__loongarch_soft_float)
-# define FLTS 0
-#else
-#error unsupported LoongArch floating-point ABI
-#endif
-
-    .text
-    .globl  ffi_call_asm
-    .type   ffi_call_asm, @function
-    .hidden ffi_call_asm
-/* struct call_context
-   {
-     ABI_FLOAT fa[8];
-     size_t a[10];
-   }
-
-   - 8 floating point parameter/result registers (fa[0] - fa[7])
-   - 8 integer parameter/result registers (a[0] - a[7])
-   - 2 registers used by the assembly code to in-place construct its own stack
-     frame.
-    - frame pointer (a[8])
-    - return address (a[9])
-
-   void ffi_call_asm (size_t *stackargs, struct call_context *regargs,
-		      void (*fn)(void), void *closure); */
-
-#define FRAME_LEN (8 * FLTS + 10 * PTRS)
-
-ffi_call_asm:
-	.cfi_startproc
-
-	/* We are NOT going to set up an ordinary stack frame.  In order to pass
-	   the stacked args to the called function, we adjust our stack pointer
-	   to a0, which is in the _caller's_ alloca area.  We establish our own
-	   stack frame at the end of the call_context.
-
-	   Anything below the arguments will be freed at this point, although
-	   we preserve the call_context so that it can be read back in the
-	   caller.  */
-
-	.cfi_def_cfa	5, FRAME_LEN # Interim CFA based on a1.
-	SARG	$fp, $a1, FRAME_LEN - 2*PTRS
-	.cfi_offset	22, -2*PTRS
-	SARG	$ra, $a1, FRAME_LEN - 1*PTRS
-	.cfi_offset	1, -1*PTRS
-
-	addi.d	$fp, $a1, FRAME_LEN
-	move	$sp, $a0
-	.cfi_def_cfa	22, 0 # Our frame is fully set up.
-
-	# Load arguments.
-	move	$t1, $a2
-	move	$t2, $a3
-
-#if FLTS
-	FLARG	$fa0, $fp, -FRAME_LEN+0*FLTS
-	FLARG	$fa1, $fp, -FRAME_LEN+1*FLTS
-	FLARG	$fa2, $fp, -FRAME_LEN+2*FLTS
-	FLARG	$fa3, $fp, -FRAME_LEN+3*FLTS
-	FLARG	$fa4, $fp, -FRAME_LEN+4*FLTS
-	FLARG	$fa5, $fp, -FRAME_LEN+5*FLTS
-	FLARG	$fa6, $fp, -FRAME_LEN+6*FLTS
-	FLARG	$fa7, $fp, -FRAME_LEN+7*FLTS
-#endif
-
-	LARG	$a0, $fp, -FRAME_LEN+8*FLTS+0*PTRS
-	LARG	$a1, $fp, -FRAME_LEN+8*FLTS+1*PTRS
-	LARG	$a2, $fp, -FRAME_LEN+8*FLTS+2*PTRS
-	LARG	$a3, $fp, -FRAME_LEN+8*FLTS+3*PTRS
-	LARG	$a4, $fp, -FRAME_LEN+8*FLTS+4*PTRS
-	LARG	$a5, $fp, -FRAME_LEN+8*FLTS+5*PTRS
-	LARG	$a6, $fp, -FRAME_LEN+8*FLTS+6*PTRS
-	LARG	$a7, $fp, -FRAME_LEN+8*FLTS+7*PTRS
-
-	/* Call */
-	jirl	$ra, $t1, 0
-
-#if FLTS
-	/* Save return values - only a0/a1 (fa0/fa1) are used.  */
-	FSARG	$fa0, $fp, -FRAME_LEN+0*FLTS
-	FSARG	$fa1, $fp, -FRAME_LEN+1*FLTS
-#endif
-
-	SARG	$a0, $fp, -FRAME_LEN+8*FLTS+0*PTRS
-	SARG	$a1, $fp, -FRAME_LEN+8*FLTS+1*PTRS
-
-	/* Restore and return.  */
-	addi.d	$sp, $fp, -FRAME_LEN
-	.cfi_def_cfa	3, FRAME_LEN
-	LARG	$ra, $fp, -1*PTRS
-	.cfi_restore	1
-	LARG	$fp, $fp, -2*PTRS
-	.cfi_restore	22
-	jr	$ra
-	.cfi_endproc
-	.size	ffi_call_asm, .-ffi_call_asm
-
-
-/* ffi_closure_asm. Expects address of the passed-in ffi_closure in t0.
-   void ffi_closure_inner (ffi_cif *cif,
-			   void (*fun)(ffi_cif *, void *, void **, void *),
-			   void *user_data,
-			   size_t *stackargs, struct call_context *regargs) */
-
-	.globl	ffi_closure_asm
-	.hidden	ffi_closure_asm
-	.type	ffi_closure_asm, @function
-
-ffi_closure_asm:
-	.cfi_startproc
-	addi.d	$sp, $sp, -FRAME_LEN
-	.cfi_def_cfa_offset FRAME_LEN
-
-	/* Make a frame.  */
-	SARG	$fp, $sp, FRAME_LEN - 2*PTRS
-	.cfi_offset	22, -2*PTRS
-	SARG	$ra, $sp, FRAME_LEN - 1*PTRS
-	.cfi_offset	1, -1*PTRS
-	addi.d	$fp, $sp, FRAME_LEN
-
-	/* Save arguments.  */
-#if FLTS
-	FSARG	$fa0, $sp, 0*FLTS
-	FSARG	$fa1, $sp, 1*FLTS
-	FSARG	$fa2, $sp, 2*FLTS
-	FSARG	$fa3, $sp, 3*FLTS
-	FSARG	$fa4, $sp, 4*FLTS
-	FSARG	$fa5, $sp, 5*FLTS
-	FSARG	$fa6, $sp, 6*FLTS
-	FSARG	$fa7, $sp, 7*FLTS
-#endif
-
-	SARG	$a0, $sp, 8*FLTS+0*PTRS
-	SARG	$a1, $sp, 8*FLTS+1*PTRS
-	SARG	$a2, $sp, 8*FLTS+2*PTRS
-	SARG	$a3, $sp, 8*FLTS+3*PTRS
-	SARG	$a4, $sp, 8*FLTS+4*PTRS
-	SARG	$a5, $sp, 8*FLTS+5*PTRS
-	SARG	$a6, $sp, 8*FLTS+6*PTRS
-	SARG	$a7, $sp, 8*FLTS+7*PTRS
-
-	/* Enter C */
-	LARG	$a0, $t0, FFI_TRAMPOLINE_SIZE+0*PTRS
-	LARG	$a1, $t0, FFI_TRAMPOLINE_SIZE+1*PTRS
-	LARG	$a2, $t0, FFI_TRAMPOLINE_SIZE+2*PTRS
-	addi.d	$a3, $sp, FRAME_LEN
-	move	$a4, $sp
-
-	bl	ffi_closure_inner
-
-	/* Return values.  */
-#if FLTS
-	FLARG	$fa0, $sp, 0*FLTS
-	FLARG	$fa1, $sp, 1*FLTS
-#endif
-
-	LARG	$a0, $sp, 8*FLTS+0*PTRS
-	LARG	$a1, $sp, 8*FLTS+1*PTRS
-
-	/* Restore and return.  */
-	LARG	$ra, $sp, FRAME_LEN-1*PTRS
-	.cfi_restore	1
-	LARG	$fp, $sp, FRAME_LEN-2*PTRS
-	.cfi_restore	22
-	addi.d	$sp, $sp, FRAME_LEN
-	.cfi_def_cfa_offset 0
-	jr	$ra
-	.cfi_endproc
-	.size	ffi_closure_asm, .-ffi_closure_asm
-
-/* Static trampoline code table, in which each element is a trampoline.
-
-   The trampoline clobbers t0 and t1, but we don't save them on the stack
-   because our psABI explicitly says they are scratch registers, at least for
-   ELF.  Our dynamic trampoline is already clobbering them anyway.
-
-   The trampoline has two parameters - target code to jump to and data for
-   the target code. The trampoline extracts the parameters from its parameter
-   block (see tramp_table_map()).  The trampoline saves the data address in
-   t0 and jumps to the target code.  As ffi_closure_asm() already expects the
-   data address to be in t0, we don't need a "ffi_closure_asm_alt".  */
-
-#if defined(FFI_EXEC_STATIC_TRAMP)
-	.align	16
-	.globl	trampoline_code_table
-	.hidden	trampoline_code_table
-	.type	trampoline_code_table, @function
-
-trampoline_code_table:
-
-	.rept	65536 / 16
-	pcaddu12i	$t1, 16 # 65536 >> 12
-	ld.d	$t0, $t1, 0
-	ld.d	$t1, $t1, 8
-	jirl	$zero, $t1, 0
-	.endr
-	.size	trampoline_code_table, .-trampoline_code_table
-
-	.align	2
-#endif
-
-/* ffi_go_closure_asm.  Expects address of the passed-in ffi_go_closure in t2.
-   void ffi_closure_inner (ffi_cif *cif,
-			   void (*fun)(ffi_cif *, void *, void **, void *),
-			   void *user_data,
-			   size_t *stackargs, struct call_context *regargs) */
-
-	.globl	ffi_go_closure_asm
-	.hidden	ffi_go_closure_asm
-	.type	ffi_go_closure_asm, @function
-
-ffi_go_closure_asm:
-	.cfi_startproc
-	addi.d	$sp, $sp, -FRAME_LEN
-	.cfi_def_cfa_offset FRAME_LEN
-
-	/* Make a frame.  */
-	SARG	$fp, $sp, FRAME_LEN - 2*PTRS
-	.cfi_offset	22, -2*PTRS
-	SARG	$ra, $sp, FRAME_LEN - 1*PTRS
-	.cfi_offset	1, -1*PTRS
-	addi.d	$fp, $sp, FRAME_LEN
-
-	/* Save arguments.  */
-#if FLTS
-	FSARG	$fa0, $sp, 0*FLTS
-	FSARG	$fa1, $sp, 1*FLTS
-	FSARG	$fa2, $sp, 2*FLTS
-	FSARG	$fa3, $sp, 3*FLTS
-	FSARG	$fa4, $sp, 4*FLTS
-	FSARG	$fa5, $sp, 5*FLTS
-	FSARG	$fa6, $sp, 6*FLTS
-	FSARG	$fa7, $sp, 7*FLTS
-#endif
-
-	SARG	$a0, $sp, 8*FLTS+0*PTRS
-	SARG	$a1, $sp, 8*FLTS+1*PTRS
-	SARG	$a2, $sp, 8*FLTS+2*PTRS
-	SARG	$a3, $sp, 8*FLTS+3*PTRS
-	SARG	$a4, $sp, 8*FLTS+4*PTRS
-	SARG	$a5, $sp, 8*FLTS+5*PTRS
-	SARG	$a6, $sp, 8*FLTS+6*PTRS
-	SARG	$a7, $sp, 8*FLTS+7*PTRS
-
-	/* Enter C */
-	LARG	$a0, $t2, 1*PTRS
-	LARG	$a1, $t2, 2*PTRS
-	move	$a2, $t2
-	addi.d	$a3, $sp, FRAME_LEN
-	move	$a4, $sp
-
-	bl	ffi_closure_inner
-
-	/* Return values.  */
-#if FLTS
-	FLARG	$fa0, $sp, 0*FLTS
-	FLARG	$fa1, $sp, 1*FLTS
-#endif
-
-	LARG	$a0, $sp, 8*FLTS+0*PTRS
-	LARG	$a1, $sp, 8*FLTS+1*PTRS
-
-	/* Restore and return.  */
-	LARG	$ra, $sp, FRAME_LEN-1*PTRS
-	.cfi_restore	1
-	LARG	$fp, $sp, FRAME_LEN-2*PTRS
-	.cfi_restore	22
-	addi.d	$sp, $sp, FRAME_LEN
-	.cfi_def_cfa_offset 0
-	jr	$ra
-	.cfi_endproc
-	.size	ffi_go_closure_asm, .-ffi_go_closure_asm
-
-#if defined __ELF__ && defined __linux__
-	.section .note.GNU-stack,"",%progbits
-#endif

data/vendor/bundle/ruby/3.2.0/gems/ffi-1.16.3/ext/ffi_c/libffi/src/m32r/ffi.c

@@ -1,249 +0,0 @@
-/* -----------------------------------------------------------------------
-   ffi.c - Copyright (c) 2004  Renesas Technology
-           Copyright (c) 2008  Red Hat, Inc.
-           Copyright (c) 2022  Anthony Green
-
-   M32R Foreign Function Interface
-
-   Permission is hereby granted, free of charge, to any person obtaining
-   a copy of this software and associated documentation files (the
-   ``Software''), to deal in the Software without restriction, including
-   without limitation the rights to use, copy, modify, merge, publish,
-   distribute, sublicense, and/or sell copies of the Software, and to
-   permit persons to whom the Software is furnished to do so, subject to
-   the following conditions:
-
-   The above copyright notice and this permission notice shall be included
-   in all copies or substantial portions of the Software.
-
-   THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
-   OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-   IN NO EVENT SHALL RENESAS TECHNOLOGY BE LIABLE FOR ANY CLAIM, DAMAGES OR
-   OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-   ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-   OTHER DEALINGS IN THE SOFTWARE.
-   ----------------------------------------------------------------------- */
-
-#include <ffi.h>
-#include <ffi_common.h>
-
-#include <stdlib.h>
-
-/* ffi_prep_args is called by the assembly routine once stack
-   space has been allocated for the function's arguments.  */
-
-void ffi_prep_args(char *stack, extended_cif *ecif)
-{
-  unsigned int i;
-  int tmp;
-  unsigned int avn;
-  void **p_argv;
-  char *argp;
-  ffi_type **p_arg;
-
-  tmp = 0;
-  argp = stack;
-
-  if (ecif->cif->rtype->type == FFI_TYPE_STRUCT && ecif->cif->rtype->size > 8)
-    {
-      *(void **) argp = ecif->rvalue;
-      argp += 4;
-    }
-
-  avn = ecif->cif->nargs;
-  p_argv = ecif->avalue;
-
-  for (i = ecif->cif->nargs, p_arg = ecif->cif->arg_types;
-       (i != 0) && (avn != 0);
-       i--, p_arg++)
-    {
-      size_t z;
-
-      /* Align if necessary.  */
-      if (((*p_arg)->alignment - 1) & (unsigned) argp)
-	argp = (char *) FFI_ALIGN (argp, (*p_arg)->alignment);
-
-      if (avn != 0)
-	{
-	  avn--;
-	  z = (*p_arg)->size;
-	  if (z < sizeof (int))
-	    {
-	      z = sizeof (int);
-
-	      switch ((*p_arg)->type)
-		{
-		case FFI_TYPE_SINT8:
-		  *(signed int *) argp = (signed int)*(SINT8 *)(* p_argv);
-		  break;
-
-		case FFI_TYPE_UINT8:
-		  *(unsigned int *) argp = (unsigned int)*(UINT8 *)(* p_argv);
-		  break;
-
-		case FFI_TYPE_SINT16:
-		  *(signed int *) argp = (signed int)*(SINT16 *)(* p_argv);
-		  break;
-
-		case FFI_TYPE_UINT16:
-		  *(unsigned int *) argp = (unsigned int)*(UINT16 *)(* p_argv);
-		  break;
-
-		case FFI_TYPE_STRUCT:
-	  	  z = (*p_arg)->size;
-	  	  if ((*p_arg)->alignment != 1)
-		    memcpy (argp, *p_argv, z);
-		  else
-		    memcpy (argp + 4 - z, *p_argv, z);
-	  	  z = sizeof (int);
-		  break;
-
-		default:
-		  FFI_ASSERT(0);
-		}
-	    }
-	  else if (z == sizeof (int))
-	    {
-	       *(unsigned int *) argp = (unsigned int)*(UINT32 *)(* p_argv);
-	    }
-	  else
-	    {
-	      if ((*p_arg)->type == FFI_TYPE_STRUCT)
-	        {
-		  if (z > 8)
-		    {
-		      *(unsigned int *) argp = (unsigned int)(void *)(* p_argv);
-		      z = sizeof(void *);
-		    }
-		  else
-		    {
-	              memcpy(argp, *p_argv, z);
-		      z = 8;
-		    }
-	        }
-	      else
-	        {
-		  /* Double or long long 64bit.  */
-	          memcpy (argp, *p_argv, z);
-	        }
-	    }
-	  p_argv++;
-	  argp += z;
-	}
-    }
-
-  return;
-}
-
-/* Perform machine dependent cif processing.  */
-ffi_status
-ffi_prep_cif_machdep(ffi_cif *cif)
-{
-  /* Set the return type flag.  */
-  switch (cif->rtype->type)
-    {
-    case FFI_TYPE_VOID:
-      cif->flags = (unsigned) cif->rtype->type;
-      break;
-
-    case FFI_TYPE_STRUCT:
-      if (cif->rtype->size <= 4)
-	cif->flags = FFI_TYPE_INT;
-
-      else if (cif->rtype->size <= 8)
-	cif->flags = FFI_TYPE_DOUBLE;
-
-      else
-	cif->flags = (unsigned) cif->rtype->type;
-      break;
-
-    case FFI_TYPE_SINT64:
-    case FFI_TYPE_UINT64:
-    case FFI_TYPE_DOUBLE:
-      cif->flags = FFI_TYPE_DOUBLE;
-      break;
-
-    case FFI_TYPE_FLOAT:
-    default:
-      cif->flags = FFI_TYPE_INT;
-      break;
-    }
-
-  return FFI_OK;
-}
-
-extern void ffi_call_SYSV(void (*)(char *, extended_cif *), extended_cif *,
-			  unsigned, unsigned, unsigned *, void (*fn)(void));
-
-void ffi_call(ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
-{
-  extended_cif ecif;
-  ffi_type **arg_types = cif->arg_types;
-  int i, nargs = cif->nargs;
-
-  ecif.cif = cif;
-  ecif.avalue = avalue;
-
-  /* If the return value is a struct and we don't have
-     a return value address then we need to make one.  */
-  if ((rvalue == NULL) &&
-      (cif->rtype->type == FFI_TYPE_STRUCT))
-    {
-      ecif.rvalue = alloca (cif->rtype->size);
-    }
-  else
-    ecif.rvalue = rvalue;
-
-  /* If we have any large structure arguments, make a copy so we are passing
-     by value.  */
-  for (i = 0; i < nargs; i++)
-    {
-      ffi_type *at = arg_types[i];
-      int size = at->size;
-      if (at->type == FFI_TYPE_STRUCT && size > 4)
-        {
-          char *argcopy = alloca (size);
-          memcpy (argcopy, avalue[i], size);
-          avalue[i] = argcopy;
-        }
-    }
-
-  switch (cif->abi)
-    {
-    case FFI_SYSV:
-      ffi_call_SYSV(ffi_prep_args, &ecif, cif->bytes,
-		    cif->flags, ecif.rvalue, fn);
-      if (cif->rtype->type == FFI_TYPE_STRUCT)
-	{
-	  int size = cif->rtype->size;
-	  int align = cif->rtype->alignment;
-
-	  if (size < 4)
-	    {
-	      if (align == 1)
-	        *(unsigned long *)(ecif.rvalue) <<= (4 - size) * 8;
-	    }
-	  else if (4 < size && size < 8)
-	    {
-	      if (align == 1)
-		{
-		  memcpy (ecif.rvalue, ecif.rvalue + 8-size, size);
-		}
-	      else if (align == 2)
-		{
-		  if (size & 1)
-		    size += 1;
-
-		  if (size != 8)
-		    memcpy (ecif.rvalue, ecif.rvalue + 8-size, size);
-		}
-	    }
-	}
-      break;
-
-    default:
-      FFI_ASSERT(0);
-      break;
-    }
-}

data/vendor/bundle/ruby/3.2.0/gems/ffi-1.16.3/ext/ffi_c/libffi/src/m32r/ffitarget.h

@@ -1,53 +0,0 @@
-/* -----------------------------------------------------------------*-C-*-
-   ffitarget.h - Copyright (c) 2012  Anthony Green
-                 Copyright (c) 2004  Renesas Technology.
-   Target configuration macros for M32R.
-
-   Permission is hereby granted, free of charge, to any person obtaining
-   a copy of this software and associated documentation files (the
-   ``Software''), to deal in the Software without restriction, including
-   without limitation the rights to use, copy, modify, merge, publish,
-   distribute, sublicense, and/or sell copies of the Software, and to
-   permit persons to whom the Software is furnished to do so, subject to
-   the following conditions:
-
-   The above copyright notice and this permission notice shall be included
-   in all copies or substantial portions of the Software.
-
-   THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
-   OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-   IN NO EVENT SHALL RENESAS TECHNOLOGY BE LIABLE FOR ANY CLAIM, DAMAGES OR
-   OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-   ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-   OTHER DEALINGS IN THE SOFTWARE.
-
-   ----------------------------------------------------------------------- */
-
-#ifndef LIBFFI_TARGET_H
-#define LIBFFI_TARGET_H
-
-#ifndef LIBFFI_H
-#error "Please do not include ffitarget.h directly into your source.  Use ffi.h instead."
-#endif
-
-/* ---- Generic type definitions ----------------------------------------- */
-
-#ifndef LIBFFI_ASM
-typedef unsigned long          ffi_arg;
-typedef signed long            ffi_sarg;
-
-typedef enum ffi_abi
-  {
-    FFI_FIRST_ABI = 0,
-    FFI_SYSV,
-    FFI_LAST_ABI,
-    FFI_DEFAULT_ABI = FFI_SYSV
-  } ffi_abi;
-#endif
-
-#define FFI_CLOSURES 		0
-#define FFI_TRAMPOLINE_SIZE	24
-#define FFI_NATIVE_RAW_API 	0
-
-#endif