ffi 1.17.2 → 1.17.4

data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_float.c

@@ -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"

data/ext/ffi_c/libffi/testsuite/libffi.complex/return_complex_longdouble.c

@@ -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"

data/ext/ffi_c/libffi/testsuite/libffi.go/aa-direct.c

@@ -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

data/ext/ffi_c/libffi/testsuite/libffi.go/closure1.c

@@ -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);
-}

data/ext/ffi_c/libffi/testsuite/libffi.go/ffitest.h

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

data/ext/ffi_c/libffi/testsuite/libffi.go/go.exp

@@ -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:

data/ext/ffi_c/libffi/testsuite/libffi.go/static-chain.h

@@ -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

data/lib/ffi/tools/types_generator.rb

@@ -1,137 +0,0 @@
-require 'tempfile'
-
-module FFI
-
-  # @private
-  class TypesGenerator
-
-    ##
-    # Maps different C types to the C type representations we use
-
-    TYPE_MAP = {
-               "char" => :char,
-        "signed char" => :char,
-      "__signed char" => :char,
-      "unsigned char" => :uchar,
-
-               "short"     => :short,
-        "signed short"     => :short,
-        "signed short int" => :short,
-      "unsigned short"     => :ushort,
-      "unsigned short int" => :ushort,
-
-               "int" => :int,
-        "signed int" => :int,
-      "unsigned int" => :uint,
-
-               "long" => :long,
-               "long int" => :long,
-        "signed long" => :long,
-        "signed long int" => :long,
-      "unsigned long" => :ulong,
-      "unsigned long int" => :ulong,
-      "long unsigned int" => :ulong,
-
-               "long long"     => :long_long,
-               "long long int" => :long_long,
-        "signed long long"     => :long_long,
-        "signed long long int" => :long_long,
-      "unsigned long long"     => :ulong_long,
-      "unsigned long long int" => :ulong_long,
-
-      "char *" => :string,
-      "void *" => :pointer,
-    }
-
-    def self.generate(options = {})
-      typedefs = nil
-      Tempfile.open 'ffi_types_generator' do |io|
-        io.puts <<-C
-#include <stdint.h>
-#include <stddef.h>
-#include <sys/types.h>
-#if !(defined(WIN32))
-#include <sys/socket.h>
-#include <netinet/in.h>
-#include <sys/resource.h>
-#endif
-        C
-
-        io.close
-        cc = ENV['CC'] || 'gcc'
-        cmd = "#{cc} -E -x c #{options[:cppflags]} -D_DARWIN_USE_64_BIT_INODE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -c"
-        if options[:input]
-          typedefs = File.read(options[:input])
-        elsif options[:remote]
-          typedefs = `ssh #{options[:remote]} #{cmd} - < #{io.path}`
-        else
-          typedefs = `#{cmd} #{io.path}`
-        end
-      end
-
-      code = []
-
-      typedefs.each_line do |type|
-        # We only care about single line typedef
-        next unless type =~ /typedef/
-        # Ignore unions or structs
-        next if type =~ /union|struct/
-
-        # strip off the starting typedef and ending ;
-        type.gsub!(/^(.*typedef\s*)/, "")
-        type.gsub!(/\s*;\s*$/, "")
-
-        parts = type.split(/\s+/)
-        def_type   = parts.join(" ")
-
-        # GCC does mapping with __attribute__ stuf, also see
-        # http://hal.cs.berkeley.edu/cil/cil016.html section 16.2.7.  Problem
-        # with this is that the __attribute__ stuff can either occur before or
-        # after the new type that is defined...
-        if type =~ /__attribute__/
-          if parts.last =~ /__QI__|__HI__|__SI__|__DI__|__word__/
-
-            # In this case, the new type is BEFORE __attribute__ we need to
-            # find the final_type as the type before the part that starts with
-            # __attribute__
-            final_type = ""
-            parts.each do |p|
-              break if p =~ /__attribute__/
-              final_type = p
-            end
-          else
-            final_type = parts.pop
-          end
-
-          def_type = case type
-                     when /__QI__/   then "char"
-                     when /__HI__/   then "short"
-                     when /__SI__/   then "int"
-                     when /__DI__/   then "long long"
-                     when /__word__/ then "long"
-                     else                 "int"
-                     end
-
-          def_type = "unsigned #{def_type}" if type =~ /unsigned/
-        else
-          final_type = parts.pop
-          def_type   = parts.join(" ")
-        end
-
-        if type = TYPE_MAP[def_type]
-          code << "rbx.platform.typedef.#{final_type} = #{type}"
-          TYPE_MAP[final_type] = TYPE_MAP[def_type]
-        else
-          # Fallback to an ordinary pointer if we don't know the type
-          if def_type =~ /\*/
-            code << "rbx.platform.typedef.#{final_type} = pointer"
-            TYPE_MAP[final_type] = :pointer
-          end
-        end
-      end
-
-      code.sort.join("\n")
-    end
-  end
-end
-

data/rakelib/ffi_gem_helper.rb

@@ -1,65 +0,0 @@
-require 'bundler'
-require 'bundler/gem_helper'
-
-class FfiGemHelper < Bundler::GemHelper
-  attr_accessor :cross_platforms
-
-  def install
-    super
-
-    task "release:guard_clean" => ["release:update_history"]
-
-    task "release:update_history" do
-      update_history
-    end
-
-    task "release:rubygem_push" => ["gem:native", "gem:java"]
-  end
-
-  def hfile
-    "CHANGELOG.md"
-  end
-
-  def headline
-    '([^\w]*)(\d+\.\d+\.\d+(?:\.\w+)?)([^\w]+)([2Y][0Y][0-9Y][0-9Y]-[0-1M][0-9M]-[0-3D][0-9D])([^\w]*|$)'
-  end
-
-  def reldate
-    Time.now.strftime("%Y-%m-%d")
-  end
-
-  def update_history
-    hin = File.read(hfile)
-    hout = hin.sub(/#{headline}/) do
-      raise "#{hfile} isn't up-to-date for version #{version}" unless $2==version.to_s
-      $1 + $2 + $3 + reldate + $5
-    end
-    if hout != hin
-      Bundler.ui.confirm "Updating #{hfile} for release."
-      File.write(hfile, hout)
-      Rake::FileUtilsExt.sh "git", "commit", hfile, "-m", "Update release date in #{hfile}"
-    end
-  end
-
-  def tag_version
-    Bundler.ui.confirm "Tag release with annotation:"
-    m = File.read(hfile).match(/(?<annotation>#{headline}.*?)#{headline}/m) || raise("Unable to find release notes in #{hfile}")
-    Bundler.ui.info(m[:annotation].gsub(/^/, "    "))
-    IO.popen(["git", "tag", "--file=-", version_tag], "w") do |fd|
-      fd.write m[:annotation]
-    end
-    yield if block_given?
-  rescue
-    Bundler.ui.error "Untagging #{version_tag} due to error."
-    sh_with_code "git tag -d #{version_tag}"
-    raise
-  end
-
-  def rubygem_push(path)
-    cross_platforms.each do |ruby_platform|
-      super(path.gsub(/\.gem\z/, "-#{ruby_platform}.gem"))
-    end
-    super(path.gsub(/\.gem\z/, "-java.gem"))
-    super(path)
-  end
-end