40 lines
1.2 KiB
Diff
40 lines
1.2 KiB
Diff
From f3a7b8d3d63005e9e0b680688d0cde0e5d4e1de9 Mon Sep 17 00:00:00 2001
|
|
From: Tom de Vries <tdevries@suse.de>
|
|
Date: Mon, 24 Apr 2023 14:48:06 +0200
|
|
Subject: [PATCH 7/9] [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 | 3 ++-
|
|
1 file changed, 2 insertions(+), 1 deletion(-)
|
|
|
|
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp b/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp
|
|
index 397cb38ceef..6e4b570c86d 100644
|
|
--- a/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp
|
|
+++ b/gdb/testsuite/gdb.dwarf2/dw2-abs-hi-pc.exp
|
|
@@ -26,7 +26,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] \
|
|
--
|
|
2.35.3
|
|
|