gdb/testsuite/gdb.stabs/weird.exp

   1 # Copyright 1997-2021 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 # Test that GDB properly ignores invalid stabs.
  17 # Also test that GDB can debug a .o file, and that it doesn't mind
  18 # a file that's more minimal than what a compiler normally puts out.
  19
  20 set testfile weird
  21 set srcfile [standard_output_file weird.s]
  22 set binfile [standard_output_file weirdx.o]
  23
  24 if { [ get_compiler_info ] } {
  25     return -1
  26 }
  27
  28 proc do_tests {} {
  29         global binfile
  30         global gdb_prompt
  31
  32         # Mips/alpha targets that use gcc with mips-tfile put out the stabs
  33         # assembler directives embedded in comments. If the assembler
  34         # file is then processed with native cc, all stabs directives
  35         # will be lost.
  36         # Skip the rest of the stabs tests for this case.
  37         send_gdb "ptype inttype\n"
  38         gdb_expect {
  39                 -re "^ptype inttype\r*\ntype = inttype.*$gdb_prompt $" {
  40                         pass "stabs found"
  41                 }
  42                 -re ".*$gdb_prompt $" {
  43                         setup_xfail "mips-*-*"
  44                         setup_xfail "alpha-*-*"
  45                         fail "stabs not found"
  46                         return
  47                 }
  48                 default { fail "checking for stabs" }
  49         }
  50
  51         print_weird_var var0
  52         print_weird_var var1
  53         print_weird_var var2
  54         print_weird_var var3
  55
  56         print_weird_var attr32
  57         print_weird_var attr33
  58         print_weird_var attr35
  59         print_weird_var attr36
  60         print_weird_var attr37
  61         print_weird_var attr38
  62         print_weird_var attr39
  63         print_weird_var attr41
  64         print_weird_var attr42
  65         print_weird_var attr43
  66         print_weird_var attr44
  67         print_weird_var attr46
  68         print_weird_var attr47
  69         print_weird_var attr58
  70         print_weird_var attr59
  71         print_weird_var attr60
  72         print_weird_var attr61
  73         print_weird_var attr62
  74         print_weird_var attr63
  75         print_weird_var attr64
  76         print_weird_var attr65
  77         print_weird_var attr66
  78         print_weird_var attr67
  79         print_weird_var attr68
  80         print_weird_var attr69
  81         print_weird_var attr70
  82         print_weird_var attr71
  83         print_weird_var attr72
  84         print_weird_var attr73
  85         print_weird_var attr74
  86         print_weird_var attr75
  87         print_weird_var attr76
  88         print_weird_var attr77
  89         print_weird_var attr78
  90         print_weird_var attr79
  91         print_weird_var attr80
  92         print_weird_var attr81
  93         print_weird_var attr82
  94         print_weird_var attr83
  95         print_weird_var attr84
  96         print_weird_var attr85
  97         print_weird_var attr86
  98         print_weird_var attr87
  99         print_weird_var attr88
 100         print_weird_var attr89
 101         print_weird_var attr90
 102         print_weird_var attr91
 103         print_weird_var attr92
 104         print_weird_var attr93
 105         print_weird_var attr94
 106         print_weird_var attr95
 107         print_weird_var attr96
 108         print_weird_var attr97
 109         print_weird_var attr98
 110         print_weird_var attr99
 111         print_weird_var attr100
 112         print_weird_var attr101
 113         print_weird_var attr102
 114         print_weird_var attr103
 115         print_weird_var attr104
 116         print_weird_var attr105
 117         print_weird_var attr106
 118         print_weird_var attr107
 119         print_weird_var attr108
 120         print_weird_var attr109
 121         print_weird_var attr110
 122         print_weird_var attr111
 123         print_weird_var attr112
 124         print_weird_var attr113
 125         print_weird_var attr114
 126         print_weird_var attr115
 127         print_weird_var attr116
 128         print_weird_var attr117
 129         print_weird_var attr118
 130         print_weird_var attr119
 131         print_weird_var attr120
 132         print_weird_var attr121
 133         print_weird_var attr122
 134         print_weird_var attr123
 135         print_weird_var attr124
 136         print_weird_var attr125
 137         print_weird_var attr126
 138
 139         gdb_test "p const69" " = 69" "'e' constant on non-enum type"
 140         gdb_test "whatis const69" "type = (unsigned int|inttype)"
 141
 142         gdb_test "p sizeof (const70)" " = 2" "'e' constant with embedded type"
 143
 144         gdb_test "p constchar" " = 97 'a'" "char constant"
 145         gdb_test "p constString1" " = \"Single quote String1\"" "string constant 1"
 146         gdb_test "p constString2" " = \"Double quote String2\"" "string constant 2"
 147
 148         gdb_test "p constString3" " = \"String3 with embedded quote ' in the middle\"" "string constant 3"
 149         gdb_test "p constString4" { = "String4 with embedded quote \\" in the middle"} "string constant 4"
 150         gdb_test "p bad_neg0" " = \{field0 = 42, field2 =.*field3 = 45\}"
 151
 152         gdb_test "ptype inttype" "type = (unsigned int|inttype)" "ptype on inttype"
 153         gdb_test "p sizeof (float72type)" " = 9" "unrecognized floating point type"
 154
 155         # This big number needs to be kept as one piece
 156         gdb_test "p/x int256var" " = 0x0*2a0000002b0000002c0000002d0000002d0000002c0000002b0000002a" "print very big integer"
 157
 158         gdb_test "whatis consth" "type = inttype"
 159         gdb_test "whatis consth2" "type = inttype"
 160
 161         # GDB does not yet understand S constants
 162         setup_xfail "*-*-*"
 163         gdb_test "p/x bad_neg0const" " = \{field0 = 0x11222211, field2 =.*\
 164 field3 = 0x77888877\}" "print struct constant"
 165
 166         gdb_test "ptype bad_type0" "type = .*" "print bad_type0"
 167         gdb_test "ptype bad_type1" "type = .*" "print bad_type1"
 168
 169         # GDB does not yet support arrays indexed by anything at all unusual
 170         setup_xfail "*-*-*"
 171         gdb_test "p array0" " = \\{42, 43, 44, 45, 46, 47\\}" "array0 with strange index"
 172         setup_xfail "*-*-*"
 173         gdb_test "p array1" " = \\{42, 43, 44\\}" "array1 with strange index"
 174
 175         # GDB does not yet support this feature
 176         gdb_test "whatis one_var" "type = inttype_one" \
 177             "whatis one_var (known failure in gdb 4.10)"
 178         # But do make sure that it prints as something reasonable
 179         gdb_test "whatis one_var" "type = inttype(|_one)" \
 180             "whatis one_var test 2"
 181
 182         gdb_test "whatis two_var" "type = inttype_two" \
 183             "whatis two_var (known failure in gdb 4.10)"
 184         # But do make sure that it prints as something reasonable
 185         gdb_test "whatis two_var" "type = inttype(|_two)" \
 186             "whatis two_var test 2"
 187
 188         setup_xfail "*-*-*"
 189         gdb_test "whatis pointer_to_int_var" "type = int \[*\]"
 190         setup_xfail "*-*-*"
 191         gdb_test "whatis intp_var" "type = intp"
 192
 193         gdb_test "p common0var0" "= 42"
 194         # GDB seems to only understand common blocks local to a function.
 195         # These variables never get relocated to be relative to the common
 196         # block.
 197         # I'm not sure whether it is valid to have a common block which
 198         # is not local to a function.
 199         setup_xfail "*-*-*"
 200         gdb_test "p common0var1" "= 24"
 201         setup_xfail "*-*-*"
 202         gdb_test "p common0var2" "= 22"
 203 }
 204
 205 proc print_weird_var { var } {
 206         global gdb_prompt
 207
 208         # Make sure that the variable gets printed out correctly, without
 209         # any sort of warning message.
 210         gdb_test_multiple "print $var" "variable $var printed property" {
 211                 -re "^print $var\r*\n.\[0-9\]* = 42.*$gdb_prompt $" {
 212                         pass "variable $var printed properly"
 213                 }
 214                 -re ".*$gdb_prompt $" {
 215                         fail "variable $var printed properly"
 216                 }
 217         }
 218
 219         # Make sure that the stabs did get loaded in a sensible way.
 220         # If somehow the stabs got skipped, then the above test can
 221         # pass because GDB assumes int for variables without a stab.
 222
 223         # This doesn't work because 32=45 doesn't preserve the name in
 224         # gdb (as of 14 Sep 93 anyway).
 225         #gdb_test "whatis $var" "type = (unsigned int|inttype)"
 226
 227         # But the size should be right.
 228         gdb_test "print sizeof ($var)" "= 4"
 229 }
 230
 231
 232 # Don't use gdb_load; it doesn't bitch if the loading produced some
 233 # error messages during symbol reading.
 234
 235 global target_os
 236 set sedscript ${srcdir}/${subdir}/aout.sed
 237 set sedoptions ""
 238
 239 switch -glob ${target_triplet} {
 240     "hppa*-*-*" {
 241         set sedscript ${srcdir}/${subdir}/hppa.sed
 242     }
 243     "mips-*-ecoff" {
 244         set sedscript ${srcdir}/${subdir}/ecoff.sed
 245     }
 246     "powerpc-*-aix*" {
 247         set sedscript ${srcdir}/${subdir}/xcoff.sed
 248         set sedoptions "-r"
 249     }
 250     "rs6000-*-aix*" {
 251         set sedscript ${srcdir}/${subdir}/xcoff.sed
 252         set sedoptions "-r"
 253     }
 254     "*-*-aout" {
 255         set sedscript ${srcdir}/${subdir}/aout.sed
 256     }
 257     "*-*-xcoff" {
 258         set sedscript ${srcdir}/${subdir}/xcoff.sed
 259         set sedoptions "-r"
 260     }
 261     "alpha-*-*" {
 262         set sedscript ${srcdir}/${subdir}/ecoff.sed
 263     }
 264 }
 265
 266 # Hope this is a Unix box.
 267 set exec_output [remote_exec build "sed" "${sedoptions} -f ${sedscript}" "${srcdir}/${subdir}/weird.def" "${srcfile}"]
 268 if { [lindex $exec_output 0] != 0 } {
 269     perror "Couldn't make test case. $exec_output"
 270     return -1
 271 }
 272
 273 if  { [gdb_compile "${srcfile}" "${binfile}" object ""] != "" } {
 274      untested "failed to compile"
 275      return -1
 276 }
 277
 278 remote_file build delete ${srcfile}
 279
 280 # Start with a fresh gdb
 281 gdb_exit
 282 gdb_start
 283 gdb_reinitialize_dir $srcdir/$subdir
 284
 285 set binfile [gdb_remote_download host ${binfile} \
 286                  [standard_output_file object.o]]
 287 set binfile_re [string_to_regexp $binfile]
 288 send_gdb "file $binfile\n"
 289 # If $binfile is very long, a \r (but not a \n) will echo in the
 290 # middle of the echo of the command.  So to match the echo, we
 291 # would like to match anything not containing \n
 292 # (we would prefer to be sure not to match any warning message).
 293 # But \[^\n\]* doesn't seem to work, so instead use the heuristic
 294 # that a filename won't contain a space and a warning message will.
 295 # But spaces following by backspaces aren't really spaces.
 296 gdb_expect 60 {
 297     -re "^file (\[^ \]| +\008)*\r*\n" {
 298         exp_continue
 299     }
 300     -re "A program is being debugged already.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\)" {
 301         send_gdb "y\n"
 302         exp_continue
 303     }
 304     -re "^Reading symbols from .*$binfile_re\\.\\.\\.(|\r\nUsing host libthread_db library .*libthread_db.so.*\\.)\r\n$gdb_prompt $" {
 305         pass "weirdx.o read without error"
 306     }
 307     -re ".*$gdb_prompt $" {
 308         fail "errors reading weirdx.o"
 309     }
 310     timeout {
 311         perror "couldn't load $binfile into $GDB (timed out)."
 312         return -1
 313     }
 314     eof { fail "(eof) cannot read weirdx.o" }
 315 }
 316
 317 do_tests
 318
 319 return 0