diff options
| author | Doug Evans <dje@google.com> | 2010-08-18 16:37:21 +0000 |
|---|---|---|
| committer | Doug Evans <dje@google.com> | 2010-08-18 16:37:21 +0000 |
| commit | 932984d6160cee42e7ff478f69d3500d1caa319f (patch) | |
| tree | f1777089633c18b4bc1d6613fdd243ee2d97905e /gdb/testsuite/gdb.fortran | |
| parent | 862e2ad21b37a4d019d6636b594c9a6dcc1f314e (diff) | |
| download | gdb-932984d6160cee42e7ff478f69d3500d1caa319f.tar.gz | |
* 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 37e313a0ce8..dff70898a91 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 b44e5d0f2f2..a6bf839a296 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 |