- Issue #8142: Update libffi to the 3.0.9 release.

-- Diese und die folgenden Zeilen werden ignoriert --

M    Misc/NEWS
A    Modules/_ctypes/libffi/m4
A    Modules/_ctypes/libffi/m4/ltsugar.m4
A    Modules/_ctypes/libffi/m4/libtool.m4
A    Modules/_ctypes/libffi/m4/ltversion.m4
A    Modules/_ctypes/libffi/m4/lt~obsolete.m4
A    Modules/_ctypes/libffi/m4/ltoptions.m4
A    Modules/_ctypes/libffi/ChangeLog.libffi
M    Modules/_ctypes/libffi/configure
M    Modules/_ctypes/libffi/Makefile.in
M    Modules/_ctypes/libffi/fficonfig.h.in
M    Modules/_ctypes/libffi/src/arm/sysv.S
M    Modules/_ctypes/libffi/src/powerpc/ffitarget.h
M    Modules/_ctypes/libffi/src/powerpc/aix.S
M    Modules/_ctypes/libffi/src/powerpc/ffi.c
M    Modules/_ctypes/libffi/src/powerpc/sysv.S
M    Modules/_ctypes/libffi/src/powerpc/ffi_darwin.c
M    Modules/_ctypes/libffi/src/powerpc/aix_closure.S
A    Modules/_ctypes/libffi/src/closures.c
D    Modules/_ctypes/libffi/src/darwin/ffitarget.h
M    Modules/_ctypes/libffi/src/sh64/ffi.c
M    Modules/_ctypes/libffi/src/sh64/sysv.S
M    Modules/_ctypes/libffi/src/x86/ffi64.c
M    Modules/_ctypes/libffi/src/x86/ffitarget.h
M    Modules/_ctypes/libffi/src/x86/win32.S
M    Modules/_ctypes/libffi/src/x86/darwin.S
M    Modules/_ctypes/libffi/src/x86/ffi.c
M    Modules/_ctypes/libffi/src/x86/sysv.S
A    Modules/_ctypes/libffi/src/x86/win64.S
M    Modules/_ctypes/libffi/src/x86/unix64.S
A    Modules/_ctypes/libffi/src/types.c
A    Modules/_ctypes/libffi/src/avr32
A    Modules/_ctypes/libffi/src/avr32/ffitarget.h
A    Modules/_ctypes/libffi/src/avr32/ffi.c
A    Modules/_ctypes/libffi/src/avr32/sysv.S
M    Modules/_ctypes/libffi/src/frv/ffi.c
M    Modules/_ctypes/libffi/src/s390/sysv.S
M    Modules/_ctypes/libffi/src/pa/ffi.c
A    Modules/_ctypes/libffi/src/raw_api.c
A    Modules/_ctypes/libffi/src/java_raw_api.c
A    Modules/_ctypes/libffi/src/debug.c
M    Modules/_ctypes/libffi/src/sparc/ffi.c
M    Modules/_ctypes/libffi/src/sparc/v8.S
M    Modules/_ctypes/libffi/src/mips/ffitarget.h
M    Modules/_ctypes/libffi/src/mips/n32.S
M    Modules/_ctypes/libffi/src/mips/o32.S
M    Modules/_ctypes/libffi/src/mips/ffi.c
A    Modules/_ctypes/libffi/src/dlmalloc.c
M    Modules/_ctypes/libffi/src/sh/ffi.c
M    Modules/_ctypes/libffi/src/sh/sysv.S
AM   Modules/_ctypes/libffi/depcomp
AM   Modules/_ctypes/libffi/compile
M    Modules/_ctypes/libffi/config.guess
AM   Modules/_ctypes/libffi/ltmain.sh
M    Modules/_ctypes/libffi/config.sub
AM   Modules/_ctypes/libffi/mdate-sh
M    Modules/_ctypes/libffi/configure.ac
A    Modules/_ctypes/libffi/doc
A    Modules/_ctypes/libffi/doc/libffi.texi
A    Modules/_ctypes/libffi/doc/stamp-vti
A    Modules/_ctypes/libffi/doc/libffi.info
A    Modules/_ctypes/libffi/doc/version.texi
A    Modules/_ctypes/libffi/texinfo.tex
A    Modules/_ctypes/libffi/man
A    Modules/_ctypes/libffi/man/ffi_call.3
A    Modules/_ctypes/libffi/man/Makefile.in
A    Modules/_ctypes/libffi/man/ffi.3
A    Modules/_ctypes/libffi/man/Makefile.am
A    Modules/_ctypes/libffi/man/ffi_prep_cif.3
A    Modules/_ctypes/libffi/ChangeLog.libgcj
M    Modules/_ctypes/libffi/LICENSE
M    Modules/_ctypes/libffi/include/ffi.h.in
M    Modules/_ctypes/libffi/include/Makefile.in
M    Modules/_ctypes/libffi/include/ffi_common.h
M    Modules/_ctypes/libffi/include/Makefile.am
A    Modules/_ctypes/libffi/libtool-version
A    Modules/_ctypes/libffi/ChangeLog
A    Modules/_ctypes/libffi/testsuite
A    Modules/_ctypes/libffi/testsuite/Makefile.in
A    Modules/_ctypes/libffi/testsuite/libffi.call
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_multi_ushort.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/stret_medium.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_uint16.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_longdouble_split2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_uc.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct3.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct5.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/err_bad_abi.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct3.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_7_1_byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct5.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_double.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct7.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_sl.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct7.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct9.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_sint.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct9.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_pointer.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/many_win32.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_20byte1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_multi_sshortchar.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_fl.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_sint64.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/many.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/strlen.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_3byte2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_ldl.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/stret_large.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_multi_schar.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_multi_uchar.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_9byte1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/err_bad_typedef.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_19byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_float.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_longdouble_split.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/problem1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_fl1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn3.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_dbl2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_sshort.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_fl3.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn5.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_double.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_2byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/promotion.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/float2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct10.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_ll1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_4byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/float4.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_6byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_longdouble.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/huge_struct.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_8byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_multi_sshort.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_uint32.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_sint16.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_double_va.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_sc.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/float.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_20byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_float.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_pointer_stack.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_5_1_byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct4.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_24byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct6.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct4.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_loc_fn0.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/struct8.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct6.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/testclosure.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/nested_struct8.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_64byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_ul.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_uint.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_dbls_struct.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/strlen_win32.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/pyobjc-tc.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/stret_large2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_multi_ushortchar.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_dbl.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_schar.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_uchar.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_uint64.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_longdouble.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_ulonglong.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_1_1byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_ll.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_3_1byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_12byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_4_1byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_3byte1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/ffitest.h
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_6_1_byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_16byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_18byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn0.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_9byte2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_longdouble_va.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_dbl1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_stdcall.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/return_fl2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/stret_medium2.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn4.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/negint.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_ushort.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/call.exp
A    Modules/_ctypes/libffi/testsuite/libffi.call/closure_fn6.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/float1.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/float3.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_5byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_7byte.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_pointer.c
A    Modules/_ctypes/libffi/testsuite/libffi.call/cls_align_sint32.c
A    Modules/_ctypes/libffi/testsuite/config
A    Modules/_ctypes/libffi/testsuite/config/default.exp
A    Modules/_ctypes/libffi/testsuite/lib
A    Modules/_ctypes/libffi/testsuite/lib/target-libpath.exp
A    Modules/_ctypes/libffi/testsuite/lib/wrapper.exp
A    Modules/_ctypes/libffi/testsuite/lib/libffi-dg.exp
A    Modules/_ctypes/libffi/testsuite/Makefile.am
A    Modules/_ctypes/libffi/testsuite/libffi.special
A    Modules/_ctypes/libffi/testsuite/libffi.special/unwindtest_ffi_call.cc
A    Modules/_ctypes/libffi/testsuite/libffi.special/unwindtest.cc
A    Modules/_ctypes/libffi/testsuite/libffi.special/special.exp
A    Modules/_ctypes/libffi/testsuite/libffi.special/ffitestcxx.h
M    Modules/_ctypes/libffi/README
A    Modules/_ctypes/libffi/libffi.pc.in
M    Modules/_ctypes/libffi/Makefile.am
M    Modules/_ctypes/libffi/missing
A    Modules/_ctypes/libffi/ChangeLog.v1
M    Modules/_ctypes/libffi/aclocal.m4
M    Modules/_ctypes/libffi.diff

1 files changed, 70 insertions, 0 deletions

diff --git a/Modules/_ctypes/libffi/testsuite/libffi.call/testclosure.c b/Modules/_ctypes/libffi/testsuite/libffi.call/testclosure.c
new file mode 100644
index 0000000000..161cc89179
--- /dev/null
+++ b/Modules/_ctypes/libffi/testsuite/libffi.call/testclosure.c
@@ -0,0 +1,70 @@
+/* Area:	closure_call
+   Purpose:	Check return value float.
+   Limitations:	none.
+   PR:		41908.
+   Originator:	<rfm@gnu.org> 20091102	 */
+
+/* { dg-do run } */
+#include "ffitest.h"
+
+typedef struct cls_struct_combined {
+  float a;
+  float b;
+  float c;
+  float d;
+} cls_struct_combined;
+
+void cls_struct_combined_fn(struct cls_struct_combined arg)
+{
+  printf("%g %g %g %g\n",
+	 arg.a, arg.b,
+	 arg.c, arg.d);
+  fflush(stdout);
+}
+
+static void
+cls_struct_combined_gn(ffi_cif* cif __UNUSED__, void* resp __UNUSED__,
+        void** args, void* userdata __UNUSED__)
+{
+  struct cls_struct_combined a0;
+
+  a0 = *(struct cls_struct_combined*)(args[0]);
+
+  cls_struct_combined_fn(a0);
+}
+
+
+int main (void)
+{
+  ffi_cif cif;
+  void *code;
+  ffi_closure *pcl = ffi_closure_alloc(sizeof(ffi_closure), &code);
+  ffi_type* cls_struct_fields0[5];
+  ffi_type cls_struct_type0;
+  ffi_type* dbl_arg_types[5];
+
+  cls_struct_type0.size = 0;
+  cls_struct_type0.alignment = 0;
+  cls_struct_type0.type = FFI_TYPE_STRUCT;
+  cls_struct_type0.elements = cls_struct_fields0;
+
+  struct cls_struct_combined g_dbl = {4.0, 5.0, 1.0, 8.0};
+
+  cls_struct_fields0[0] = &ffi_type_float;
+  cls_struct_fields0[1] = &ffi_type_float;
+  cls_struct_fields0[2] = &ffi_type_float;
+  cls_struct_fields0[3] = &ffi_type_float;
+  cls_struct_fields0[4] = NULL;
+
+  dbl_arg_types[0] = &cls_struct_type0;
+  dbl_arg_types[1] = NULL;
+
+  CHECK(ffi_prep_cif(&cif, FFI_DEFAULT_ABI, 1, &ffi_type_void,
+		     dbl_arg_types) == FFI_OK);
+
+  CHECK(ffi_prep_closure_loc(pcl, &cif, cls_struct_combined_gn, NULL, code) == FFI_OK);
+
+  ((void(*)(cls_struct_combined)) (code))(g_dbl);
+  /* { dg-output "4 5 1 8" } */
+  exit(0);
+}