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.fortran | |
| 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.fortran')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/exprs.exp | 20 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/types.exp | 20 |
2 files changed, 4 insertions, 36 deletions
diff --git a/gdb/testsuite/gdb.fortran/exprs.exp b/gdb/testsuite/gdb.fortran/exprs.exp index 37e313a..dff7089 100644 --- a/gdb/testsuite/gdb.fortran/exprs.exp +++ b/gdb/testsuite/gdb.fortran/exprs.exp @@ -21,25 +21,9 @@ if $tracelevel then { strace $tracelevel } -if { [skip_fortran_tests] } { continue } - +load_lib "fortran.exp" -# Set the current language to fortran. This counts as a test. If it -# fails, then we skip the other tests. - -proc set_lang_fortran {} { - global gdb_prompt - - if [gdb_test "set language fortran" ""] { - return 0; - } - - if ![gdb_test "show language" ".* source language is \"fortran\".*"] { - return 1; - } else { - return 0; - } -} +if { [skip_fortran_tests] } { continue } proc test_integer_literals_accepted {} { global gdb_prompt diff --git a/gdb/testsuite/gdb.fortran/types.exp b/gdb/testsuite/gdb.fortran/types.exp index b44e5d0..a6bf839 100644 --- a/gdb/testsuite/gdb.fortran/types.exp +++ b/gdb/testsuite/gdb.fortran/types.exp @@ -21,25 +21,9 @@ if $tracelevel then { strace $tracelevel } -if { [skip_fortran_tests] } { continue } - - -# Set the current language to fortran. This counts as a test. If it -# fails, then we skip the other tests. +load_lib "fortran.exp" -proc set_lang_fortran {} { - global gdb_prompt - - if [gdb_test "set language fortran" ""] { - return 0; - } - - if ![gdb_test "show language" ".* source language is \"fortran\".*"] { - return 1; - } else { - return 0; - } -} +if { [skip_fortran_tests] } { continue } proc test_integer_literal_types_accepted {} { global gdb_prompt |