ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #237 from tschwinge/libffi_feature_test

Browse Source 
Simplify/fix libffi_feature_test
This commit is contained in:
Tom Tromey
2016-05-23 09:58:51 -06:00
parent 5d0365c605 c884551781
commit 02089a1b5c
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
testsuite/lib/libffi.exp
View File

@@ -225,20 +225,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 $lines end] return [string match "" $lines]
return [regexp -- "xyzzy" $last]
} }
# Utility routines. # Utility routines.