diff options
| author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2012-07-25 20:17:59 +0000 |
|---|---|---|
| committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2012-07-25 20:17:59 +0000 |
| commit | 9cc8e32c67048524f87488aec68cee059c242613 (patch) | |
| tree | 9893911e7eb160be20371ca7ea96e3f59c94bf90 | |
| parent | aec8845cae511168303528f7afd5f5aba22a5c4c (diff) | |
| download | gdb-9cc8e32c67048524f87488aec68cee059c242613.zip gdb-9cc8e32c67048524f87488aec68cee059c242613.tar.gz gdb-9cc8e32c67048524f87488aec68cee059c242613.tar.bz2 | |
gdb/testsuite/
Fix compatibility with Tcl before 7.5.
* lib/future.exp (lreverse): New function if it does not exist.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/future.exp | 13 |
2 files changed, 18 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 6988348..b0d8411 100644 --- 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 bf47988..226a690 100644 --- 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 + } +} |