diff options
Diffstat (limited to 'gcc/testsuite/lib/objc.exp')
| -rw-r--r-- | gcc/testsuite/lib/objc.exp | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/testsuite/lib/objc.exp b/gcc/testsuite/lib/objc.exp index 5041b705e31..d016a379bb7 100644 --- a/gcc/testsuite/lib/objc.exp +++ b/gcc/testsuite/lib/objc.exp @@ -41,22 +41,22 @@ load_lib target-libpath.exp proc default_objc_version { } { global OBJC_UNDER_TEST - objc_init; + objc_init # ignore any arguments after the command set compiler [lindex $OBJC_UNDER_TEST 0] if ![is_remote host] { - set compiler_name [which $compiler]; + set compiler_name [which $compiler] } else { - set compiler_name $compiler; + set compiler_name $compiler } # verify that the compiler exists if { $compiler_name != 0 } then { set tmp [remote_exec host "$compiler -v"] - set status [lindex $tmp 0]; - set output [lindex $tmp 1]; + set status [lindex $tmp 0] + set output [lindex $tmp 1] regexp " version \[^\n\r\]*" $output version if { $status == 0 && [info exists version] } then { clone_output "$compiler_name $version\n" @@ -73,7 +73,7 @@ proc default_objc_version { } { # Call objc_version. We do it this way so we can override it if needed. # proc objc_version { } { - default_objc_version; + default_objc_version } # @@ -103,7 +103,7 @@ proc objc_init { args } { if ![info exists OBJC_UNDER_TEST] then { if [info exists TOOL_EXECUTABLE] { - set OBJC_UNDER_TEST $TOOL_EXECUTABLE; + set OBJC_UNDER_TEST $TOOL_EXECUTABLE } else { set OBJC_UNDER_TEST [find_gcc] } @@ -133,9 +133,9 @@ proc objc_init { args } { } proc objc_target_compile { source dest type options } { - global rootme; - global tmpdir; - global gluefile wrap_flags; + global rootme + global tmpdir + global gluefile wrap_flags global srcdir global OBJC_UNDER_TEST global TOOL_OPTIONS @@ -162,7 +162,7 @@ proc objc_target_compile { source dest type options } { # TOOL_OPTIONS must come first, so that it doesn't override testcase # specific options. if [info exists TOOL_OPTIONS] { - set options [concat "{additional_flags=$TOOL_OPTIONS}" $options]; + set options [concat "{additional_flags=$TOOL_OPTIONS}" $options] } # If we have built libobjc along with the compiler (which usually @@ -227,7 +227,7 @@ proc objc_fail { testcase cflags } { proc objc_finish { } { # The testing harness apparently requires this. - global errorInfo; + global errorInfo if [info exists errorInfo] then { unset errorInfo @@ -241,11 +241,11 @@ proc objc_finish { } { } proc objc_exit { } { - global gluefile; + global gluefile if [info exists gluefile] { - file_on_build delete $gluefile; - unset gluefile; + file_on_build delete $gluefile + unset gluefile } } |