gdb/testsuite/gdb.stabs/weird.exp

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