# compiler is available but emits warnings. An unavailable
# compiler will fail this test anyway.
- if ([check_compiler_available]) {
- set basename "tmpdir/ctf_available[pid]"
- set src ${basename}.c
- set output ${basename}.s
- set f [open $src "w"]
- puts $f "int main() { return 0; }"
- close $f
- compile_one_cc $src $output "-gctf -S -c"
- remote_file host delete $src
- if {! [remote_file host exists $output] } {
+ set basename "tmpdir/ctf_available[pid]"
+ set src ${basename}.c
+ set output ${basename}.s
+ set f [open $src "w"]
+ puts $f "int main() { return 0; }"
+ close $f
+ compile_one_cc $src $output "-gctf -S -c"
+ remote_file host delete $src
+ if {! [remote_file host exists $output] } {
file delete $src
return 0
- }
- set status [remote_exec host fgrep ".ctf $output"]
- remote_file host delete $output
- file delete $src
- if { [lindex $status 0] == 0 } {
+ }
+ set status [remote_exec host fgrep ".ctf $output"]
+ remote_file host delete $output
+ file delete $src
+ if { [lindex $status 0] == 0 } {
set ctf_available_saved 1
- }
}
}
return $ctf_available_saved