From 920467912a594a3e5af1d779487ffe3e5c550aef Mon Sep 17 00:00:00 2001 From: Yao Qi Date: Wed, 17 Jun 2015 17:03:03 +0100 Subject: [PATCH] Fix tcl error 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 * lib/gdb.exp (get_build_id): Move braces and "else" to the same line. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/lib/gdb.exp | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e526cb3bda1..65c55795c7a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-06-17 Yao Qi + + * lib/gdb.exp (get_build_id): Move braces and "else" to the same + line. + 2015-06-17 Patrick Palka * gdb.base/gdbinit-history.exp: Add test case to check that diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 21a4638c86f..b5928c3dcb6 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -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] -- 2.30.2