[PR libffi/65567] libffi: Fix, and simply libffi_feature_test

libffi/
	PR libffi/65567
	* testsuite/lib/libffi.exp (libffi_feature_test): Fix, and simply.

From-SVN: r236594
This commit is contained in:
Thomas Schwinge 2016-05-23 16:54:04 +02:00 committed by Thomas Schwinge
parent f397602394
commit 7e5a3c96db
2 changed files with 11 additions and 5 deletions

View File

@ -1,3 +1,8 @@
2016-05-23 Thomas Schwinge <thomas@codesourcery.com>
PR libffi/65567
* testsuite/lib/libffi.exp (libffi_feature_test): Fix, and simply.
2016-03-17 Andreas Schwab <schwab@suse.de>
* src/aarch64/ffitarget.h (FFI_SIZEOF_JAVA_RAW) [__ILP32__]:

View File

@ -227,20 +227,21 @@ proc libffi_target_compile { source dest type options } {
# TEST should be a preprocessor condition. Returns true if it holds.
proc libffi_feature_test { test } {
set src "ffitest.c"
set src "ffitest[pid].c"
set f [open $src "w"]
puts $f "#include <ffi.h>"
puts $f $test
puts $f "xyzzy"
puts $f "/* OK */"
puts $f "#else"
puts $f "# error Failed $test"
puts $f "#endif"
close $f
set lines [libffi_target_compile $src "" "preprocess" ""]
set lines [libffi_target_compile $src /dev/null assembly ""]
file delete $src
set last [lindex [split $lines] end]
return [regexp -- "xyzzy" $last]
return [string match "" $lines]
}
# Utility routines.