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

Backport trunk r236594:

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

From-SVN: r236596
This commit is contained in:
Thomas Schwinge 2016-05-23 17:03:08 +02:00 committed by Thomas Schwinge
parent 23a0749502
commit ad2162e3e4
2 changed files with 13 additions and 5 deletions

View File

@ -1,3 +1,10 @@
2016-05-23 Thomas Schwinge <thomas@codesourcery.com>
Backport trunk r236594:
PR libffi/65567
* testsuite/lib/libffi.exp (libffi_feature_test): Fix, and simply.
2015-12-04 Release Manager
* GCC 5.3.0 released.

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.