* gdb.base/call-ar-st.exp (set_lang_c): Delete, unused.

[thirdparty/binutils-gdb.git] / gdb / testsuite / lib / java.exp

diff --git a/gdb/testsuite/lib/java.exp b/gdb/testsuite/lib/java.exp
index fc56ba570c1f09db175b0b3f637ec4011012c016..f552be9ee501fc42d00847e08a322e1dcf68e88d 100644 (file)
--- a/gdb/testsuite/lib/java.exp
+++ b/gdb/testsuite/lib/java.exp
@@ -105,6 +105,20 @@ proc compile_java_from_source { srcfile binfile compile_args } {
     return $result
 }
 
+# Auxiliary function to set the language to java.
+# The result is 1 (true) for success, 0 (false) for failure.
+
+proc set_lang_java {} {
+    if [gdb_test_no_output "set language java"] {
+       return 0
+    }
+    if [gdb_test "show language" ".* source language is \"java\"." \
+          "set language to \"java\""] {
+       return 0
+    }
+    return 1;
+}
+
 # Local Variables:
 # tcl-indent-level:4
 # End: