* lib/mi-support.exp (mi_load_shlibs): New.

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

diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
index d6ec624eb20010b9f26ad8a93de17a212b196312..91e5b09cef509216324ed0fafa3b639a33ad9964 100644 (file)
--- a/gdb/testsuite/lib/mi-support.exp
+++ b/gdb/testsuite/lib/mi-support.exp
@@ -1681,3 +1681,18 @@ proc check_mi_and_console_threads {name} {
     }
   }
 }
+
+proc mi_load_shlibs { args } {
+    if {![is_remote target]} {
+       return
+    }
+
+    foreach file $args {
+       gdb_download $file
+    }
+
+    # Even if the target supplies full paths for shared libraries,
+    # they may not be paths for this system.
+    mi_gdb_test "set solib-search-path [file dirname [lindex $args 0]]" "\^done" ""
+}
+