diff options
| author | Tom de Vries <tdevries@suse.de> | 2023-04-24 14:48:06 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2023-04-24 14:48:06 +0200 |
| commit | f355e1e44e6b5ff9755892dfb326df370bce3354 (patch) | |
| tree | d3fa9f19be7f100b7308e1731cbdd5c9b9c64f58 | |
| parent | 6946d292412244e6da357cb1d10748e7e182c41a (diff) | |
| download | gdb-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.exp | 3 |
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] \ |