Fix tcl error
authorYao Qi <yao.qi@linaro.org>
Wed, 17 Jun 2015 16:03:03 +0000 (17:03 +0100)
committerYao Qi <yao.qi@linaro.org>
Wed, 17 Jun 2015 16:16:00 +0000 (17:16 +0100)
This patch fixes the following tcl error

Running ../../../binutils-gdb/gdb/testsuite/gdb.base/break-interp.exp ...
ERROR: (DejaGnu) proc "else" does not exist.
The error code is NONE
The info on the error is:
invalid command name "else"
    while executing
"::tcl_unknown else"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 ::tcl_unknown $args"

gdb/testsuite:

2015-06-17  Yao Qi  <yao.qi@linaro.org>

* lib/gdb.exp (get_build_id): Move braces and "else" to the same
line.

gdb/testsuite/ChangeLog
gdb/testsuite/lib/gdb.exp

index e526cb3bda1f6ffa1e8ebb4606f13403a6b993ca..65c55795c7a1cba0b0bd470097ae04417c3f52de 100644 (file)
@@ -1,3 +1,8 @@
+2015-06-17  Yao Qi  <yao.qi@linaro.org>
+
+       * lib/gdb.exp (get_build_id): Move braces and "else" to the same
+       line.
+
 2015-06-17  Patrick Palka  <patrick@parcs.ath.cx>
 
        * gdb.base/gdbinit-history.exp: Add test case to check that
index 21a4638c86f44e28a115eb1136170c42e98c6878..b5928c3dcb6d1a105c14d3019744b708903c6cdf 100644 (file)
@@ -4549,9 +4549,7 @@ proc get_build_id { filename } {
            return ""
        }
        return $data
-    }
-    else
-    {
+    } else {
        set tmp [standard_output_file "${filename}-tmp"]
        set objcopy_program [gdb_find_objcopy]
        set result [catch "exec $objcopy_program -j .note.gnu.build-id -O binary $filename $tmp" output]