gdb/testsuite/gdb.stabs/wierd.exp

   1 # Test that GDB properly ignores invalid stabs.
   2 # Also test that GDB can debug a .o file, and that it doesn't mind
   3 # a file that's more minimal than what a compiler normally puts out.
   4 if $tracelevel then {
   5         strace $tracelevel
   6         }
   7 set prms_id 0
   8 set bug_id 0
   9
  10 gdb_reinitialize_dir $srcdir/$subdir
  11
  12 # Don't use gdb_load; it doesn't bitch if the loading produced some
  13 # error messages during symbol reading.
  14 set binfile $objdir/$subdir/wierd.o
  15
  16 if ![file exists $binfile] then {
  17         error "$binfile does not exist."
  18         alldone
  19         }
  20
  21 # xcoffread.c wrongly bitches about the lack of a text section.
  22 setup_xfail "rs*-*-aix*"
  23 send "file $binfile\n"
  24 expect {
  25         -re "^file $binfile\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$prompt $" {
  26                 pass "wierd.o read without error"
  27         }
  28         -re ".*$prompt $" {
  29                 fail "Errors reading wierd.o"
  30         }
  31         timeout {
  32                 error "couldn't load $binfile into $GDB (timed out)."
  33                 return -1
  34         }
  35         eof { fail "(eof) cannot read wierd.o" }
  36 }
  37
  38 # Do this first because the bug only exhibits itself before partial
  39 # symbols have been expanded.
  40 setup_xfail "*-*-*"
  41 # xcoffread.c doesn't (yet) use partial symbol tables.
  42 clear_xfail "rs*-*-aix*"
  43 gdb_test "ptype red" "type = enum \{red, green, blue\}" "ptype unnamed enum"
  44
  45 proc print_wierd_var { var } {
  46         global prompt
  47
  48         # GDB does not yet understand type attributes
  49         setup_xfail "*-*-*"
  50
  51         # Make sure that the variable gets printed out correctly, without
  52         # any sort of warning message.
  53         send "print $var\n"
  54         expect {
  55                 -re "^print $var\r*\n.\[0-9\]* = 42.*$prompt $" {
  56                         pass "variable $var printed properly"
  57                         return 0
  58                 }
  59                 -re ".*$prompt $" {
  60                         fail "variable $var not printed properly"
  61                         return 0
  62                 }
  63                 timeout { fail "variable $var not printed (timeout)" }
  64                 eof { fail "(eof) variable $var not printed" }
  65         }
  66
  67         # GDB does not yet understand type attributes
  68         setup_xfail "*-*-*"
  69
  70         # Make sure that the stabs did get loaded in a sensible way.
  71         # If somehow the stabs got skipped, then the above test can
  72         # pass because GDB assumes int for variables without a stab.
  73
  74   gdb_test "whatis $var\n" "type = (unsigned int|inttype)" "whatis on $var"
  75 }
  76
  77 print_wierd_var var0
  78 print_wierd_var var1
  79 print_wierd_var var2
  80 print_wierd_var var3
  81
  82 print_wierd_var attr32
  83 print_wierd_var attr33
  84 print_wierd_var attr35
  85 print_wierd_var attr36
  86 print_wierd_var attr37
  87 print_wierd_var attr38
  88 print_wierd_var attr39
  89 print_wierd_var attr41
  90 print_wierd_var attr42
  91 print_wierd_var attr43
  92 print_wierd_var attr44
  93 print_wierd_var attr46
  94 print_wierd_var attr47
  95 print_wierd_var attr58
  96 print_wierd_var attr59
  97 print_wierd_var attr60
  98 print_wierd_var attr61
  99 print_wierd_var attr62
 100 print_wierd_var attr63
 101 print_wierd_var attr64
 102 print_wierd_var attr65
 103 print_wierd_var attr66
 104 print_wierd_var attr67
 105 print_wierd_var attr68
 106 print_wierd_var attr69
 107 print_wierd_var attr70
 108 print_wierd_var attr71
 109 print_wierd_var attr72
 110 print_wierd_var attr73
 111 print_wierd_var attr74
 112 print_wierd_var attr75
 113 print_wierd_var attr76
 114 print_wierd_var attr77
 115 print_wierd_var attr78
 116 print_wierd_var attr79
 117 print_wierd_var attr80
 118 print_wierd_var attr81
 119 print_wierd_var attr82
 120 print_wierd_var attr83
 121 print_wierd_var attr84
 122 print_wierd_var attr85
 123 print_wierd_var attr86
 124 print_wierd_var attr87
 125 print_wierd_var attr88
 126 print_wierd_var attr89
 127 print_wierd_var attr90
 128 print_wierd_var attr91
 129 print_wierd_var attr92
 130 print_wierd_var attr93
 131 print_wierd_var attr94
 132 print_wierd_var attr95
 133 print_wierd_var attr96
 134 print_wierd_var attr97
 135 print_wierd_var attr98
 136 print_wierd_var attr99
 137 print_wierd_var attr100
 138 print_wierd_var attr101
 139 print_wierd_var attr102
 140 print_wierd_var attr103
 141 print_wierd_var attr104
 142 print_wierd_var attr105
 143 print_wierd_var attr106
 144 print_wierd_var attr107
 145 print_wierd_var attr108
 146 print_wierd_var attr109
 147 print_wierd_var attr110
 148 print_wierd_var attr111
 149 print_wierd_var attr112
 150 print_wierd_var attr113
 151 print_wierd_var attr114
 152 print_wierd_var attr115
 153 print_wierd_var attr116
 154 print_wierd_var attr117
 155 print_wierd_var attr118
 156 print_wierd_var attr119
 157 print_wierd_var attr120
 158 print_wierd_var attr121
 159 print_wierd_var attr122
 160 print_wierd_var attr123
 161 print_wierd_var attr124
 162 print_wierd_var attr125
 163 print_wierd_var attr126
 164
 165 gdb_test "p const69" " = 69" "'e' constant on non-enum type"
 166 gdb_test "whatis const69" "type = (unsigned int|inttype)" "whatis const69"
 167
 168 # Haven't investigated
 169 setup_xfail "*-*-*"
 170 gdb_test "p sizeof (const70)" " = 2" "'e' constant with embedded type"
 171
 172 # field3 is printing out a bogus value; haven't investigated
 173 setup_xfail "*-*-*"
 174 gdb_test "p bad_neg0" " = \{field0 = 42, field2 =.*field3 = 45\}" "p bad_neg0"
 175 # test that it at least gets field0 right
 176 gdb_test "p bad_neg0" " = \{field0 = 42, field2 =" "p bad_neg0, test 2"
 177
 178 gdb_test "ptype inttype" "type = (unsigned int|inttype)" "ptype on inttype"
 179 gdb_test "p sizeof (float72type)" " = 9" "unrecognized floating point type"
 180
 181 # Haven't investigated
 182 setup_xfail "*-*-*"
 183 gdb_test "p/x int256var" " = 0x0000002a0000002b0000002c0000002d\
 184 0000002d0000002c0000002b0000002a" "print very big integer"
 185
 186 gdb_test "whatis consth" "type = inttype" "whatis consth"
 187 gdb_test "whatis consth2" "type = inttype" "whatis consth2"
 188
 189 # GDB does not yet understand S constants
 190 setup_xfail "*-*-*"
 191 gdb_test "p/x bad_neg0const" " = \{field0 = 0x11222211, field2 =.*\
 192 field3 = 0x77888877\}" "print struct constant"
 193
 194 gdb_test "ptype bad_type0" "type = " "print bad_type0"
 195 gdb_test "ptype bad_type1" "type = " "print bad_type1"
 196
 197 # GDB does not yet support arrays indexed by anything at all unusual
 198 setup_xfail "*-*-*"
 199 gdb_test "p array0" " = \{42, 43, 44, 45, 46, 47\}" "array0 with strange index"
 200 setup_xfail "*-*-*"
 201 gdb_test "p array1" " = \{42, 43, 44\}" "array1 with strange index"
 202
 203 # GDB does not yet support this feature
 204 setup_xfail "*-*-*"
 205 gdb_test "whatis one_var" "type = inttype_one" "whatis one_var"
 206 # But do make sure that it prints as something reasonable
 207 gdb_test "whatis one_var" "type = inttype(|_one)" "whatis one_var test 2"
 208
 209 setup_xfail "*-*-*"
 210 gdb_test "whatis two_var" "type = inttype_two" "whatis two_var"
 211 gdb_test "whatis two_var" "type = inttype(|_two)" "whatis two_var test 2"
 212
 213 setup_xfail "*-*-*"
 214 gdb_test "whatis pointer_to_int_var" "type = int \*" "whatis p t i v"
 215 setup_xfail "*-*-*"
 216 gdb_test "whatis intp_var" "type = intp" "whatis intp_var"
 217
 218 #Prevent some failures in default.exp, which are probably GDB bugs
 219 # (but trivial ones).
 220 gdb_exit
 221 gdb_start