diff options
| author | Doug Evans <dje@google.com> | 2010-08-18 16:37:22 +0000 |
|---|---|---|
| committer | Doug Evans <dje@google.com> | 2010-08-18 16:37:22 +0000 |
| commit | f1208f9e0a164d55b91416876a5881321d3851b7 (patch) | |
| tree | 7364282c587f13fd0221468eb38a33a399f11460 /gdb/testsuite/gdb.base/call-ar-st.exp | |
| parent | 856d6f99ff9e391881377a4742520c1c405c694b (diff) | |
| download | gdb-f1208f9e0a164d55b91416876a5881321d3851b7.zip gdb-f1208f9e0a164d55b91416876a5881321d3851b7.tar.gz gdb-f1208f9e0a164d55b91416876a5881321d3851b7.tar.bz2 | |
* gdb.base/call-ar-st.exp (set_lang_c): Delete, unused.
* gdb.base/callfuncs.exp (set_lang_c): Delete, set c language directly.
* gdb.base/printcmds.exp (set_lang_c): Delete, set c language directly.
Simplify, early exit if runto_main fails.
* gdb.fortran/exprs.exp: load_lib fortran.exp.
(set_lang_fortran): Moved to lib/fortran.exp.
* gdb.fortran/types.exp: load_lib fortran.exp.
(set_lang_fortran): Moved to lib/fortran.exp.
* gdb.java/jmisc.exp (set_lang_java): Moved to lib/java.exp.
* gdb.java/jprint.exp (set_lang_java): Ditto.
* gdb.java/jv-exp.exp: load_lib java.exp.
If set_lang_java fails, issue a warning instead of failure to be
consistent with other set_lang_foo uses.
(set_lang_java): Moved to lib/java.exp.
* gdb.java/jv-print.exp (set_lang_java): Moved to lib/java.exp.
If set_lang_java fails, issue a warning instead of failure to be
consistent with other set_lang_foo uses.
* gdb.pascal/types.exp: load_lib pascal.exp.
(set_lang_pascal): Moved to lib/pascal.exp.
* lib/fortran.exp: New file.
* lib/java.exp (set_lang_java): New function.
* lib/pascal.exp (set_lang_pascal): New function.
Diffstat (limited to 'gdb/testsuite/gdb.base/call-ar-st.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/call-ar-st.exp | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp index d71454e..35525aa 100644 --- a/gdb/testsuite/gdb.base/call-ar-st.exp +++ b/gdb/testsuite/gdb.base/call-ar-st.exp @@ -55,30 +55,6 @@ if [target_info exists gdb,cannot_call_functions] { set oldtimeout $timeout set timeout [expr "$timeout + 60"] -# Set the current language to C. This counts as a test. If it -# fails, then we skip the other tests. - -proc set_lang_c {} { - global gdb_prompt - - gdb_test_no_output "set language c" - - gdb_test_multiple "show language" "set language to \"c\"" { - -re ".* source language is \"c\".*$gdb_prompt $" { - pass "set language to \"c\"" - return 1 - } - -re ".*$gdb_prompt $" { - fail "set language to \"c\"" - return 0 - } - timeout { - fail "(timeout) set language to \"c\"" - return 0 - } - } -} - # Start with a fresh gdb. gdb_exit |