* lib/future.exp (gdb_find_objcopy, gdb_find_readelf): New procs.

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

diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp
index 422342b2f3753219d780ea96963864837aa99fb3..553f56232c7a9a79f395abf40d3196597f6e4f19 100644 (file)
--- a/gdb/testsuite/lib/future.exp
+++ b/gdb/testsuite/lib/future.exp
@@ -94,6 +94,26 @@ proc gdb_find_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