[gdb/testsuite] Don't use string cat in gdb.dwarf2/dw2-abs-hi-pc.exp
authorTom de Vries <tdevries@suse.de>
Mon, 24 Apr 2023 12:48:06 +0000 (14:48 +0200)
committerTom de Vries <tdevries@suse.de>
Mon, 24 Apr 2023 12:48:06 +0000 (14:48 +0200)
commitf355e1e44e6b5ff9755892dfb326df370bce3354
treed3fa9f19be7f100b7308e1731cbdd5c9b9c64f58
parent6946d292412244e6da357cb1d10748e7e182c41a
[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.
gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp