gdb/testsuite/

	Fix compatibility with Tcl before 7.5.
	* lib/future.exp (lreverse): New function if it does not exist.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 6988348b2ba564b11a6db25bed54388b1127c991..b0d8411a7d9643b3f7eb57489e8b3df8def6c808 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-25  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       Fix compatibility with Tcl before 7.5.
+       * lib/future.exp (lreverse): New function if it does not exist.
+
 2012-07-25  Marc Khouzam  <marc.khouzam@ericsson.com>
 
        * gdb.mi/mi-pending.c: New method to set a second pending

diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp
index bf47988d0b33b03cb120c0ee84359fe8af040686..226a690682d4300ebbffb556e2f48896c0694027 100644 (file)
--- a/gdb/testsuite/lib/future.exp
+++ b/gdb/testsuite/lib/future.exp
@@ -521,3 +521,16 @@ if {$use_gdb_compile} {
     catch {rename default_target_compile {}}
     rename gdb_default_target_compile default_target_compile
 }
+
+
+# Provide 'lreverse' missing in Tcl before 7.5.
+
+if {[info procs lreverse] == ""} {
+    proc lreverse { arg } {
+       set retval {}
+       while { [llength $retval] < [llength $arg] } {
+           lappend retval [lindex $arg end-[llength $retval]]
+       }
+       return $retval
+    }
+}