Commit 7e5a3c96 by Thomas Schwinge Committed by Thomas Schwinge

[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
parent f3976023
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> 2016-03-17 Andreas Schwab <schwab@suse.de>
* src/aarch64/ffitarget.h (FFI_SIZEOF_JAVA_RAW) [__ILP32__]: * src/aarch64/ffitarget.h (FFI_SIZEOF_JAVA_RAW) [__ILP32__]:
......
...@@ -227,20 +227,21 @@ proc libffi_target_compile { source dest type options } { ...@@ -227,20 +227,21 @@ proc libffi_target_compile { source dest type options } {
# TEST should be a preprocessor condition. Returns true if it holds. # TEST should be a preprocessor condition. Returns true if it holds.
proc libffi_feature_test { test } { proc libffi_feature_test { test } {
set src "ffitest.c" set src "ffitest[pid].c"
set f [open $src "w"] set f [open $src "w"]
puts $f "#include <ffi.h>" puts $f "#include <ffi.h>"
puts $f $test puts $f $test
puts $f "xyzzy" puts $f "/* OK */"
puts $f "#else"
puts $f "# error Failed $test"
puts $f "#endif" puts $f "#endif"
close $f close $f
set lines [libffi_target_compile $src "" "preprocess" ""] set lines [libffi_target_compile $src /dev/null assembly ""]
file delete $src file delete $src
set last [lindex [split $lines] end] return [string match "" $lines]
return [regexp -- "xyzzy" $last]
} }
# Utility routines. # Utility routines.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment