OLD | NEW |
1 # Copyright 1998-2000, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 1998-2000, 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 | 16 |
17 # This file is part of the gdb testsuite | 17 # This file is part of the gdb testsuite |
18 # file written by Elena Zannoni (ezannoni@cygnus.com) | 18 # file written by Elena Zannoni (ezannoni@cygnus.com) |
19 | 19 |
20 # | 20 # |
21 # tests for expressions with struct/array elements and mixed operator types | 21 # tests for expressions with struct/array elements and mixed operator types |
22 # with elementary types | 22 # with elementary types |
23 # | 23 # |
24 | 24 |
25 if $tracelevel then { | |
26 strace $tracelevel | |
27 } | |
28 | |
29 # By default, the datastructures are allocated on the stack. For targets | 25 # By default, the datastructures are allocated on the stack. For targets |
30 # with very small stack, that will not work. In that case, just set | 26 # with very small stack, that will not work. In that case, just set |
31 # storage to `-DSTORAGE=static' which changes the datastructures to be | 27 # storage to `-DSTORAGE=static' which changes the datastructures to be |
32 # allocated in data segment. | 28 # allocated in data segment. |
33 set storage "-DSTORAGE=" | 29 set storage "-DSTORAGE=" |
34 if [target_info exists gdb,small_stack_section] { | 30 if [target_info exists gdb,small_stack_section] { |
35 set storage "-DSTORAGE=static" | 31 set storage "-DSTORAGE=static" |
36 } | 32 } |
37 | 33 |
38 set additional_flags "additional_flags=${storage}" | 34 set additional_flags "additional_flags=${storage}" |
39 | 35 |
40 # | 36 # |
41 # test running programs | 37 # test running programs |
42 # | 38 # |
43 | 39 |
44 set testfile "miscexprs" | 40 set testfile "miscexprs" |
45 set srcfile ${testfile}.c | 41 set srcfile ${testfile}.c |
46 set binfile ${objdir}/${subdir}/${testfile} | 42 set binfile ${objdir}/${subdir}/${testfile} |
47 | 43 |
48 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [lis
t debug ${additional_flags} nowarnings]] != "" } { | 44 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [lis
t debug ${additional_flags} nowarnings]] != "" } { |
49 untested miscexprs.exp | 45 untested miscexprs.exp |
50 return -1 | 46 return -1 |
51 } | 47 } |
52 | 48 |
53 if [get_compiler_info ${binfile}] { | 49 if [get_compiler_info] { |
54 return -1; | 50 return -1; |
55 } | 51 } |
56 | 52 |
57 gdb_exit | 53 gdb_exit |
58 gdb_start | 54 gdb_start |
59 gdb_reinitialize_dir $srcdir/$subdir | 55 gdb_reinitialize_dir $srcdir/$subdir |
60 gdb_load ${binfile} | 56 gdb_load ${binfile} |
61 | 57 |
62 | 58 |
63 # | 59 # |
(...skipping 89 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
153 | 149 |
154 gdb_test "print ibig.i\[100\] << 2" " = 20" \ | 150 gdb_test "print ibig.i\[100\] << 2" " = 20" \ |
155 "print value of ibig.i\[100\] << 2" | 151 "print value of ibig.i\[100\] << 2" |
156 | 152 |
157 gdb_test "print sbig.s\[90\] >> 4" " = 15" \ | 153 gdb_test "print sbig.s\[90\] >> 4" " = 15" \ |
158 "print value of sbig.s\[90\] >> 4" | 154 "print value of sbig.s\[90\] >> 4" |
159 | 155 |
160 gdb_test "print lbig.l\[333\] >> 6" " = 15624999" \ | 156 gdb_test "print lbig.l\[333\] >> 6" " = 15624999" \ |
161 "print value of lbig.l\[333\] >> 6" | 157 "print value of lbig.l\[333\] >> 6" |
162 | 158 |
OLD | NEW |