File gdb-testsuite-don-t-use-string-cat-in-gdb.dwarf... of Package gdb

Overview Repositories Revisions Requests Users Attributes Meta

File gdb-testsuite-don-t-use-string-cat-in-gdb.dwarf2-dw2.patch of Package gdb (Revision 0e1446d5deba2dfaa46f5baa53b71df9)

Currently displaying revision 0e1446d5deba2dfaa46f5baa53b71df9 , Show latest

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

Places

File gdb-testsuite-don-t-use-string-cat-in-gdb.dwarf2-dw2.patch of Package gdb (Revision 0e1446d5deba2dfaa46f5baa53b71df9)

Places