[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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-6-branch@236595 138bc75d-0d04-0410-961f-82ee72b054a4
This commit is contained in:
tschwinge 2016-05-23 15:00:41 +00:00
parent 34c79c86ab
commit eb4cfb9897
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.
2016-04-27 Release Manager
* GCC 6.1.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.