diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/langs.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/langs.exp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/testsuite/gdb.base/langs.exp b/gdb/testsuite/gdb.base/langs.exp index fdc81333647..1957927dbfe 100644 --- a/gdb/testsuite/gdb.base/langs.exp +++ b/gdb/testsuite/gdb.base/langs.exp @@ -49,7 +49,7 @@ set isfixed 0 set foo_func foo__Fi set do_func langs0__2do -if [runto csub] then { +if {[runto csub]} { if { !$isfixed } { set lang c } gdb_test "show language" "currently $lang\".*" \ @@ -58,20 +58,20 @@ if [runto csub] then { gdb_test "bt" "#0.*csub.*#1.*(foo|$foo_func) \\(.*#2.*cppsub_ .*#3.*fsub.*#4.*$do_func \\(.*#5 \[0-9a-fx\]* in main.*" "backtrace" if { !$isfixed } { set lang c\\+\\+; set ext cxx } - if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } + if {!$gcc_compiled} { setup_xfail "rs6000-*-*" } gdb_test "up" ".* in (foo|$foo_func).* at .*langs2\\.$ext.*return csub \\(.*" \ "up to foo" gdb_test "show language" "currently $lang.*" \ "show language at foo" - if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } + if {!$gcc_compiled} { setup_xfail "rs6000-*-*" } gdb_test "up" ".* in cppsub_ .* at .*langs2\\.$ext.*return foo \\(.*" \ "up to cppsub_" gdb_test "show language" "currently $lang.*" \ "show language at cppsub_" if { !$isfixed } { set lang fortran } - if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } + if {!$gcc_compiled} { setup_xfail "rs6000-*-*" } gdb_test "up" ".* in fsub.* at .*langs1\\.f.*" \ "up to fsub" gdb_test "show language" "currently $lang.*" \ @@ -100,7 +100,7 @@ gdb_load $binfile # Try exercising the "minimal" language a bit... -if [runto csub] then { +if {[runto csub]} { gdb_test "set lang minimal" \ "Warning: the current language does not match this frame." \ "set lang to minimal" @@ -117,7 +117,7 @@ if [runto csub] then { "set lang back to auto for verbose test" gdb_test_no_output "set verbose on" if { !$isfixed } { set lang c\\+\\+; set ext cxx } - if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } + if {!$gcc_compiled} { setup_xfail "rs6000-*-*" } gdb_test "up" \ ".* in (foo|$foo_func).* at .*langs2\\.$ext.*return csub \\(.*Current language: auto.*" \ "up to foo when verbose" |