gdb/testsuite/gdb.dwarf2/dynarr-ptr.exp

   1 # Copyright 2014 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 load_lib dwarf.exp
  16
  17 # This test can only be run on targets which support DWARF-2 and use gas.
  18 if {![dwarf2_support]} {
  19     return 0
  20 }
  21
  22 standard_testfile dynarr-ptr.c dynarr-ptr-dw.S
  23
  24 # We need to know the size of integer and address types in order
  25 # to write some of the debugging info we'd like to generate.
  26 #
  27 # For that, we ask GDB by debugging our dynarr-ptr.c program.
  28 # Any program would do, but since we already have dynarr-ptr.c
  29 # specifically for this testcase, might as well use that.
  30
  31 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } {
  32     untested ${testfile}.exp
  33     return -1
  34 }
  35
  36 # Make some DWARF for the test.
  37 set asm_file [standard_output_file $srcfile2]
  38 Dwarf::assemble $asm_file {
  39     cu {} {
  40         DW_TAG_compile_unit {
  41                 {DW_AT_language @DW_LANG_Ada95}
  42                 {DW_AT_name     foo.adb}
  43                 {DW_AT_comp_dir /tmp}
  44         } {
  45             declare_labels integer_label array_label array_ptr_label \
  46                 array_typedef_label
  47             set ptr_size [get_sizeof "void *" 96]
  48
  49             integer_label: DW_TAG_base_type {
  50                 {DW_AT_byte_size 4 DW_FORM_sdata}
  51                 {DW_AT_encoding  @DW_ATE_signed}
  52                 {DW_AT_name      integer}
  53             }
  54
  55             array_label: DW_TAG_array_type {
  56                 {DW_AT_name foo__array_type}
  57                 {DW_AT_type :$integer_label}
  58                 {external 1 flag}
  59             } {
  60                 DW_TAG_subrange_type {
  61                     {DW_AT_type        :$integer_label}
  62                     {DW_AT_lower_bound {
  63                         DW_OP_push_object_address
  64                         DW_OP_lit8
  65                         DW_OP_minus
  66                         DW_OP_deref_size 4
  67                     } SPECIAL_expr}
  68                     {DW_AT_upper_bound {
  69                         DW_OP_push_object_address
  70                         DW_OP_lit4
  71                         DW_OP_minus
  72                         DW_OP_deref_size 4
  73                     } SPECIAL_expr}
  74                 }
  75             }
  76             array_ptr_label: DW_TAG_pointer_type {
  77                 {DW_AT_byte_size :$ptr_size }
  78                 {DW_AT_type :$array_label}
  79             }
  80             array_typedef_label: DW_TAG_typedef {
  81                 {DW_AT_name "foo__array_ptr"}
  82                 {DW_AT_type :$array_ptr_label}
  83             }
  84             DW_TAG_variable {
  85                 {DW_AT_name foo__three_ptr}
  86                 {DW_AT_type :$array_ptr_label}
  87                 {DW_AT_location {
  88                     DW_OP_addr table_1_ptr
  89                 } SPECIAL_expr}
  90                 {external 1 flag}
  91             }
  92             DW_TAG_variable {
  93                 {DW_AT_name foo__three_ptr_tdef}
  94                 {DW_AT_type :$array_typedef_label}
  95                 {DW_AT_location {
  96                     DW_OP_addr table_1_ptr
  97                 } SPECIAL_expr}
  98                 {external 1 flag}
  99             }
 100             DW_TAG_variable {
 101                 {DW_AT_name foo__five_ptr}
 102                 {DW_AT_type :$array_ptr_label}
 103                 {DW_AT_location {
 104                     DW_OP_addr table_2_ptr
 105                 } SPECIAL_expr}
 106                 {external 1 flag}
 107             }
 108             DW_TAG_variable {
 109                 {DW_AT_name foo__five_ptr_tdef}
 110                 {DW_AT_type :$array_typedef_label}
 111                 {DW_AT_location {
 112                     DW_OP_addr table_2_ptr
 113                 } SPECIAL_expr}
 114                 {external 1 flag}
 115             }
 116         }
 117     }
 118 }
 119
 120 # Now that we've generated the DWARF debugging info, rebuild our
 121 # program using our debug info instead of the info generated by
 122 # the compiler.
 123
 124 if { [prepare_for_testing ${testfile}.exp ${testfile} \
 125           [list $srcfile $asm_file] {nodebug}] } {
 126     return -1
 127 }
 128
 129 if ![runto_main] {
 130     return -1
 131 }
 132
 133 gdb_test_no_output "set language ada"
 134
 135 # foo.three_ptr.all
 136
 137 gdb_test "print foo.three_ptr.all" \
 138          " = \\(1, 2, 3\\)"
 139
 140 gdb_test "print foo.three_ptr.all(1)" \
 141          " = 1"
 142
 143 gdb_test "print foo.three_ptr.all(2)" \
 144          " = 2"
 145
 146 gdb_test "print foo.three_ptr.all(3)" \
 147          " = 3"
 148
 149 # foo.three_ptr
 150
 151 gdb_test "print foo.three_ptr(1)" \
 152          " = 1"
 153
 154 gdb_test "print foo.three_ptr(2)" \
 155          " = 2"
 156
 157 gdb_test "print foo.three_ptr(3)" \
 158          " = 3"
 159
 160 # foo.three_ptr_tdef.all
 161
 162 gdb_test "print foo.three_ptr_tdef.all" \
 163          " = \\(1, 2, 3\\)"
 164
 165 gdb_test "print foo.three_ptr_tdef.all(1)" \
 166          " = 1"
 167
 168 gdb_test "print foo.three_ptr_tdef.all(2)" \
 169          " = 2"
 170
 171 gdb_test "print foo.three_ptr_tdef.all(3)" \
 172          " = 3"
 173
 174 # foo.three_ptr_tdef
 175
 176 gdb_test "print foo.three_ptr_tdef(1)" \
 177          " = 1"
 178
 179 gdb_test "print foo.three_ptr_tdef(2)" \
 180          " = 2"
 181
 182 gdb_test "print foo.three_ptr_tdef(3)" \
 183          " = 3"
 184
 185 # foo.five_ptr.all
 186
 187 gdb_test "print foo.five_ptr.all" \
 188          " = \\(2 => 5, 8, 13, 21, 34\\)"
 189
 190 gdb_test "print foo.five_ptr.all(2)" \
 191          " = 5"
 192
 193 gdb_test "print foo.five_ptr.all(3)" \
 194          " = 8"
 195
 196 gdb_test "print foo.five_ptr.all(4)" \
 197          " = 13"
 198
 199 gdb_test "print foo.five_ptr.all(5)" \
 200          " = 21"
 201
 202 gdb_test "print foo.five_ptr.all(6)" \
 203          " = 34"
 204
 205 # foo.five_ptr
 206
 207 gdb_test "print foo.five_ptr(2)" \
 208          " = 5"
 209
 210 gdb_test "print foo.five_ptr(3)" \
 211          " = 8"
 212
 213 gdb_test "print foo.five_ptr(4)" \
 214          " = 13"
 215
 216 gdb_test "print foo.five_ptr(5)" \
 217          " = 21"
 218
 219 gdb_test "print foo.five_ptr(6)" \
 220          " = 34"
 221
 222 # foo.five_ptr_tdef.all
 223
 224 gdb_test "print foo.five_ptr_tdef.all" \
 225          " = \\(2 => 5, 8, 13, 21, 34\\)"
 226
 227 gdb_test "print foo.five_ptr_tdef.all(2)" \
 228          " = 5"
 229
 230 gdb_test "print foo.five_ptr_tdef.all(3)" \
 231          " = 8"
 232
 233 gdb_test "print foo.five_ptr_tdef.all(4)" \
 234          " = 13"
 235
 236 gdb_test "print foo.five_ptr_tdef.all(5)" \
 237          " = 21"
 238
 239 gdb_test "print foo.five_ptr_tdef.all(6)" \
 240          " = 34"
 241
 242 # foo.five_ptr_tdef
 243
 244 gdb_test "print foo.five_ptr_tdef(2)" \
 245          " = 5"
 246
 247 gdb_test "print foo.five_ptr_tdef(3)" \
 248          " = 8"
 249
 250 gdb_test "print foo.five_ptr_tdef(4)" \
 251          " = 13"
 252
 253 gdb_test "print foo.five_ptr_tdef(5)" \
 254          " = 21"
 255
 256 gdb_test "print foo.five_ptr_tdef(6)" \
 257          " = 34"