OLD | NEW |
1 # Copyright 2009, 2011-2012 Free Software Foundation, Inc. | 1 # Copyright 2009, 2011-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 Machine interface (MI) operations | 16 # Test Machine interface (MI) operations |
17 # Verify that, using the MI, we can run a simple program in both forward | 17 # Verify that, using the MI, we can run a simple program in both forward |
18 # and reverse directions with the following execution commands: | 18 # and reverse directions with the following execution commands: |
19 # - exec-continue | 19 # - exec-continue |
20 # - exec-finish | 20 # - exec-finish |
21 # - exec-next | 21 # - exec-next |
22 # - exec-step | 22 # - exec-step |
23 # - exec-next-instruction | 23 # - exec-next-instruction |
24 # - exec-step-instruction | 24 # - exec-step-instruction |
25 | 25 |
26 # The goal is not to test gdb functionality, which is done by other tests, | 26 # The goal is not to test gdb functionality, which is done by other tests, |
27 # but to verify the correct output response to MI operations. | 27 # but to verify the correct output response to MI operations. |
28 # | 28 # |
29 | 29 |
30 if ![target_info exists gdb,can_reverse] { | 30 if ![supports_reverse] { |
31 return | 31 return |
32 } | 32 } |
33 | 33 |
34 load_lib mi-support.exp | 34 load_lib mi-support.exp |
35 set MIFLAGS "-i=mi" | 35 set MIFLAGS "-i=mi" |
36 | 36 |
37 gdb_exit | 37 gdb_exit |
38 if [mi_gdb_start] { | 38 if [mi_gdb_start] { |
39 continue | 39 continue |
40 } | 40 } |
41 | 41 |
42 set testfile mi-reverse | 42 standard_testfile basics.c |
43 set srcfile basics.c | 43 |
44 set binfile ${objdir}/${subdir}/mi2-reverse | 44 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug}] != "" } { |
45 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
ug additional_flags=-DFAKEARGV}] != "" } { | |
46 untested ${testfile}.exp | 45 untested ${testfile}.exp |
47 return -1 | 46 return -1 |
48 } | 47 } |
49 | 48 |
50 mi_run_to_main | 49 mi_run_to_main |
51 | 50 |
52 if [target_info exists gdb,use_precord] { | 51 if [supports_process_record] { |
53 # Activate process record/replay | 52 # Activate process record/replay |
54 if [mi_gdb_test "-interpreter-exec console record" \ | 53 if [mi_gdb_test "-interpreter-exec console record" \ |
55 {\^done} "Turn on process record"] { | 54 {\^done} "Turn on process record"] { |
56 warning "Fail to activate process record/replay, tests in this group wil
l not be performed.\n"; | 55 warning "Fail to activate process record/replay, tests in this group wil
l not be performed.\n"; |
57 return -1 | 56 return -1 |
58 } | 57 } |
59 } | 58 } |
60 | 59 |
61 # Locate line numbers in basics.c. | 60 # Locate line numbers in basics.c. |
62 set line_callee4_head [gdb_get_line_number "callee4 ("] | 61 set line_callee4_head [gdb_get_line_number "callee4 ("] |
(...skipping 101 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
164 mi_execute_to "exec-continue --reverse" \ | 163 mi_execute_to "exec-continue --reverse" \ |
165 "" "main" "" \ | 164 "" "main" "" \ |
166 "basics.c" $line_main_body "" \ | 165 "basics.c" $line_main_body "" \ |
167 "reverse-continue at main" | 166 "reverse-continue at main" |
168 } | 167 } |
169 | 168 |
170 test_controlled_execution_reverse | 169 test_controlled_execution_reverse |
171 | 170 |
172 mi_gdb_exit | 171 mi_gdb_exit |
173 return 0 | 172 return 0 |
OLD | NEW |