OLD | NEW |
1 # Copyright 2008-2012 Free Software Foundation, Inc. | 1 # Copyright 2008-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 |
(...skipping 21 matching lines...) Expand all Loading... |
32 # shared library variable | 32 # shared library variable |
33 # heap variable (pointer)... | 33 # heap variable (pointer)... |
34 # overlay variables... | 34 # overlay variables... |
35 # Test forward replay | 35 # Test forward replay |
36 # | 36 # |
37 | 37 |
38 if ![supports_reverse] { | 38 if ![supports_reverse] { |
39 return | 39 return |
40 } | 40 } |
41 | 41 |
42 set testfile "machinestate" | 42 standard_testfile .c ms1.c |
43 set srcfile ${testfile}.c | |
44 set srcfile1 ms1.c | |
45 | 43 |
46 if { [prepare_for_testing $testfile.exp $testfile {machinestate.c ms1.c} ] } { | 44 if { [prepare_for_testing $testfile.exp $testfile \ |
| 45 » [list $srcfile $srcfile2]] } { |
47 return -1 | 46 return -1 |
48 } | 47 } |
49 | 48 |
50 set newline "\[\r\n\]+" | 49 set newline "\[\r\n\]+" |
51 | 50 |
52 set beginmain [gdb_get_line_number " begin main " $srcfile] | 51 set beginmain [gdb_get_line_number " begin main " $srcfile] |
53 set endmain [gdb_get_line_number " end main " $srcfile] | 52 set endmain [gdb_get_line_number " end main " $srcfile] |
54 | 53 |
55 # Test begins | 54 # Test begins |
56 | 55 |
(...skipping 163 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
220 gdb_test "tbreak $breakloc" ".*/$srcfile, line $breakloc.*" "" | 219 gdb_test "tbreak $breakloc" ".*/$srcfile, line $breakloc.*" "" |
221 gdb_test "continue" ".*/$srcfile:$breakloc.*" "forward to $breakloc" | 220 gdb_test "continue" ".*/$srcfile:$breakloc.*" "forward to $breakloc" |
222 | 221 |
223 gdb_test "print aglobal" ".* = 0$newline" "module global forward-breakpoint" | 222 gdb_test "print aglobal" ".* = 0$newline" "module global forward-breakpoint" |
224 gdb_test "reverse-step" ".*hide.*" "" | 223 gdb_test "reverse-step" ".*hide.*" "" |
225 gdb_test "step" ".*$newline$breakloc.*" "" | 224 gdb_test "step" ".*$newline$breakloc.*" "" |
226 gdb_test "print aglobal" ".* = 0$newline" "module global forward step-to" | 225 gdb_test "print aglobal" ".* = 0$newline" "module global forward step-to" |
227 gdb_test "step" ".* module global post-change .*" "" | 226 gdb_test "step" ".* module global post-change .*" "" |
228 gdb_test "print aglobal" ".* = 1$newline" "module global step post-change" | 227 gdb_test "print aglobal" ".* = 1$newline" "module global step post-change" |
229 | 228 |
OLD | NEW |