GDB 7.6.50

gdb/testsuite/lib/future.exp

-# Copyright 2004, 2007-2012 Free Software Foundation, Inc.
+# Copyright 2004-2013 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 3 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
@@ skipping 65 matching lines @@
         set GO [transform gccgo]
     }
 
     return $GO
 }
 
 proc gdb_find_go_linker {} {
     return [find_go]
 }
 
+proc gdb_find_ldd {} {
+    global LDD_FOR_TARGET
+    if [info exists LDD_FOR_TARGET] {
+        set ldd $LDD_FOR_TARGET
+    } else {
+        set ldd "ldd"
+    }
+    return $ldd
+}
+
+proc gdb_find_objcopy {} {
+    global OBJCOPY_FOR_TARGET
+    if [info exists OBJCOPY_FOR_TARGET] {
+        set objcopy $OBJCOPY_FOR_TARGET
+    } else {
+        set objcopy [transform objcopy]
+    }
+    return $objcopy
+}
+
+proc gdb_find_readelf {} {
+    global READELF_FOR_TARGET
+    if [info exists READELF_FOR_TARGET] {
+        set readelf $READELF_FOR_TARGET
+    } else {
+        set readelf [transform readelf]
+    }
+    return $readelf
+}
+
 proc gdb_default_target_compile {source destfile type options} {
     global target_triplet
     global tool_root_dir
     global CFLAGS_FOR_TARGET
     global compiler_flags
 
     if { $destfile == "" && $type != "preprocess" && $type != "none" } {
         error "Must supply an output filename for the compile to default_target_compile"
     }
 
@@ skipping 315 matching lines @@
                 return "Unable to download $x to host."
             } else {
                 append sources " $file"
             }
         }
     } else {
         set sources $source
     }
 
     if {[is_remote host]} {
-        append add_flags " -o a.out"
-        remote_file host delete a.out
+        append add_flags " -o " [file tail $destfile]
+        remote_file host delete [file tail $destfile]
     } else {
         if { $destfile != "" } {
             append add_flags " -o $destfile"
         }
     }
 
     # This is obscure: we put SOURCES at the end when building an
     # object, because otherwise, in some situations, libtool will
     # become confused about the name of the actual source file.
     switch $type {
@@ skipping 37 matching lines @@
         if {[info exists timeout]} {
             verbose "Setting timeout to $timeout" 2
             set status [remote_exec host "$compiler $opts" "" "" "" $timeout]
         } else {
             set status [remote_exec host "$compiler $opts"]
         }
     }
 
     set compiler_flags $opts
     if {[is_remote host]} {
-        remote_upload host a.out $destfile
-        remote_file host delete a.out
+        remote_upload host [file tail $destfile] $destfile
+        remote_file host delete [file tail $destfile]
     }
     set comp_output [prune_warnings [lindex $status 1]]
     regsub "^\[\r\n\]+" $comp_output "" comp_output
     if { [lindex $status 0] != 0 } {
         verbose -log "compiler exited with status [lindex $status 0]"
     }
     if { [lindex $status 1] != "" } {
         verbose -log "output is:\n[lindex $status 1]" 2
     }
     if { [lindex $status 0] != 0 && "${comp_output}" == "" } {
@@ skipping 21 matching lines @@
 if {[info procs find_go_linker] == ""} {
     rename gdb_find_go find_go
     rename gdb_find_go_linker find_go_linker
     set use_gdb_compile 1
 }
 
 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
+    }
+}