diff options
Diffstat (limited to 'gdb/testsuite/lib/java.exp')
| -rw-r--r-- | gdb/testsuite/lib/java.exp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/java.exp b/gdb/testsuite/lib/java.exp index fc56ba5..f552be9 100644 --- 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: |