This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Fix yet another regsub new syntax usage
- From: Pedro Alves <pedro at codesourcery dot com>
- To: gdb-patches at sourceware dot org
- Date: Wed, 17 Feb 2010 23:08:03 +0000
- Subject: Fix yet another regsub new syntax usage
Fixes:
ERROR: tcl error sourcing ../../../src/gdb/testsuite/gdb.base/sepdebug.exp.
ERROR: wrong # args: should be "regsub ?switches? exp string subSpec varName"
while executing
"regsub {^..} $data {\0/}"
(procedure "build_id_debug_filename_get" line 23)
Applied after confirming sepdebug.exp tests okay.
--
Pedro Alves
2010-02-17 Pedro Alves <pedro@codesourcery.com>
gdb/testsuite/
* lib/gdb.exp (build_id_debug_filename_get): Don't assume new
`regsub' syntax available.
---
gdb/testsuite/lib/gdb.exp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
Index: src/gdb/testsuite/lib/gdb.exp
===================================================================
--- src.orig/gdb/testsuite/lib/gdb.exp 2010-02-17 23:01:28.000000000 +0000
+++ src/gdb/testsuite/lib/gdb.exp 2010-02-17 23:02:01.000000000 +0000
@@ -2830,7 +2830,7 @@ proc build_id_debug_filename_get { exec
}
# Convert it to hex.
binary scan $data H* data
- set data [regsub {^..} $data {\0/}]
+ regsub {^..} $data {\0/} data
return ".build-id/${data}.debug";
}