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>
|
2012-07-25 Marc Khouzam <marc.khouzam@ericsson.com>
|
||||||
|
|
||||||
* gdb.mi/mi-pending.c: New method to set a second pending
|
* 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 {}}
|
catch {rename default_target_compile {}}
|
||||||
rename gdb_default_target_compile 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