[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.
This commit is contained in:
Tom de Vries 2023-04-24 14:48:06 +02:00
parent 6946d29241
commit f355e1e44e

View file

@ -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] \