RubyGems - ffi - Versions diffs - 1.17.3 → 1.17.4 - Mend

@@ -1,10 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check return value complex.
-   Limitations:	none.
-   PR:		none.
-   Originator:	<vogt@linux.vnet.ibm.com>.  */
-/* { dg-do run } */
-#include "complex_defs_float.inc"
-#include "return_complex.inc"

@@ -1,10 +0,0 @@
-/* Area:	ffi_call
-   Purpose:	Check return value complex.
-   Limitations:	none.
-   PR:		none.
-   Originator:	<vogt@linux.vnet.ibm.com>.  */
-/* { dg-do run } */
-#include "complex_defs_longdouble.inc"
-#include "return_complex.inc"

@@ -1,34 +0,0 @@
-/* { dg-do run } */
-#include "static-chain.h"
-#if defined(__GNUC__) && !defined(__clang__) && defined(STATIC_CHAIN_REG)
-#include "ffitest.h"
-/* Blatent assumption here that the prologue doesn't clobber the
-   static chain for trivial functions.  If this is not true, don't
-   define STATIC_CHAIN_REG, and we'll test what we can via other tests.  */
-void *doit(void)
-{
-  register void *chain __asm__(STATIC_CHAIN_REG);
-  return chain;
-}
-int main()
-{
-  ffi_cif cif;
-  void *result;
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 0, &ffi_type_pointer, NULL) == FFI_OK);
-  ffi_call_go(&cif, FFI_FN(doit), &result, NULL, &result);
-  CHECK(result == &result);
-  return 0;
-}
-#else /* UNSUPPORTED */
-int main() { return 0; }
-#endif

@@ -1,28 +0,0 @@
-/* { dg-do run } */
-#include "ffitest.h"
-void doit(ffi_cif *cif, void *rvalue, void **avalue, void *closure)
-{
-  (void)cif;
-  (void)avalue;
-  *(void **)rvalue = closure;
-}
-typedef void * (*FN)(void);
-int main()
-{
-  ffi_cif cif;
-  ffi_go_closure cl;
-  void *result;
-  CHECK(ffi_prep_cif(&cif, ABI_NUM, 0, &ffi_type_pointer, NULL) == FFI_OK);
-  CHECK(ffi_prep_go_closure(&cl, &cif, doit) == FFI_OK);
-  ffi_call_go(&cif, FFI_FN(*(FN *)&cl), &result, NULL, &cl);
-  CHECK(result == &cl);
-  exit(0);
-}

@@ -1,36 +0,0 @@
-# Copyright (C) 2003, 2006, 2009, 2010, 2014 Free Software Foundation, Inc.
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; see the file COPYING3.  If not see
-# <http://www.gnu.org/licenses/>.
-dg-init
-libffi-init
-global srcdir subdir
-set tlist [lsort [glob -nocomplain -- $srcdir/$subdir/*.{c,cc}]]
-if { [libffi_feature_test "#ifdef FFI_GO_CLOSURES"] } {
-    run-many-tests $tlist ""
-} else {
-    foreach test $tlist {
-	unsupported "$test"
-    }
-}
-dg-finish
-# Local Variables:
-# tcl-indent-level:4
-# End:

@@ -1,19 +0,0 @@
-#ifdef __aarch64__
-# define STATIC_CHAIN_REG  "x18"
-#elif defined(__alpha__)
-# define STATIC_CHAIN_REG  "$1"
-#elif defined(__arm__)
-# define STATIC_CHAIN_REG  "ip"
-#elif defined(__sparc__)
-# if defined(__arch64__) || defined(__sparcv9)
-#  define STATIC_CHAIN_REG "g5"
-# else
-#  define STATIC_CHAIN_REG "g2"
-# endif
-#elif defined(__x86_64__)
-# define STATIC_CHAIN_REG  "r10"
-#elif defined(__i386__)
-# ifndef ABI_NUM
-#  define STATIC_CHAIN_REG  "ecx"	/* FFI_DEFAULT_ABI only */
-# endif
-#endif

@@ -1,74 +0,0 @@
-/* { dg-do run } */
-#include "ffitest.h"
-#include <pthread.h>
-#include <stdio.h>
-#include <stdlib.h>
-#define NUM_THREADS 20
-#if defined(_POSIX_BARRIERS) && _POSIX_BARRIERS > 0
-pthread_barrier_t barrier;
-#endif
-typedef float (*callback_fn)(float, float);
-void callback(ffi_cif *cif __UNUSED__, void *ret, void **args, void *userdata __UNUSED__) {
-    float a = *(float *)args[0];
-    float b = *(float *)args[1];
-    *(float *)ret = a / 2 + b / 2;
-}
-void *thread_func(void *arg) {
-#if defined(_POSIX_BARRIERS) && _POSIX_BARRIERS > 0
-    pthread_barrier_wait(&barrier);
-#endif
-    ffi_cif cif;
-    ffi_type *args[2] = { &ffi_type_float, &ffi_type_float };
-    if (ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 2, &ffi_type_float, args) != FFI_OK) {
-        fprintf(stderr, "ffi_prep_cif failed\n");
-        return NULL;
-    }
-    ffi_closure *closure = ffi_closure_alloc(sizeof(ffi_closure), (void **)&arg);
-    if (ffi_prep_closure_loc(closure, &cif, callback, NULL, arg) != FFI_OK) {
-        fprintf(stderr, "ffi_prep_closure_loc failed\n");
-        return NULL;
-    }
-    callback_fn fn = (callback_fn)arg;
-    (void) fn(4.0f, 6.0f);
-    ffi_closure_free(closure);
-    return NULL;
-}
-int main() {
-    pthread_t threads[NUM_THREADS];
-#if defined(_POSIX_BARRIERS) && _POSIX_BARRIERS > 0
-    pthread_barrier_init(&barrier, NULL, NUM_THREADS);
-#endif
-    for (int i = 0; i < NUM_THREADS; ++i) {
-        if (pthread_create(&threads[i], NULL, thread_func, NULL) != 0) {
-            perror("pthread_create");
-            exit(EXIT_FAILURE);
-        }
-    }
-    for (int i = 0; i < NUM_THREADS; ++i) {
-        pthread_join(threads[i], NULL);
-    }
-#if defined(_POSIX_BARRIERS) && _POSIX_BARRIERS > 0
-    pthread_barrier_destroy(&barrier);
-#endif
-    printf("Completed\n");
-    return 0;
-}

	@@ -1 +0,0 @@
1	- #include "../libffi.call/ffitest.h"

	@@ -1 +0,0 @@
1	- #include "../libffi.call/ffitest.h"

ffi 1.17.3 → 1.17.4