ffi 1.9.21 → 1.9.22

data/ext/ffi_c/ClosurePool.c

@@ -1,283 +0,0 @@
-/*
- * Copyright (c) 2009, 2010 Wayne Meissner
- * 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>
-#if defined(__CYGWIN__) || !defined(_WIN32)
-#  include <sys/mman.h>
-#endif
-#include <stdio.h>
-#ifndef _MSC_VER
-# include <stdint.h>
-# include <stdbool.h>
-#else
-# include "win32/stdbool.h"
-# include "win32/stdint.h"
-#endif
-#if defined(__CYGWIN__) || !defined(_WIN32)
-#  include <unistd.h>
-#else
-#  include <winsock2.h>
-#  define _WINSOCKAPI_
-#  include <windows.h>
-#endif
-#include <errno.h>
-#include <ruby.h>
-
-#if defined(_MSC_VER) && !defined(INT8_MIN)
-#  include "win32/stdint.h"
-#endif
-#include <ffi.h>
-#include "rbffi.h"
-#include "compat.h"
-
-#include "Function.h"
-#include "Types.h"
-#include "Type.h"
-#include "LastError.h"
-#include "Call.h"
-
-#include "ClosurePool.h"
-
-
-#ifndef roundup
-#  define roundup(x, y)   ((((x)+((y)-1))/(y))*(y))
-#endif
-#ifdef _WIN32
-  typedef char* caddr_t;
-#endif
-
-typedef struct Memory {
-    void* code;
-    void* data;
-    struct Memory* next;
-} Memory;
-
-struct ClosurePool_ {
-    void* ctx;
-    int closureSize;
-    bool (*prep)(void* ctx, void *code, Closure* closure, char* errbuf, size_t errbufsize);
-    struct Memory* blocks; /* Keeps track of all the allocated memory for this pool */
-    Closure* list;
-    long refcnt;
-};
-
-static long pageSize;
-
-static void* allocatePage(void);
-static bool freePage(void *);
-static bool protectPage(void *);
-
-ClosurePool*
-rbffi_ClosurePool_New(int closureSize, 
-        bool (*prep)(void* ctx, void *code, Closure* closure, char* errbuf, size_t errbufsize),
-        void* ctx)
-{
-    ClosurePool* pool;
-
-    pool = xcalloc(1, sizeof(*pool));
-    pool->closureSize = closureSize;
-    pool->ctx = ctx;
-    pool->prep = prep;
-    pool->refcnt = 1;
-    
-    return pool;
-}
-
-void
-cleanup_closure_pool(ClosurePool* pool)
-{
-    Memory* memory;
-    
-    for (memory = pool->blocks; memory != NULL; ) {
-        Memory* next = memory->next;
-        freePage(memory->code);
-        free(memory->data);
-        free(memory);
-        memory = next;
-    }
-    xfree(pool);
-}
-
-void
-rbffi_ClosurePool_Free(ClosurePool* pool)
-{
-    if (pool != NULL) {
-        long refcnt = --(pool->refcnt);
-        if (refcnt == 0) {
-            cleanup_closure_pool(pool);
-        }
-    }
-}
-
-Closure*
-rbffi_Closure_Alloc(ClosurePool* pool)
-{
-    Closure *list = NULL;
-    Memory* block = NULL;
-    caddr_t code = NULL;
-    char errmsg[256];
-    int nclosures;
-    long trampolineSize;
-    int i;
-
-    if (pool->list != NULL) {
-        Closure* closure = pool->list;
-        pool->list = pool->list->next;
-        pool->refcnt++;
-    
-        return closure;
-    }
-
-    trampolineSize = roundup(pool->closureSize, 8);
-    nclosures = (int) (pageSize / trampolineSize);
-    block = calloc(1, sizeof(*block));
-    list = calloc(nclosures, sizeof(*list));
-    code = allocatePage();
-    
-    if (block == NULL || list == NULL || code == NULL) {
-        snprintf(errmsg, sizeof(errmsg), "failed to allocate a page. errno=%d (%s)", errno, strerror(errno));
-        goto error;
-    }
-    
-    for (i = 0; i < nclosures; ++i) {
-        Closure* closure = &list[i];
-        closure->next = &list[i + 1];
-        closure->pool = pool;
-        closure->code = (code + (i * trampolineSize));
-
-        if (!(*pool->prep)(pool->ctx, closure->code, closure, errmsg, sizeof(errmsg))) {
-            goto error;
-        }
-    }
-
-    if (!protectPage(code)) {
-        goto error;
-    }
-
-    /* Track the allocated page + Closure memory area */
-    block->data = list;
-    block->code = code;
-    block->next = pool->blocks;
-    pool->blocks = block;
-
-    /* Thread the new block onto the free list, apart from the first one. */
-    list[nclosures - 1].next = pool->list;
-    pool->list = list->next;
-    pool->refcnt++;
-
-    /* Use the first one as the new handle */
-    return list;
-
-error:
-    free(block);
-    free(list);
-    if (code != NULL) {
-        freePage(code);
-    }
-    
-
-    rb_raise(rb_eRuntimeError, "%s", errmsg);
-    return NULL;
-}
-
-void
-rbffi_Closure_Free(Closure* closure)
-{
-    if (closure != NULL) {
-        ClosurePool* pool = closure->pool;
-        long refcnt;
-        /* Just push it on the front of the free list */
-        closure->next = pool->list;
-        pool->list = closure;
-        refcnt = --(pool->refcnt);
-        if (refcnt == 0) {
-            cleanup_closure_pool(pool);
-        }
-    }
-}
-
-void*
-rbffi_Closure_CodeAddress(Closure* handle)
-{
-    return handle->code;
-}
-
-
-static long
-getPageSize()
-{
-#if !defined(__CYGWIN__) && (defined(_WIN32) || defined(__WIN32__))
-    SYSTEM_INFO si;
-    GetSystemInfo(&si);
-    return si.dwPageSize;
-#else
-    return sysconf(_SC_PAGESIZE);
-#endif
-}
-
-static void*
-allocatePage(void)
-{
-#if !defined(__CYGWIN__) && (defined(_WIN32) || defined(__WIN32__))
-    return VirtualAlloc(NULL, pageSize, MEM_COMMIT | MEM_RESERVE, PAGE_READWRITE);
-#else
-    caddr_t page = mmap(NULL, pageSize, PROT_READ | PROT_WRITE, MAP_ANON | MAP_PRIVATE, -1, 0);
-    return (page != (caddr_t) -1) ? page : NULL;
-#endif
-}
-
-static bool
-freePage(void *addr)
-{
-#if !defined(__CYGWIN__) && (defined(_WIN32) || defined(__WIN32__))
-    return VirtualFree(addr, 0, MEM_RELEASE);
-#else
-    return munmap(addr, pageSize) == 0;
-#endif
-}
-
-static bool
-protectPage(void* page)
-{
-#if !defined(__CYGWIN__) && (defined(_WIN32) || defined(__WIN32__))
-    DWORD oldProtect;
-    return VirtualProtect(page, pageSize, PAGE_EXECUTE_READ, &oldProtect);
-#else
-    return mprotect(page, pageSize, PROT_READ | PROT_EXEC) == 0;
-#endif
-}
-
-void
-rbffi_ClosurePool_Init(VALUE module)
-{
-    pageSize = getPageSize();
-}
-

data/gen/Rakefile

@@ -1,30 +0,0 @@
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', 'lib')
-require 'fileutils'
-require 'ffi'
-require 'ffi/platform'
-require 'ffi/tools/types_generator'
-types_conf = File.expand_path(File.join(FFI::Platform::CONF_DIR, 'types.conf'))
-
-logfile = File.join(File.dirname(__FILE__), 'log')
-
-file types_conf do |task|
-  options = {}
-  FileUtils.mkdir_p(File.dirname(task.name), { :mode => 0755 })
-  File.open(task.name, File::CREAT|File::TRUNC|File::RDWR, 0644) do |f|
-    f.puts FFI::TypesGenerator.generate(options)
-  end
-  File.open(logfile, 'w') do |log|
-    log.puts(types_conf)
-  end
-end
-
-task :default => types_conf do
-end
-
-task :clean do
-  File.readlines(logfile).each do |file|
-    file.strip!
-    rm_f file
-  end
-  rm_f logfile
-end

data/libtest/Benchmark.c

@@ -1,52 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner. All rights reserved.
- *
- * For licensing, see LICENSE.SPECS
- */
-#include <sys/types.h>
-#include <stdint.h>
-
-void returnVoid() {
-    
-}
-
-void returnVoidI(int arg) {
-    
-}
-int returnInt() {
-    return 0;
-}
-
-int returnIntI(int arg) {
-    return arg;
-}
-
-typedef int8_t s8;
-typedef uint8_t u8;
-typedef int16_t s16;
-typedef uint16_t u16;
-typedef int32_t s32;
-typedef uint32_t u32;
-typedef int64_t s64;
-typedef uint64_t u64;
-typedef float f32;
-typedef double f64;
-typedef void v;
-typedef char* S;
-typedef void* P;
-
-#define B6(R, T1, T2, T3, T4, T5, T6) R bench_##T1##T2##T3##T4##T5##T6##_##R(T1 a1, T2 a2, T3 a3, T4 a4, T5 a5, T6 a6) {}
-#define B5(R, T1, T2, T3, T4, T5) R bench_##T1##T2##T3##T4##T5##_##R(T1 a1, T2 a2, T3 a3, T4 a4, T5 a5) {}
-#define B4(R, T1, T2, T3, T4) R bench_##T1##T2##T3##T4##_##R(T1 a1, T2 a2, T3 a3, T4 a4) {}
-#define B3(R, T1, T2, T3) R bench_##T1##T2##T3##_##R(T1 a1, T2 a2, T3 a3) {}
-#define B2(R, T1, T2) R bench_##T1##T2##_##R(T1 a1, T2 a2) {}
-#define B1(R, T1) R bench_##T1##_##R(T1 a1) {}
-#define BrV(T) B1(v, T); B2(v, T, T); B3(v, T, T, T); B4(v, T, T, T, T); B5(v, T, T, T, T, T); B6(v, T, T, T, T, T, T);
-BrV(u32);
-BrV(s32);
-BrV(s64);
-BrV(u64);
-BrV(f32);
-BrV(f64);
-BrV(S);
-BrV(P);

data/libtest/BoolTest.c

@@ -1,34 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner.
- * Copyright (c) 2009 Aman Gupta.
- *
- * All rights reserved.
- *
- * For licensing, see LICENSE.SPECS
- */
-
-#include <stdbool.h>
-
-bool
-bool_return_true()
-{
-    return true;
-}
-
-bool
-bool_return_false()
-{
-    return false;
-}
-
-bool
-bool_return_val(bool value)
-{
-    return value;
-}
-
-bool
-bool_reverse_val(bool value)
-{
-    return value ? false : true;
-}

data/libtest/BufferTest.c

@@ -1,31 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner. All rights reserved.
- *
- * For licensing, see LICENSE.SPECS
- */
-
-
-#define MEMSET(buf, value, size) do { \
-    int i; for (i = 0; i < size; ++i) buf[i] = value; \
-} while(0)
-#define MEMCPY(dst, src, size) do { \
-    int i; for (i = 0; i < size; ++i) dst[i] = src[i]; \
-} while(0)
-
-#define FILL(JTYPE, CTYPE) \
-void fill##JTYPE##Buffer(CTYPE* buf, CTYPE value, int size) { MEMSET(buf, value, size); }
-
-#define COPY(JTYPE, CTYPE) \
-void copy##JTYPE##Buffer(CTYPE* dst, CTYPE* src, int size) { MEMCPY(dst, src, size); }
-
-#define FUNC(JTYPE, CTYPE) \
-    FILL(JTYPE, CTYPE); \
-    COPY(JTYPE, CTYPE)
-            
-FUNC(Byte, char);
-FUNC(Short, short);
-FUNC(Int, int);
-FUNC(Long, long long);
-FUNC(Float, float);
-FUNC(Double, double);
-

data/libtest/ClosureTest.c

@@ -1,205 +0,0 @@
-/*
- * Copyright (c) 2007 Wayne Meissner. All rights reserved.
- *
- * For licensing, see LICENSE.SPECS
- */
-
-#include <stdlib.h>
-#include <stdbool.h>
-#ifndef _WIN32
-# include <pthread.h>
-#else
-# include <windows.h>
-# include <process.h>
-#endif
-
-#define R(T, rtype) rtype testClosureVr##T(rtype (*closure)(void)) { \
-    return closure != NULL ? (*closure)() : (rtype) 0; \
-}
-
-#define P(T, ptype) void testClosure##T##rV(void (*closure)(ptype), ptype a1) { \
-    if (closure != NULL) (*closure)(a1); \
-}
-
-void testClosureVrV(void (*closure)(void))
-{
-    (*closure)();
-}
-
-R(Z, bool);
-R(B, char);
-R(S, short);
-R(I, int);
-R(L, long);
-R(J, long long);
-R(LL, long long);
-R(F, float);
-R(D, double);
-R(P, const void*);
-
-
-P(Z, bool);
-P(B, char);
-P(S, short);
-P(I, int);
-P(L, long);
-P(J, long long);
-P(LL, long long);
-P(F, float);
-P(D, double);
-P(P, const void*);
-P(UL, unsigned long);
-
-#if defined(_WIN32) && !defined(_WIN64)
-bool __stdcall testClosureStdcall(long *a1, void __stdcall(*closure)(void *, long), long a2) { \
-    void* sp_pre;
-    void* sp_post;
-
-    asm volatile (" movl %%esp,%0" : "=g" (sp_pre));
-    (*closure)(a1, a2);
-    asm volatile (" movl %%esp,%0" : "=g" (sp_post));
-
-    /* %esp before pushing parameters on the stack and after the call returns
-     * should be equal, if both sides respects the stdcall convention */
-    return sp_pre == sp_post;
-}
-#endif
-
-void testOptionalClosureBrV(void (*closure)(char), char a1)
-{
-    if (closure) {
-        (*closure)(a1);
-    }
-}
-
-
-struct ThreadVrV {
-    void (*closure)(void);
-    int count;
-};
-
-static void *
-threadVrV(void *arg)
-{
-    struct ThreadVrV* t = (struct ThreadVrV *) arg;
-    
-    int i;
-    for (i = 0; i < t->count; i++) {
-        (*t->closure)();
-    }
-    
-    return NULL;
-}
-
-void testThreadedClosureVrV(void (*closure)(void), int n)
-{
-	struct ThreadVrV arg = {closure, n};
-#ifndef _WIN32
-    pthread_t t;
-    pthread_create(&t, NULL, threadVrV, &arg);
-    pthread_join(t, NULL);
-#else
-    HANDLE hThread = (HANDLE) _beginthread((void (*)(void *))threadVrV, 0, &arg);
-    WaitForSingleObject(hThread, INFINITE);	
-#endif
-}
-
-struct s8f32s32 {
-    char s8;
-    float f32;
-    int s32;
-};
-
-// Takes a struct argument
-void testClosureTrV(void (*closure)(struct s8f32s32 s), struct s8f32s32* s)
-{
-    (*closure)(*s);
-}
-
-// Returns a struct value
-struct s8f32s32 testClosureVrT(struct s8f32s32 (*closure)())
-{
-    return (*closure)();
-}
-
-typedef int (*returnTypeClosure_t)(int) ;
-typedef returnTypeClosure_t (*lookupClosure_t)();
-
-int testReturnsClosure(lookupClosure_t lookup, int val)
-{
-    returnTypeClosure_t func = lookup ? (*lookup)() : NULL;
-    return func ? (*func)(val) : 0;
-}
-
-static int multiplyByTwo(int value)
-{
-    return value * 2;
-}
-
-returnTypeClosure_t testReturnsFunctionPointer()
-{
-    return multiplyByTwo;
-}
-
-typedef int (*argumentClosure_t)(int);
-typedef int (*withArgumentClosure_t)(argumentClosure_t, int);
-
-int testArgumentClosure(withArgumentClosure_t closure_with, argumentClosure_t closure_arg, int val)
-{
-    return (*closure_with)(closure_arg, val);
-}
-
-
-//
-// These macros produce functions of the form:
-// testClosureBIrV(void (*closure)(char, int), char a1, int a2) {}
-//
-#define C2_(J1, J2, N1, N2) \
-void testClosure##J1##J2##rV(void (*closure)(N1, N2), N1 a1, N2 a2) \
-{ \
-    if (closure != NULL) (*closure)(a1, a2); \
-}
-
-#define C2(J, N) \
-    C2_(B, J, char, N) \
-    C2_(S, J, short, N) \
-    C2_(I, J, int, N) \
-    C2_(LL, J, long long, N) \
-    C2_(F, J, float, N) \
-    C2_(D, J, double, N) \
-
-
-C2(B, char);
-C2(S, short);
-C2(I, int);
-C2(LL, long long);
-C2(F, float);
-C2(D, double);
-
-#define C3_(J1, J2, J3, N1, N2, N3) \
-void testClosure##J1##J2##J3##rV(void (*closure)(N1, N2, N3), N1 a1, N2 a2, N3 a3) \
-{ \
-    (*closure)(a1, a2, a3); \
-}
-
-
-#define C3(J, N) \
-    C3_(B, J, B, char, N, char) \
-    C3_(S, J, S, short, N, short) \
-    C3_(I, J, I, int, N, int) \
-    C3_(LL, J, LL, long long, N, long long) \
-    C3_(F, J, F, float, N, float) \
-    C3_(D, J, D, double, N, double) \
-
-C3(B, char);
-C3(S, short);
-C3(I, int);
-C3(LL, long long);
-C3(F, float);
-C3(D, double);
-C3_(B, S, I, char, short, int);
-C3_(B, S, LL, char, short, long long);
-C3_(LL, S, B, long long, short, char);
-C3_(LL, B, S, long long, char, short);
-
-