OLD | NEW |
1 # Copyright 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 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 # This file is part of the gdb testsuite. It contains tests for printing | 16 # This file is part of the gdb testsuite. It contains tests for printing |
17 # the elements of an unbounded array using the Modula-2 language mode of | 17 # the elements of an unbounded array using the Modula-2 language mode of |
18 # gdb. | 18 # gdb. |
19 | 19 |
20 if $tracelevel then { | 20 standard_testfile unbounded1.c |
21 » strace $tracelevel | |
22 } | |
23 | 21 |
24 set testfile "unbounded1" | 22 if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug quiet}]} { |
25 set srcfile ${testfile}.c | 23 untested $testfile.exp |
26 set binfile ${objdir}/${subdir}/${testfile} | |
27 | |
28 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug quiet}] != "" } { | |
29 untested "Couldn't compile ${srcfile}" | |
30 return -1 | 24 return -1 |
31 } | 25 } |
32 | 26 |
33 gdb_exit | |
34 gdb_start | |
35 gdb_reinitialize_dir $srcdir/$subdir | |
36 gdb_load ${binfile} | |
37 | |
38 if ![runto foo] then { | 27 if ![runto foo] then { |
39 perror "couldn't run to breakpoint foo" | 28 perror "couldn't run to breakpoint foo" |
40 continue | 29 continue |
41 } | 30 } |
42 | 31 |
43 gdb_test "set lang modula-2" ".*does not match.*" "switch to modula-2" | 32 gdb_test "set lang modula-2" ".*does not match.*" "switch to modula-2" |
44 | 33 |
45 # gdb test "ptype a" ".*ARRAY OF.*" "print out unbounded ARRAY type" | 34 # gdb test "ptype a" ".*ARRAY OF.*" "print out unbounded ARRAY type" |
46 | 35 |
47 gdb_test "print HIGH(a)" ".*= 4.*" "print the last legal element of array a" | 36 gdb_test "print HIGH(a)" ".*= 4.*" "print the last legal element of array a" |
48 | 37 |
49 gdb_test "print a" ".*abcde.*HIGH.*4.*" "print unbounded array contents" | 38 gdb_test "print a" ".*abcde.*HIGH.*4.*" "print unbounded array contents" |
50 | 39 |
51 gdb_test "print/c a\[0\]" ".*a.*" "print the 1st element of array a" | 40 gdb_test "print/c a\[0\]" ".*a.*" "print the 1st element of array a" |
52 gdb_test "print/c a\[1\]" ".*b.*" "print the 2nd element of array a" | 41 gdb_test "print/c a\[1\]" ".*b.*" "print the 2nd element of array a" |
53 gdb_test "print/c a\[2\]" ".*c.*" "print the 3rd element of array a" | 42 gdb_test "print/c a\[2\]" ".*c.*" "print the 3rd element of array a" |
54 gdb_test "print/c a\[3\]" ".*d.*" "print the 4th element of array a" | 43 gdb_test "print/c a\[3\]" ".*d.*" "print the 4th element of array a" |
55 gdb_test "print/c a\[4\]" ".*e.*" "print the 5th element of array a" | 44 gdb_test "print/c a\[4\]" ".*e.*" "print the 5th element of array a" |
OLD | NEW |