[gdb/testsuite, tclint] Fix lib/jit-elf-helpers.exp

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 522b6eced6b16a688453409699c486e832ced9dc..fb3d9cf9d62ec80fe6081d341a55c99331ecb399 100644 (file)
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -43,7 +43,6 @@ exclude = [
 "gdb/testsuite/lib/gdbserver-support.exp",
 "gdb/testsuite/lib/gdb-utils.exp",
 "gdb/testsuite/lib/gen-perf-test.exp",
-"gdb/testsuite/lib/jit-elf-helpers.exp",
 "gdb/testsuite/lib/mi-support.exp",
 "gdb/testsuite/lib/objc.exp",
 "gdb/testsuite/lib/pascal.exp",

diff --git a/gdb/testsuite/lib/jit-elf-helpers.exp b/gdb/testsuite/lib/jit-elf-helpers.exp
index e5c328e0ed50e001bc7e27acb2f83f0cfc3508bf..1f0a0d28a315f8f20ee363314539de935628e310 100644 (file)
--- a/gdb/testsuite/lib/jit-elf-helpers.exp
+++ b/gdb/testsuite/lib/jit-elf-helpers.exp
@@ -91,7 +91,7 @@ proc compile_and_download_n_jit_so {jit_solib_basename jit_solib_srcfile \
        # do symbol renaming by munging on ELF symbol table, and that
        # wouldn't work for .debug sections.  Also, output for "info
        # function" changes when debug info is present.
-       set addr [format 0x%x [expr $jit_load_address + $jit_load_increment * [expr $i-1]]]
+       set addr [format 0x%x [expr {$jit_load_address + $jit_load_increment * ($i - 1)}]]
 
        # Use "text_segment=..." to ask the linker to relocate everything in the
        # compiled shared library against a fixed base address.  Combined