Print data from individual perf runs.

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / future.exp

diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp
index 40456c01a7310f3db389c9fb4cac8c86942e3524..a27e120dd53cf4d55bc741fc68b537f49f89137f 100644 (file)
--- a/gdb/testsuite/lib/future.exp
+++ b/gdb/testsuite/lib/future.exp
@@ -1,4 +1,4 @@
-# Copyright 2004, 2007-2012 Free Software Foundation, Inc.
+# Copyright 2004-2015 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
@@ -84,6 +84,47 @@ 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
+}
+
+# find target objdump
+proc gdb_find_objdump {} {
+    global OBJDUMP_FOR_TARGET
+    if [info exists OBJDUMP_FOR_TARGET] {
+       set objdump $OBJDUMP_FOR_TARGET
+    } else {
+       set objdump [transform objdump]
+    }
+    return $objdump
+}
+
+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
@@ -419,8 +460,8 @@ proc gdb_default_target_compile {source destfile type options} {
     }
 
     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"
@@ -478,8 +519,8 @@ proc gdb_default_target_compile {source destfile type options} {
 
     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
@@ -514,10 +555,23 @@ if {[info procs find_gfortran] == ""} {
 if {[info procs find_go_linker] == ""} {
     rename gdb_find_go find_go
     rename gdb_find_go_linker find_go_linker
-    # No need to set use_gdb_compile.
+    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
+    }
+}