This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / gdb / testsuite / gdb.ada / arrayidx.exp
1 # Copyright 2005 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 2 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, write to the Free Software
15 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
16 # MA 02110-1301, USA
17
18 if $tracelevel then {
19     strace $tracelevel
20 }
21
22 load_lib "ada.exp"
23
24 set testdir "arrayidx"
25 set testfile "${testdir}/p"
26 set srcfile ${srcdir}/${subdir}/${testfile}.adb
27 set binfile ${objdir}/${subdir}/${testfile}
28
29 file mkdir ${objdir}/${subdir}/${testdir}
30 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" } {
31   return -1
32 }
33
34 gdb_exit
35 gdb_start
36 gdb_reinitialize_dir $srcdir/$subdir
37 gdb_load ${binfile}
38
39 set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
40 runto "p.adb:$bp_location"
41
42 # First, print all the arrays without indexes
43
44 gdb_test "set print array-indexes off" \
45          ""  \
46          "set print array-indexes to off"
47
48 gdb_test "print one_two_three" \
49          "\\(1, 2, 3\\)" \
50          "print one_two_three, indexes off"
51
52 # There is a bug somewhere that causes the debugger to think that
53 # this array is indexed by an integer subrange, which it is actually
54 # indexed by an enumerated type. As a consequence, indexes for this
55 # array will be printed using their underlying integer value instead
56 # of their names. Also, even when printing this array without indexes,
57 # because the underlying value of the first enumeration is zero, the
58 # debugger ends up printing this index even when "array-indexes" are
59 # off, just because the index of the first element is not an enumerated
60 # type, and its value is not one.
61 setup_kfail "*-*-*" gdb/2018
62 gdb_test "print e_one_two_three" \
63          "\\(1, 2, 3\\)" \
64          "print e_one_two_three, indexes off"
65
66 # Same as when printing e_one_two_three above.
67 setup_kfail "*-*-*" gdb/2018
68 gdb_test "print r_two_three" \
69          "\\(two => 2, 3\\)" \
70          "print r_two_three, indexes off"
71
72 gdb_test "print u_one_two_three" \
73          "\\(1, 2, 3\\)" \
74          "print u_one_two_three, indexes off"
75
76 gdb_test "print p_one_two_three" \
77          "\\(0 => false, true, true\\)" \
78          "print p_one_two_three, indexes off"
79
80 gdb_test "print few_reps" \
81          "\\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \
82          "print few_reps, indexes off"
83
84 gdb_test "print many_reps" \
85          "\\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \
86          "print many_reps, indexes off"
87
88 gdb_test "print empty" \
89          "\\(\\)" \
90          "print empty, indexes off"
91
92 # Next, print all the arrays with the indexes
93
94 gdb_test "set print array-indexes on" \
95          ""  \
96          "set print array-indexes to on"
97
98 gdb_test "print one_two_three" \
99          "\\(1 => 1, 2 => 2, 3 => 3\\)" \
100          "print one_two_three"
101
102 # Same as first attempt at printing this array, we currently fail.
103 # See details above.
104 setup_kfail "*-*-*" gdb/2018
105 gdb_test "print e_one_two_three" \
106          "\\(one => 1, two => 2, three => 3\\)" \
107          "print e_one_two_three"
108
109 # Same as first attempt at printing this array, we currently fail.
110 # See details above.
111 setup_kfail "*-*-*" gdb/2018
112 gdb_test "print r_two_three" \
113          "\\(two => 2, three => 3\\)" \
114          "print r_two_three"
115
116 gdb_test "print u_one_two_three" \
117          "\\(1 => 1, 2 => 2, 3 => 3\\)" \
118          "print u_one_two_three"
119
120 gdb_test "print p_one_two_three" \
121          "\\(0 => false, 1 => true, 2 => true\\)" \
122          "print p_one_two_three"
123
124 gdb_test "print few_reps" \
125          "\\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9 => 5\\)" \
126          "print few_reps"
127
128 gdb_test "print many_reps" \
129          "\\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \
130          "print many_reps"
131
132 gdb_test "print empty" \
133          "\\(\\)" \
134          "print empty"
135
136