OLD | NEW |
1 # Copyright 1999-2005, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 1999-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 # Test essential Machine interface (MI) operations | 16 # Test essential Machine interface (MI) operations |
17 # | 17 # |
18 # Verify that, using the MI, we can create, update, delete variables. | 18 # Verify that, using the MI, we can create, update, delete variables. |
19 # | 19 # |
20 | 20 |
21 | 21 |
22 load_lib mi-support.exp | 22 load_lib mi-support.exp |
23 set MIFLAGS "-i=mi2" | 23 set MIFLAGS "-i=mi2" |
24 | 24 |
25 gdb_exit | 25 gdb_exit |
26 if [mi_gdb_start] { | 26 if [mi_gdb_start] { |
27 continue | 27 continue |
28 } | 28 } |
29 | 29 |
30 set testfile "var-cmd" | 30 standard_testfile var-cmd.c |
31 set srcfile ${testfile}.c | 31 |
32 set binfile ${objdir}/${subdir}/mi2-var-display | 32 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug}] != "" } { |
33 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug additional_flags=-DFAKEARGV}] != "" } { | |
34 untested mi2-var-display.exp | 33 untested mi2-var-display.exp |
35 return -1 | 34 return -1 |
36 } | 35 } |
37 | 36 |
38 mi_delete_breakpoints | 37 mi_delete_breakpoints |
39 mi_gdb_reinitialize_dir $srcdir/$subdir | 38 mi_gdb_reinitialize_dir $srcdir/$subdir |
40 mi_gdb_load ${binfile} | 39 mi_gdb_load ${binfile} |
41 | 40 |
42 set line_dct_end [gdb_get_line_number "{int a = 0;}"] | 41 set line_dct_end [gdb_get_line_number "{int a = 0;}"] |
43 | 42 |
(...skipping 234 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
278 | 277 |
279 mi_gdb_test "-var-set-format weird.func_ptr hexadecimal" \ | 278 mi_gdb_test "-var-set-format weird.func_ptr hexadecimal" \ |
280 "\\^done,format=\"hexadecimal\",value=\"$hex\"" \ | 279 "\\^done,format=\"hexadecimal\",value=\"$hex\"" \ |
281 "set format variable weird.func_ptr" | 280 "set format variable weird.func_ptr" |
282 | 281 |
283 mi_gdb_test "-var-set-format weird.func_ptr_struct hexadecimal" \ | 282 mi_gdb_test "-var-set-format weird.func_ptr_struct hexadecimal" \ |
284 "\\^done,format=\"hexadecimal\",value=\"$hex\"" \ | 283 "\\^done,format=\"hexadecimal\",value=\"$hex\"" \ |
285 "set format variable weird.func_ptr_struct" | 284 "set format variable weird.func_ptr_struct" |
286 | 285 |
287 mi_gdb_test "-var-set-format weird.func_ptr_ptr natural" \ | 286 mi_gdb_test "-var-set-format weird.func_ptr_ptr natural" \ |
288 » "\\^done,format=\"natural\",value=\"0\"" \ | 287 » "\\^done,format=\"natural\",value=\"0x0\"" \ |
289 "set format variable weird.func_ptr_ptr" | 288 "set format variable weird.func_ptr_ptr" |
290 | 289 |
291 mi_gdb_test "-var-set-format weird.u1 natural" \ | 290 mi_gdb_test "-var-set-format weird.u1 natural" \ |
292 "\\^done,format=\"natural\",value=\"\{...\}\"" \ | 291 "\\^done,format=\"natural\",value=\"\{...\}\"" \ |
293 "set format variable weird.u1" | 292 "set format variable weird.u1" |
294 | 293 |
295 mi_gdb_test "-var-set-format weird.s2 natural" \ | 294 mi_gdb_test "-var-set-format weird.s2 natural" \ |
296 "\\^done,format=\"natural\",value=\"\{...\}\"" \ | 295 "\\^done,format=\"natural\",value=\"\{...\}\"" \ |
297 "set format variable weird.s2" | 296 "set format variable weird.s2" |
298 | 297 |
(...skipping 324 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
623 | 622 |
624 # set vals {} | 623 # set vals {} |
625 # lappend vals [$a1 value] | 624 # lappend vals [$a1 value] |
626 # lappend vals [$a2 value] | 625 # lappend vals [$a2 value] |
627 # set vals | 626 # set vals |
628 #} {2 1} | 627 #} {2 1} |
629 | 628 |
630 | 629 |
631 mi_gdb_exit | 630 mi_gdb_exit |
632 return 0 | 631 return 0 |
OLD | NEW |