gdb/testsuite/gdb.base/langs.exp

   1 #   Copyright (C) 1997-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16
  17 standard_testfile langs0.c langs1.c langs2.c
  18
  19 if [is_remote host] {
  20     remote_download host ${srcdir}/${subdir}/langs1.f
  21     remote_download host ${srcdir}/${subdir}/langs2.cxx
  22 }
  23
  24
  25 if {[prepare_for_testing "failed to prepare" ${testfile} \
  26          [list $srcfile $srcfile2 $srcfile3] {debug}]} {
  27     return -1
  28 }
  29
  30 set oldtimeout $timeout
  31 set timeout 10
  32
  33 # Some tests require GCC.
  34 set gcc_compiled [is_c_compiler_gcc]
  35
  36 gdb_test_multiple "b -qualified langs0" "break on nonexistent function" {
  37         -re "Function \"langs0\" not defined\..*Make breakpoint pending on future shared library load.*y or .n.. $" {
  38
  39                 gdb_test "n" "" "break on nonexistent function"
  40         }
  41         -re "Breakpoint .* (deferred).*$gdb_prompt $" {
  42                 pass "break on nonexistent function"
  43         }
  44 }
  45
  46 # TODO: Since there variables are now constants, we can cleanup the test,
  47 # remove some dead code.
  48 set isfixed 0
  49 set foo_func foo__Fi
  50 set do_func langs0__2do
  51
  52 if {[runto csub]} {
  53
  54     if { !$isfixed } { set lang c }
  55     gdb_test "show language" "currently $lang\".*" \
  56         "show language at csub"
  57
  58     gdb_test "bt" "#0.*csub.*#1.*(foo|$foo_func) \\(.*#2.*cppsub_ .*#3.*fsub.*#4.*$do_func \\(.*#5  \[0-9a-fx\]* in main.*" "backtrace"
  59
  60     if { !$isfixed } { set lang c\\+\\+; set ext cxx }
  61     if {!$gcc_compiled} { setup_xfail "rs6000-*-*" }
  62     gdb_test "up" ".* in (foo|$foo_func).* at .*langs2\\.$ext.*return csub \\(.*" \
  63         "up to foo"
  64     gdb_test "show language" "currently $lang.*" \
  65         "show language at foo"
  66
  67     if {!$gcc_compiled} { setup_xfail "rs6000-*-*" }
  68     gdb_test "up" ".* in cppsub_ .* at .*langs2\\.$ext.*return foo \\(.*" \
  69         "up to cppsub_"
  70     gdb_test "show language" "currently $lang.*" \
  71         "show language at cppsub_"
  72
  73     if { !$isfixed } { set lang fortran }
  74     if {!$gcc_compiled} { setup_xfail "rs6000-*-*" }
  75     gdb_test "up" ".* in fsub.* at .*langs1\\.f.*" \
  76         "up to fsub"
  77     gdb_test "show language" "currently $lang.*" \
  78         "show language at fsub"
  79
  80     if { !$isfixed } { set lang c }
  81     gdb_test "up" ".* in $do_func .* at .*langs0\\.c.*return fsub.*" \
  82         "up to langs0__2do"
  83     gdb_test "show language" "currently $lang\".*" \
  84         "show language at langs0__2do"
  85
  86     gdb_test "up" ".* in main .* at .*langs0\\.c.*if \\(langs0__2do \\(.*" \
  87         "up to main"
  88     gdb_test "show language" "currently $lang\".*" \
  89         "show language at main"
  90
  91     if [target_info exists gdb,noresults] { return }
  92
  93     gdb_continue_to_end "first session"
  94 }
  95
  96 clean_restart $binfile
  97
  98 # Try exercising the "minimal" language a bit...
  99
 100 if {[runto csub]} {
 101     # Also test warn-language-frame-mismatch.
 102     gdb_test_no_output "set warn-language-frame-mismatch off"
 103     gdb_test_no_output "set lang minimal" "set lang to minimal"
 104
 105     gdb_test "print x" " = 5000" "print parameter value"
 106
 107     # Ensure this at least does not crash.
 108     gdb_test_no_output "set language unknown"
 109     gdb_test "print x" \
 110         "expression parsing not implemented for language .Unknown." \
 111         "expression parsing does not crash for unknown"
 112
 113     gdb_test_no_output "set lang auto" \
 114         "set lang back to auto for verbose test"
 115     gdb_test_no_output "set verbose on"
 116     if { !$isfixed } { set lang c\\+\\+; set ext cxx }
 117     if {!$gcc_compiled} { setup_xfail "rs6000-*-*" }
 118     gdb_test "up" \
 119         ".* in (foo|$foo_func).* at .*langs2\\.$ext.*return csub \\(.*Current language:  auto.*" \
 120         "up to foo when verbose"
 121 }
 122
 123 set timeout $oldtimeout