OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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:
Jan Kratochvil 2012-07-25 20:17:59 +00:00
parent aec8845cae
commit 9cc8e32c67
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -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

13
gdb/testsuite/lib/future.exp
View File

@ -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
}
}