OLD | NEW |
1 # Copyright 2005, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 2005, 2007-2012 Free Software Foundation, Inc. |
2 # | 2 # |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
12 # | 12 # |
13 # You should have received a copy of the GNU General Public License | 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/>. | 14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
15 | 15 |
16 if $tracelevel then { | |
17 strace $tracelevel | |
18 } | |
19 | |
20 load_lib "ada.exp" | 16 load_lib "ada.exp" |
21 | 17 |
22 if { [skip_ada_tests] } { return -1 } | 18 if { [skip_ada_tests] } { return -1 } |
23 | 19 |
24 set testdir "arrayidx" | 20 set testdir "arrayidx" |
25 set testfile "${testdir}/p" | 21 set testfile "${testdir}/p" |
26 set srcfile ${srcdir}/${subdir}/${testfile}.adb | 22 set srcfile ${srcdir}/${subdir}/${testfile}.adb |
27 set binfile ${objdir}/${subdir}/${testfile} | 23 set binfile ${objdir}/${subdir}/${testfile} |
28 | 24 |
29 file mkdir ${objdir}/${subdir}/${testdir} | 25 file mkdir ${objdir}/${subdir}/${testdir} |
30 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} { | 26 if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} { |
31 return -1 | 27 return -1 |
32 } | 28 } |
33 | 29 |
| 30 if [get_compiler_info] { |
| 31 return -1; |
| 32 } |
| 33 set old_gcc [expr [test_compiler_info {gcc-[0-3]-*}] \ |
| 34 || [test_compiler_info {gcc-4-[0-6]-*}]] |
| 35 |
34 clean_restart ${testfile} | 36 clean_restart ${testfile} |
35 | 37 |
36 set bp_location [gdb_get_line_number "START" ${testdir}/p.adb] | 38 set bp_location [gdb_get_line_number "START" ${testdir}/p.adb] |
37 runto "p.adb:$bp_location" | 39 runto "p.adb:$bp_location" |
38 | 40 |
39 # First, print all the arrays without indexes | 41 # First, print all the arrays without indexes |
40 | 42 |
41 gdb_test_no_output "set print array-indexes off" | 43 gdb_test_no_output "set print array-indexes off" |
42 | 44 |
| 45 if $old_gcc { |
| 46 setup_xfail "*-*-*" |
| 47 } |
43 gdb_test "print one_two_three" \ | 48 gdb_test "print one_two_three" \ |
44 "= \\(1, 2, 3\\)" \ | 49 "= \\(1, 2, 3\\)" \ |
45 "print one_two_three, indexes off" | 50 "print one_two_three, indexes off" |
46 | 51 |
47 gdb_test "print e_one_two_three" \ | 52 gdb_test "print e_one_two_three" \ |
48 "= \\(1, 2, 3\\)" \ | 53 "= \\(1, 2, 3\\)" \ |
49 "print e_one_two_three, indexes off" | 54 "print e_one_two_three, indexes off" |
50 | 55 |
51 gdb_test "print r_two_three" \ | 56 gdb_test "print r_two_three" \ |
52 "= \\(two => 2, 3\\)" \ | 57 "= \\(two => 2, 3\\)" \ |
53 "print r_two_three, indexes off" | 58 "print r_two_three, indexes off" |
54 | 59 |
55 gdb_test "print u_one_two_three" \ | 60 gdb_test "print u_one_two_three" \ |
56 "= \\(1, 2, 3\\)" \ | 61 "= \\(1, 2, 3\\)" \ |
57 "print u_one_two_three, indexes off" | 62 "print u_one_two_three, indexes off" |
58 | 63 |
59 gdb_test "print p_one_two_three" \ | 64 gdb_test "print p_one_two_three" \ |
60 "= \\(0 => false, true, true\\)" \ | 65 "= \\(false, true, true\\)" \ |
61 "print p_one_two_three, indexes off" | 66 "print p_one_two_three, indexes off" |
62 | 67 |
| 68 if $old_gcc { |
| 69 setup_xfail "*-*-*" |
| 70 } |
63 gdb_test "print few_reps" \ | 71 gdb_test "print few_reps" \ |
64 "= \\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \ | 72 "= \\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \ |
65 "print few_reps, indexes off" | 73 "print few_reps, indexes off" |
66 | 74 |
| 75 if $old_gcc { |
| 76 setup_xfail "*-*-*" |
| 77 } |
67 gdb_test "print many_reps" \ | 78 gdb_test "print many_reps" \ |
68 "= \\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \ | 79 "= \\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \ |
69 "print many_reps, indexes off" | 80 "print many_reps, indexes off" |
70 | 81 |
| 82 if $old_gcc { |
| 83 setup_xfail "*-*-*" |
| 84 } |
71 gdb_test "print empty" \ | 85 gdb_test "print empty" \ |
72 "= \\(\\)" \ | 86 "= \\(\\)" \ |
73 "print empty, indexes off" | 87 "print empty, indexes off" |
74 | 88 |
75 # Next, print all the arrays with the indexes | 89 # Next, print all the arrays with the indexes |
76 | 90 |
77 gdb_test_no_output "set print array-indexes on" | 91 gdb_test_no_output "set print array-indexes on" |
78 | 92 |
| 93 if $old_gcc { |
| 94 setup_xfail "*-*-*" |
| 95 } |
79 gdb_test "print one_two_three" \ | 96 gdb_test "print one_two_three" \ |
80 "= \\(1 => 1, 2 => 2, 3 => 3\\)" \ | 97 "= \\(1 => 1, 2 => 2, 3 => 3\\)" \ |
81 "print one_two_three" | 98 "print one_two_three" |
82 | 99 |
83 gdb_test "print e_one_two_three" \ | 100 gdb_test "print e_one_two_three" \ |
84 "= \\(one => 1, two => 2, three => 3\\)" \ | 101 "= \\(one => 1, two => 2, three => 3\\)" \ |
85 "print e_one_two_three" | 102 "print e_one_two_three" |
86 | 103 |
87 gdb_test "print r_two_three" \ | 104 gdb_test "print r_two_three" \ |
88 "= \\(two => 2, three => 3\\)" \ | 105 "= \\(two => 2, three => 3\\)" \ |
89 "print r_two_three" | 106 "print r_two_three" |
90 | 107 |
91 gdb_test "print u_one_two_three" \ | 108 gdb_test "print u_one_two_three" \ |
92 "= \\(1 => 1, 2 => 2, 3 => 3\\)" \ | 109 "= \\(1 => 1, 2 => 2, 3 => 3\\)" \ |
93 "print u_one_two_three" | 110 "print u_one_two_three" |
94 | 111 |
95 gdb_test "print p_one_two_three" \ | 112 gdb_test "print p_one_two_three" \ |
96 "= \\(0 => false, 1 => true, 2 => true\\)" \ | 113 "= \\(one => false, two => true, three => true\\)" \ |
97 "print p_one_two_three" | 114 "print p_one_two_three" |
98 | 115 |
| 116 if $old_gcc { |
| 117 setup_xfail "*-*-*" |
| 118 } |
99 gdb_test "print few_reps" \ | 119 gdb_test "print few_reps" \ |
100 "= \\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9
=> 5\\)" \ | 120 "= \\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9
=> 5\\)" \ |
101 "print few_reps" | 121 "print few_reps" |
102 | 122 |
| 123 if $old_gcc { |
| 124 setup_xfail "*-*-*" |
| 125 } |
103 gdb_test "print many_reps" \ | 126 gdb_test "print many_reps" \ |
104 "= \\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \ | 127 "= \\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \ |
105 "print many_reps" | 128 "print many_reps" |
106 | 129 |
| 130 if $old_gcc { |
| 131 setup_xfail "*-*-*" |
| 132 } |
107 gdb_test "print empty" \ | 133 gdb_test "print empty" \ |
108 "= \\(\\)" \ | 134 "= \\(\\)" \ |
109 "print empty" | 135 "print empty" |
110 | 136 |
111 | 137 |
OLD | NEW |