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

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

diff --git a/gdb/testsuite/lib/pascal.exp b/gdb/testsuite/lib/pascal.exp
index 9691bc1a734b224e4132575212925e78ff6d53c1..af0b00db7e8f6284a21d09beb025a22c0deecb55 100644 (file)
--- a/gdb/testsuite/lib/pascal.exp
+++ b/gdb/testsuite/lib/pascal.exp
@@ -150,3 +150,16 @@ proc gdb_compile_pascal {source dest type options} {
     }
 }
 
+# Auxiliary function to set the language to pascal.
+# The result is 1 (true) for success, 0 (false) for failure.
+
+proc set_lang_pascal {} {
+    if [gdb_test_no_output "set language pascal"] {
+       return 0
+    }
+    if [gdb_test "show language" ".* source language is \"pascal\"." \
+          "set language to \"pascal\""] {
+       return 0
+    }
+    return 1;
+}