aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom de Vries <tdevries@suse.de>2023-04-24 14:48:06 +0200
committerTom de Vries <tdevries@suse.de>2023-04-24 14:48:06 +0200
commitf355e1e44e6b5ff9755892dfb326df370bce3354 (patch)
treed3fa9f19be7f100b7308e1731cbdd5c9b9c64f58
parent6946d292412244e6da357cb1d10748e7e182c41a (diff)
downloadgdb-f355e1e44e6b5ff9755892dfb326df370bce3354.zip
gdb-f355e1e44e6b5ff9755892dfb326df370bce3354.tar.gz
gdb-f355e1e44e6b5ff9755892dfb326df370bce3354.tar.bz2
[gdb/testsuite] Don't use string cat in gdb.dwarf2/dw2-abs-hi-pc.exp
Test-case gdb.dwarf2/dw2-abs-hi-pc.exp uses string cat: ... set sources [lmap i $sources { string cat "${srcdir}/${subdir}/" $i }] ... but that's only supported starting tcl 8.6. Fix this by using "expr" instead: ... set sources [lmap i $sources { expr { "$srcdir/$subdir/$i" } }] ... Tested on x86_64-linux.
-rw-r--r--gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp3
1 files changed, 2 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp b/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp
index 0868b69..2ea6a5c 100644
--- a/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp
+++ b/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp
@@ -24,7 +24,8 @@ set sources \
${testfile}.c \
${testfile}-hello.c \
${testfile}-world.c]
-set sources [lmap i $sources { string cat "${srcdir}/${subdir}/" $i }]
+set sources [lmap i $sources { expr { "$srcdir/$subdir/$i" } }]
+
lassign [function_range hello $sources] \
hello_start hello_len
lassign [function_range world $sources] \