* lib/gdb.exp (build_id_debug_filename_get): Don't assume new

	`regsub' syntax available.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e2594c6..518118c 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2010-02-17  Pedro Alves  <pedro@codesourcery.com>
 
+       * lib/gdb.exp (build_id_debug_filename_get): Don't assume new
+       `regsub' syntax available.
+
+2010-02-17  Pedro Alves  <pedro@codesourcery.com>
+
        * gdb.base/shmain.c (main): Remove printf call.
        * gdb.base/sizeof.c (main): Cast return of sizeof to int.
        * gdb.base/unload.c (main): Make format of fprintf a string

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index a42d551..627941d 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -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";
 }