mirror of git://gcc.gnu.org/git/gcc.git
[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:
parent
23a0749502
commit
ad2162e3e4
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Reference in New Issue