gdb/testsuite/
Fix compatibility with Tcl before 7.5. * lib/future.exp (lreverse): New function if it does not exist.
This commit is contained in:
parent
aec8845cae
commit
9cc8e32c67
|
@ -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
|
||||
|
|
|
@ -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
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue