cloudsmith-api 0.54.15 → 0.57.1

data/vendor/bundle/ruby/2.6.0/gems/ffi-1.13.1/ext/ffi_c/Buffer.c

@@ -1,365 +0,0 @@
-/*
- * Copyright (c) 2008-2010 Wayne Meissner
- * Copyright (C) 2009 Aman Gupta <aman@tmm1.net>
- * 
- * Copyright (c) 2008-2013, Ruby FFI project contributors
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- *     * Redistributions of source code must retain the above copyright
- *       notice, this list of conditions and the following disclaimer.
- *     * Redistributions in binary form must reproduce the above copyright
- *       notice, this list of conditions and the following disclaimer in the
- *       documentation and/or other materials provided with the distribution.
- *     * Neither the name of the Ruby FFI project nor the
- *       names of its contributors may be used to endorse or promote products
- *       derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-#ifndef _MSC_VER
-# include <stdint.h>
-# include <stdbool.h>
-#else
-# include "win32/stdbool.h"
-# include "win32/stdint.h"
-#endif
-#include <limits.h>
-#include <ruby.h>
-#include "rbffi.h"
-#include "rbffi_endian.h"
-#include "AbstractMemory.h"
-
-#define BUFFER_EMBED_MAXLEN (8)
-typedef struct Buffer {
-    AbstractMemory memory;
-    
-    union {
-        VALUE rbParent; /* link to parent buffer */
-        char* storage; /* start of malloc area */
-        long embed[BUFFER_EMBED_MAXLEN / sizeof(long)]; /* storage for tiny allocations */
-    } data;
-} Buffer;
-
-static VALUE buffer_allocate(VALUE klass);
-static VALUE buffer_initialize(int argc, VALUE* argv, VALUE self);
-static void buffer_release(Buffer* ptr);
-static void buffer_mark(Buffer* ptr);
-static VALUE buffer_free(VALUE self);
-
-static VALUE BufferClass = Qnil;
-
-static VALUE
-buffer_allocate(VALUE klass)
-{
-    Buffer* buffer;
-    VALUE obj;
-
-    obj = Data_Make_Struct(klass, Buffer, NULL, buffer_release, buffer);
-    buffer->data.rbParent = Qnil;
-    buffer->memory.flags = MEM_RD | MEM_WR;
-
-    return obj;
-}
-
-static void
-buffer_release(Buffer* ptr)
-{
-    if ((ptr->memory.flags & MEM_EMBED) == 0 && ptr->data.storage != NULL) {
-        xfree(ptr->data.storage);
-        ptr->data.storage = NULL;
-    }
-    
-    xfree(ptr);
-}
-
-/*
- * call-seq: initialize(size, count=1, clear=false)
- * @param [Integer, Symbol, #size] Type or size in bytes of a buffer cell
- * @param [Fixnum] count number of cell in the Buffer
- * @param [Boolean] clear if true, set the buffer to all-zero
- * @return [self]
- * @raise {NoMemoryError} if failed to allocate memory for Buffer
- * A new instance of Buffer.
- */
-static VALUE
-buffer_initialize(int argc, VALUE* argv, VALUE self)
-{
-    VALUE rbSize = Qnil, rbCount = Qnil, rbClear = Qnil;
-    Buffer* p;
-    int nargs;
-
-    Data_Get_Struct(self, Buffer, p);
-
-    nargs = rb_scan_args(argc, argv, "12", &rbSize, &rbCount, &rbClear);
-    p->memory.typeSize = rbffi_type_size(rbSize);
-    p->memory.size = p->memory.typeSize * (nargs > 1 ? NUM2LONG(rbCount) : 1);
-
-    if (p->memory.size > BUFFER_EMBED_MAXLEN) {
-        p->data.storage = xmalloc(p->memory.size + 7);
-        if (p->data.storage == NULL) {
-            rb_raise(rb_eNoMemError, "Failed to allocate memory size=%lu bytes", p->memory.size);
-            return Qnil;
-        }
-
-        /* ensure the memory is aligned on at least a 8 byte boundary */
-        p->memory.address = (void *) (((uintptr_t) p->data.storage + 0x7) & (uintptr_t) ~0x7ULL);
-    
-        if (p->memory.size > 0 && (nargs < 3 || RTEST(rbClear))) {
-            memset(p->memory.address, 0, p->memory.size);
-        }
-    
-    } else {
-        p->memory.flags |= MEM_EMBED;
-        p->memory.address = (void *) &p->data.embed[0];
-    }
-
-    if (rb_block_given_p()) {
-        return rb_ensure(rb_yield, self, buffer_free, self);
-    }
-
-    return self;
-}
-
-/*
- * call-seq: initialize_copy(other)
- * @return [self]
- * DO NOT CALL THIS METHOD.
- */
-static VALUE
-buffer_initialize_copy(VALUE self, VALUE other)
-{
-    AbstractMemory* src;
-    Buffer* dst;
-    
-    Data_Get_Struct(self, Buffer, dst);
-    src = rbffi_AbstractMemory_Cast(other, BufferClass);
-    if ((dst->memory.flags & MEM_EMBED) == 0 && dst->data.storage != NULL) {
-        xfree(dst->data.storage);
-    }
-    dst->data.storage = xmalloc(src->size + 7);
-    if (dst->data.storage == NULL) {
-        rb_raise(rb_eNoMemError, "failed to allocate memory size=%lu bytes", src->size);
-        return Qnil;
-    }
-    
-    dst->memory.address = (void *) (((uintptr_t) dst->data.storage + 0x7) & (uintptr_t) ~0x7ULL);
-    dst->memory.size = src->size;
-    dst->memory.typeSize = src->typeSize;
-    
-    /* finally, copy the actual buffer contents */
-    memcpy(dst->memory.address, src->address, src->size);
-
-    return self;
-}
-
-static VALUE
-buffer_alloc_inout(int argc, VALUE* argv, VALUE klass)
-{
-    return buffer_initialize(argc, argv, buffer_allocate(klass));
-}
-
-static VALUE
-slice(VALUE self, long offset, long len)
-{
-    Buffer* ptr;
-    Buffer* result;
-    VALUE obj = Qnil;
-    
-    Data_Get_Struct(self, Buffer, ptr);
-    checkBounds(&ptr->memory, offset, len);
-
-    obj = Data_Make_Struct(BufferClass, Buffer, buffer_mark, -1, result);
-    result->memory.address = ptr->memory.address + offset;
-    result->memory.size = len;
-    result->memory.flags = ptr->memory.flags;
-    result->memory.typeSize = ptr->memory.typeSize;
-    result->data.rbParent = self;
-
-    return obj;
-}
-
-/*
- * call-seq: + offset
- * @param [Numeric] offset
- * @return [Buffer] a new instance of Buffer pointing from offset until end of previous buffer.
- * Add a Buffer with an offset
- */
-static VALUE
-buffer_plus(VALUE self, VALUE rbOffset)
-{
-    Buffer* ptr;
-    long offset = NUM2LONG(rbOffset);
-
-    Data_Get_Struct(self, Buffer, ptr);
-
-    return slice(self, offset, ptr->memory.size - offset);
-}
-
-/*
- * call-seq: slice(offset, length)
- * @param [Numeric] offset
- * @param [Numeric] length
- * @return [Buffer] a new instance of Buffer
- * Slice an existing Buffer.
- */
-static VALUE
-buffer_slice(VALUE self, VALUE rbOffset, VALUE rbLength)
-{
-    return slice(self, NUM2LONG(rbOffset), NUM2LONG(rbLength));
-}
-
-/*
- * call-seq: inspect
- * @return [String]
- * Inspect a Buffer.
- */
-static VALUE
-buffer_inspect(VALUE self)
-{
-    char tmp[100];
-    Buffer* ptr;
-
-    Data_Get_Struct(self, Buffer, ptr);
-
-    snprintf(tmp, sizeof(tmp), "#<FFI:Buffer:%p address=%p size=%ld>", ptr, ptr->memory.address, ptr->memory.size);
-    
-    return rb_str_new2(tmp);
-}
-
-
-#if BYTE_ORDER == LITTLE_ENDIAN
-# define SWAPPED_ORDER BIG_ENDIAN
-#else
-# define SWAPPED_ORDER LITTLE_ENDIAN
-#endif
-
-/*
- * Set or get endianness of Buffer.
- * @overload order
- *  @return [:big, :little]
- *  Get endianness of Buffer.
- * @overload order(order)
- *  @param [:big, :little, :network] order
- *  @return [self]
- *  Set endianness of Buffer (+:network+ is an alias for +:big+).
- */
-static VALUE
-buffer_order(int argc, VALUE* argv, VALUE self)
-{
-    Buffer* ptr;
-
-    Data_Get_Struct(self, Buffer, ptr);
-    if (argc == 0) {
-        int order = (ptr->memory.flags & MEM_SWAP) == 0 ? BYTE_ORDER : SWAPPED_ORDER;
-        return order == BIG_ENDIAN ? ID2SYM(rb_intern("big")) : ID2SYM(rb_intern("little"));
-    } else {
-        VALUE rbOrder = Qnil;
-        int order = BYTE_ORDER;
-
-        if (rb_scan_args(argc, argv, "1", &rbOrder) < 1) {
-            rb_raise(rb_eArgError, "need byte order");
-        }
-        if (SYMBOL_P(rbOrder)) {
-            ID id = SYM2ID(rbOrder);
-            if (id == rb_intern("little")) {
-                order = LITTLE_ENDIAN;
-
-            } else if (id == rb_intern("big") || id == rb_intern("network")) {
-                order = BIG_ENDIAN;
-            }
-        }
-        if (order != BYTE_ORDER) {
-            Buffer* p2;
-            VALUE retval = slice(self, 0, ptr->memory.size);
-
-            Data_Get_Struct(retval, Buffer, p2);
-            p2->memory.flags |= MEM_SWAP;
-            return retval;
-        }
-
-        return self;
-    }
-}
-
-/* Only used to free the buffer if the yield in the initializer throws an exception */
-static VALUE
-buffer_free(VALUE self)
-{
-    Buffer* ptr;
-
-    Data_Get_Struct(self, Buffer, ptr);
-    if ((ptr->memory.flags & MEM_EMBED) == 0 && ptr->data.storage != NULL) {
-        xfree(ptr->data.storage);
-        ptr->data.storage = NULL;
-    }
-
-    return self;
-}
-
-static void
-buffer_mark(Buffer* ptr)
-{
-    rb_gc_mark(ptr->data.rbParent);
-}
-
-void
-rbffi_Buffer_Init(VALUE moduleFFI)
-{
-    VALUE ffi_AbstractMemory =  rbffi_AbstractMemoryClass;
-
-    /*
-     * Document-class: FFI::Buffer < FFI::AbstractMemory
-     *
-     * A Buffer is a function argument type. It should be use with functions playing with C arrays.
-     */
-    BufferClass = rb_define_class_under(moduleFFI, "Buffer", ffi_AbstractMemory);
-
-    /*
-     * Document-variable: FFI::Buffer
-     */
-    rb_global_variable(&BufferClass);
-    rb_define_alloc_func(BufferClass, buffer_allocate);
-
-    /*
-     * Document-method: alloc_inout
-     * call-seq: alloc_inout(*args)
-     * Create a new Buffer for in and out arguments (alias : <i>new_inout</i>).
-     */
-    rb_define_singleton_method(BufferClass, "alloc_inout", buffer_alloc_inout, -1);
-    /*
-     * Document-method: alloc_out
-     * call-seq: alloc_out(*args)
-     * Create a new Buffer for out arguments (alias : <i>new_out</i>).
-     */
-    rb_define_singleton_method(BufferClass, "alloc_out", buffer_alloc_inout, -1);
-    /*
-     * Document-method: alloc_in
-     * call-seq: alloc_in(*args)
-     * Create a new Buffer for in arguments (alias : <i>new_in</i>).
-     */
-    rb_define_singleton_method(BufferClass, "alloc_in", buffer_alloc_inout, -1);
-    rb_define_alias(rb_singleton_class(BufferClass), "new_in", "alloc_in");
-    rb_define_alias(rb_singleton_class(BufferClass), "new_out", "alloc_out");
-    rb_define_alias(rb_singleton_class(BufferClass), "new_inout", "alloc_inout");
-    
-    rb_define_method(BufferClass, "initialize", buffer_initialize, -1);
-    rb_define_method(BufferClass, "initialize_copy", buffer_initialize_copy, 1);
-    rb_define_method(BufferClass, "order", buffer_order, -1);
-    rb_define_method(BufferClass, "inspect", buffer_inspect, 0);
-    rb_define_alias(BufferClass, "length", "total");
-    rb_define_method(BufferClass, "+", buffer_plus, 1);
-    rb_define_method(BufferClass, "slice", buffer_slice, 2);
-}
-

data/vendor/bundle/ruby/2.6.0/gems/ffi-1.13.1/ext/ffi_c/Call.c

@@ -1,493 +0,0 @@
-/*
- * Copyright (c) 2009, Wayne Meissner
- * Copyright (c) 2009, Luc Heinrich <luc@honk-honk.com>
- * Copyright (c) 2009, Mike Dalessio <mike.dalessio@gmail.com>
- * Copyright (c) 2009, Aman Gupta.
- * Copyright (c) 2008-2013, Ruby FFI project contributors
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- *     * Redistributions of source code must retain the above copyright
- *       notice, this list of conditions and the following disclaimer.
- *     * Redistributions in binary form must reproduce the above copyright
- *       notice, this list of conditions and the following disclaimer in the
- *       documentation and/or other materials provided with the distribution.
- *     * Neither the name of the Ruby FFI project nor the
- *       names of its contributors may be used to endorse or promote products
- *       derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-#ifndef _MSC_VER
-#include <sys/param.h>
-#endif
-#include <sys/types.h>
-#include <stdio.h>
-#ifndef _MSC_VER
-# include <stdint.h>
-# include <stdbool.h>
-#else
-# include "win32/stdbool.h"
-# include "win32/stdint.h"
-#endif
-#include <errno.h>
-#include <ruby.h>
-#include <ruby/thread.h>
-#if defined(HAVE_NATIVETHREAD) && !defined(_WIN32)
-#  include <signal.h>
-#  include <pthread.h>
-#endif
-#include <ffi.h>
-#include "extconf.h"
-#include "rbffi.h"
-#include "compat.h"
-#include "AbstractMemory.h"
-#include "Pointer.h"
-#include "Struct.h"
-#include "Function.h"
-#include "Type.h"
-#include "LastError.h"
-#include "Call.h"
-#include "MappedType.h"
-#include "Thread.h"
-#include "LongDouble.h"
-
-#ifdef USE_RAW
-#  ifndef __i386__
-#    error "RAW argument packing only supported on i386"
-#  endif
-
-#define INT8_ADJ (4)
-#define INT16_ADJ (4)
-#define INT32_ADJ (4)
-#define INT64_ADJ (8)
-#define LONG_ADJ (sizeof(long))
-#define FLOAT32_ADJ (4)
-#define FLOAT64_ADJ (8)
-#define ADDRESS_ADJ (sizeof(void *))
-#define LONGDOUBLE_ADJ (ffi_type_longdouble.alignment)
-
-#endif /* USE_RAW */
-
-#ifdef USE_RAW
-#  define ADJ(p, a) ((p) = (FFIStorage*) (((char *) p) + a##_ADJ))
-#else
-#  define ADJ(p, a) (++(p))
-#endif
-
-static void* callback_param(VALUE proc, VALUE cbinfo);
-static inline void* getPointer(VALUE value, int type);
-
-static ID id_to_ptr, id_map_symbol, id_to_native;
-
-void
-rbffi_SetupCallParams(int argc, VALUE* argv, int paramCount, Type** paramTypes,
-        FFIStorage* paramStorage, void** ffiValues,
-        VALUE* callbackParameters, int callbackCount, VALUE enums)
-{
-    VALUE callbackProc = Qnil;
-    FFIStorage* param = &paramStorage[0];
-    int i, argidx, cbidx, argCount;
-
-    if (unlikely(paramCount != -1 && paramCount != argc)) {
-        if (argc == (paramCount - 1) && callbackCount == 1 && rb_block_given_p()) {
-            callbackProc = rb_block_proc();
-        } else {
-            rb_raise(rb_eArgError, "wrong number of arguments (%d for %d)", argc, paramCount);
-        }
-    }
-
-    argCount = paramCount != -1 ? paramCount : argc;
-
-    for (i = 0, argidx = 0, cbidx = 0; i < argCount; ++i) {
-        Type* paramType = paramTypes[i];
-        int type;
-
-
-        if (unlikely(paramType->nativeType == NATIVE_MAPPED)) {
-            VALUE values[] = { argv[argidx], Qnil };
-            argv[argidx] = rb_funcall2(((MappedType *) paramType)->rbConverter, id_to_native, 2, values);
-            paramType = ((MappedType *) paramType)->type;
-        }
-
-        type = argidx < argc ? TYPE(argv[argidx]) : T_NONE;
-        ffiValues[i] = param;
-
-        switch (paramType->nativeType) {
-
-            case NATIVE_INT8:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->s8 = NUM2INT(value);
-                } else {
-                    param->s8 = NUM2INT(argv[argidx]);
-                }
-
-                ++argidx;
-                ADJ(param, INT8);
-                break;
-
-            case NATIVE_INT16:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->s16 = NUM2INT(value);
-
-                } else {
-                    param->s16 = NUM2INT(argv[argidx]);
-                }
-
-                ++argidx;
-                ADJ(param, INT16);
-                break;
-
-            case NATIVE_INT32:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->s32 = NUM2INT(value);
-
-                } else {
-                    param->s32 = NUM2INT(argv[argidx]);
-                }
-
-                ++argidx;
-                ADJ(param, INT32);
-                break;
-
-            case NATIVE_BOOL:
-                if (type != T_TRUE && type != T_FALSE) {
-                    rb_raise(rb_eTypeError, "wrong argument type  (expected a boolean parameter)");
-                }
-                param->s8 = argv[argidx++] == Qtrue;
-                ADJ(param, INT8);
-                break;
-
-            case NATIVE_UINT8:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->u8 = NUM2UINT(value);
-                } else {
-                    param->u8 = NUM2UINT(argv[argidx]);
-                }
-
-                ADJ(param, INT8);
-                ++argidx;
-                break;
-
-            case NATIVE_UINT16:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->u16 = NUM2UINT(value);
-                } else {
-                    param->u16 = NUM2UINT(argv[argidx]);
-                }
-
-                ADJ(param, INT16);
-                ++argidx;
-                break;
-
-            case NATIVE_UINT32:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->u32 = NUM2UINT(value);
-                } else {
-                    param->u32 = NUM2UINT(argv[argidx]);
-                }
-
-                ADJ(param, INT32);
-                ++argidx;
-                break;
-
-            case NATIVE_INT64:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->i64 = NUM2LL(value);
-                } else {
-                    param->i64 = NUM2LL(argv[argidx]);
-                }
-
-                ADJ(param, INT64);
-                ++argidx;
-                break;
-
-            case NATIVE_UINT64:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->u64 = NUM2ULL(value);
-                } else {
-                    param->u64 = NUM2ULL(argv[argidx]);
-                }
-
-                ADJ(param, INT64);
-                ++argidx;
-                break;
-
-            case NATIVE_LONG:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    *(ffi_sarg *) param = NUM2LONG(value);
-                } else {
-                    *(ffi_sarg *) param = NUM2LONG(argv[argidx]);
-                }
-
-                ADJ(param, LONG);
-                ++argidx;
-                break;
-
-            case NATIVE_ULONG:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    *(ffi_arg *) param = NUM2ULONG(value);
-                } else {
-                    *(ffi_arg *) param = NUM2ULONG(argv[argidx]);
-                }
-
-                ADJ(param, LONG);
-                ++argidx;
-                break;
-
-            case NATIVE_FLOAT32:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->f32 = (float) NUM2DBL(value);
-                } else {
-                    param->f32 = (float) NUM2DBL(argv[argidx]);
-                }
-
-                ADJ(param, FLOAT32);
-                ++argidx;
-                break;
-
-            case NATIVE_FLOAT64:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->f64 = NUM2DBL(value);
-                } else {
-                    param->f64 = NUM2DBL(argv[argidx]);
-                }
-
-                ADJ(param, FLOAT64);
-                ++argidx;
-                break;
-
-            case NATIVE_LONGDOUBLE:
-                if (unlikely(type == T_SYMBOL && enums != Qnil)) {
-                    VALUE value = rb_funcall(enums, id_map_symbol, 1, argv[argidx]);
-                    param->ld = rbffi_num2longdouble(value);
-                } else {
-                    param->ld = rbffi_num2longdouble(argv[argidx]);
-                }
-
-                ADJ(param, LONGDOUBLE);
-                ++argidx;
-                break;
-
-
-            case NATIVE_STRING:
-                if (type == T_NIL) {
-                    param->ptr = NULL;
-
-                } else {
-                    param->ptr = StringValueCStr(argv[argidx]);
-                }
-
-                ADJ(param, ADDRESS);
-                ++argidx;
-                break;
-
-            case NATIVE_POINTER:
-            case NATIVE_BUFFER_IN:
-            case NATIVE_BUFFER_OUT:
-            case NATIVE_BUFFER_INOUT:
-                param->ptr = getPointer(argv[argidx++], type);
-                ADJ(param, ADDRESS);
-                break;
-
-
-            case NATIVE_FUNCTION:
-            case NATIVE_CALLBACK:
-                if (callbackProc != Qnil) {
-                    param->ptr = callback_param(callbackProc, callbackParameters[cbidx++]);
-                } else {
-                    param->ptr = callback_param(argv[argidx], callbackParameters[cbidx++]);
-                    ++argidx;
-                }
-                ADJ(param, ADDRESS);
-                break;
-
-            case NATIVE_STRUCT:
-                ffiValues[i] = getPointer(argv[argidx++], type);
-                break;
-
-            default:
-                rb_raise(rb_eArgError, "Invalid parameter type: %d", paramType->nativeType);
-        }
-    }
-}
-
-static void *
-call_blocking_function(void* data)
-{
-    rbffi_blocking_call_t* b = (rbffi_blocking_call_t *) data;
-    ffi_call(&b->cif, FFI_FN(b->function), b->retval, b->ffiValues);
-
-    return NULL;
-}
-
-VALUE
-rbffi_do_blocking_call(VALUE data)
-{
-    rb_thread_call_without_gvl(call_blocking_function, (void*)data, (rb_unblock_function_t *) -1, NULL);
-
-    return Qnil;
-}
-
-VALUE
-rbffi_save_frame_exception(VALUE data, VALUE exc)
-{
-    rbffi_frame_t* frame = (rbffi_frame_t *) data;
-    frame->exc = exc;
-    return Qnil;
-}
-
-VALUE
-rbffi_CallFunction(int argc, VALUE* argv, void* function, FunctionType* fnInfo)
-{
-    void* retval;
-    void** ffiValues;
-    FFIStorage* params;
-    VALUE rbReturnValue;
-    rbffi_frame_t frame = { 0 };
-
-    retval = alloca(MAX(fnInfo->ffi_cif.rtype->size, FFI_SIZEOF_ARG));
-
-    if (unlikely(fnInfo->blocking)) {
-        rbffi_blocking_call_t* bc;
-
-        /* allocate information passed to the blocking function on the stack */
-        ffiValues = ALLOCA_N(void *, fnInfo->parameterCount);
-        params = ALLOCA_N(FFIStorage, fnInfo->parameterCount);
-        bc = ALLOCA_N(rbffi_blocking_call_t, 1);
-        bc->retval = retval;
-        bc->cif = fnInfo->ffi_cif;
-        bc->function = function;
-        bc->ffiValues = ffiValues;
-        bc->params = params;
-        bc->frame = &frame;
-
-        rbffi_SetupCallParams(argc, argv,
-            fnInfo->parameterCount, fnInfo->parameterTypes, params, ffiValues,
-            fnInfo->callbackParameters, fnInfo->callbackCount, fnInfo->rbEnums);
-
-        rbffi_frame_push(&frame);
-        rb_rescue2(rbffi_do_blocking_call, (VALUE) bc, rbffi_save_frame_exception, (VALUE) &frame, rb_eException, (VALUE) 0);
-        rbffi_frame_pop(&frame);
-
-    } else {
-
-        ffiValues = ALLOCA_N(void *, fnInfo->parameterCount);
-        params = ALLOCA_N(FFIStorage, fnInfo->parameterCount);
-
-        rbffi_SetupCallParams(argc, argv,
-            fnInfo->parameterCount, fnInfo->parameterTypes, params, ffiValues,
-            fnInfo->callbackParameters, fnInfo->callbackCount, fnInfo->rbEnums);
-
-        rbffi_frame_push(&frame);
-        ffi_call(&fnInfo->ffi_cif, FFI_FN(function), retval, ffiValues);
-        rbffi_frame_pop(&frame);
-    }
-
-    if (unlikely(!fnInfo->ignoreErrno)) {
-        rbffi_save_errno();
-    }
-
-    if (RTEST(frame.exc) && frame.exc != Qnil) {
-        rb_exc_raise(frame.exc);
-    }
-
-    RB_GC_GUARD(rbReturnValue) = rbffi_NativeValue_ToRuby(fnInfo->returnType, fnInfo->rbReturnType, retval);
-    RB_GC_GUARD(fnInfo->rbReturnType);
-
-    return rbReturnValue;
-}
-
-static inline void*
-getPointer(VALUE value, int type)
-{
-    if (likely(type == T_DATA && rb_obj_is_kind_of(value, rbffi_AbstractMemoryClass))) {
-
-        return ((AbstractMemory *) DATA_PTR(value))->address;
-
-    } else if (type == T_DATA && rb_obj_is_kind_of(value, rbffi_StructClass)) {
-
-        AbstractMemory* memory = ((Struct *) DATA_PTR(value))->pointer;
-        return memory != NULL ? memory->address : NULL;
-
-    } else if (type == T_STRING) {
-
-        return StringValuePtr(value);
-
-    } else if (type == T_NIL) {
-
-        return NULL;
-
-    } else if (rb_respond_to(value, id_to_ptr)) {
-
-        VALUE ptr = rb_funcall2(value, id_to_ptr, 0, NULL);
-        if (rb_obj_is_kind_of(ptr, rbffi_AbstractMemoryClass) && TYPE(ptr) == T_DATA) {
-            return ((AbstractMemory *) DATA_PTR(ptr))->address;
-        }
-        rb_raise(rb_eArgError, "to_ptr returned an invalid pointer");
-    }
-
-    rb_raise(rb_eArgError, ":pointer argument is not a valid pointer");
-    return NULL;
-}
-
-Invoker
-rbffi_GetInvoker(FunctionType *fnInfo)
-{
-    return rbffi_CallFunction;
-}
-
-
-static void*
-callback_param(VALUE proc, VALUE cbInfo)
-{
-    VALUE callback ;
-    if (unlikely(proc == Qnil)) {
-        return NULL ;
-    }
-
-    /* Handle Function pointers here */
-    if (rb_obj_is_kind_of(proc, rbffi_FunctionClass)) {
-        AbstractMemory* ptr;
-        Data_Get_Struct(proc, AbstractMemory, ptr);
-        return ptr->address;
-    }
-
-    callback = rbffi_Function_ForProc(cbInfo, proc);
-    RB_GC_GUARD(callback);
-
-    return ((AbstractMemory *) DATA_PTR(callback))->address;
-}
-
-
-void
-rbffi_Call_Init(VALUE moduleFFI)
-{
-    id_to_ptr = rb_intern("to_ptr");
-    id_to_native = rb_intern("to_native");
-    id_map_symbol = rb_intern("__map_symbol");
-}
-