1# Copyright 2009-2017 Free Software Foundation, Inc. 2 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 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 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/>. 15 16# This file is part of the gdb testsuite. 17 18# 19# This test tests some i386 general instructions with a precord dumpfile. 20# 21 22# This test suitable only for process record-replay 23if ![supports_process_record] { 24 return 25} 26 27 28if ![istarget "i?86-*linux*"] then { 29 verbose "Skipping i386 reverse tests." 30 return 31} 32 33standard_testfile i386-reverse.c 34set precsave [standard_output_file i386.precsave] 35 36# some targets have leading underscores on assembly symbols. 37set additional_flags [gdb_target_symbol_prefix_flags] 38 39if {[prepare_for_testing "failed to prepare" $testfile $srcfile \ 40 [list debug $additional_flags]]} { 41 return -1 42} 43 44set end_of_main [gdb_get_line_number " end of main "] 45set end_of_inc_dec_tests [gdb_get_line_number " end inc_dec_tests "] 46 47runto main 48 49if [supports_process_record] { 50 # Activate process record/replay 51 gdb_test_no_output "record" "turn on process record" 52} 53 54global hex 55global decimal 56 57gdb_test "break $end_of_main" \ 58 "Breakpoint $decimal at .*$srcfile, line $end_of_main\." \ 59 "breakpoint at end of main" 60 61gdb_test "continue" "Breakpoint .* end of main .*" "run to end of main" 62 63gdb_test "record save $precsave" \ 64 "Saved core file $precsave with execution log\." \ 65 "save process recfile" 66 67gdb_test "kill" "" "kill process, prepare to debug log file" \ 68 "Kill the program being debugged\\? \\(y or n\\) " "y" 69 70gdb_test "record restore $precsave" \ 71 "Restored records from core file .*" \ 72 "reload precord save file" 73 74gdb_test "step" "inc .eax.*" "step to inc eax 1st time" 75send_gdb "info reg eax\n" 76gdb_expect { 77 -re "eax *($hex)\t.*$gdb_prompt " { 78 set preinc_eax $expect_out(1,string) 79 } 80} 81 82gdb_test "step" "inc .ecx.*" "step to inc ecx 1st time" 83send_gdb "info reg ecx\n" 84gdb_expect { 85 -re "ecx *($hex)\t.*$gdb_prompt " { 86 set preinc_ecx $expect_out(1,string) 87 } 88} 89 90gdb_test "step" "inc .edx.*" "step to inc edx 1st time" 91send_gdb "info reg edx\n" 92gdb_expect { 93 -re "edx *($hex)\t.*$gdb_prompt " { 94 set preinc_edx $expect_out(1,string) 95 } 96} 97 98gdb_test "step" "inc .ebx.*" "step to inc ebx 1st time" 99send_gdb "info reg ebx\n" 100gdb_expect { 101 -re "ebx *($hex)\t.*$gdb_prompt " { 102 set preinc_ebx $expect_out(1,string) 103 } 104} 105 106gdb_test "step" "inc .esp.*" "step to inc esp 1st time" 107send_gdb "info reg esp\n" 108gdb_expect { 109 -re "esp *($hex)\t.*$gdb_prompt " { 110 set preinc_esp $expect_out(1,string) 111 } 112} 113 114gdb_test "step" "inc .ebp.*" "step to inc ebp 1st time" 115send_gdb "info reg ebp\n" 116gdb_expect { 117 -re "ebp *($hex)\t.*$gdb_prompt " { 118 set preinc_ebp $expect_out(1,string) 119 } 120} 121 122gdb_test "step" "inc .esi.*" "step to inc esi 1st time" 123send_gdb "info reg esi\n" 124gdb_expect { 125 -re "esi *($hex)\t.*$gdb_prompt " { 126 set preinc_esi $expect_out(1,string) 127 } 128} 129 130gdb_test "step" "inc .edi.*" "step to inc edi 1st time" 131send_gdb "info reg edi\n" 132gdb_expect { 133 -re "edi *($hex)\t.*$gdb_prompt " { 134 set preinc_edi $expect_out(1,string) 135 } 136} 137 138gdb_test "step" "dec .eax.*" "step to dec eax 1st time" 139send_gdb "info reg eax\n" 140gdb_expect { 141 -re "eax *($hex)\t.*$gdb_prompt " { 142 set predec_eax $expect_out(1,string) 143 } 144} 145 146gdb_test "step" "dec .ecx.*" "step to dec ecx 1st time" 147send_gdb "info reg ecx\n" 148gdb_expect { 149 -re "ecx *($hex)\t.*$gdb_prompt " { 150 set predec_ecx $expect_out(1,string) 151 } 152} 153 154gdb_test "step" "dec .edx.*" "step to dec edx 1st time" 155send_gdb "info reg edx\n" 156gdb_expect { 157 -re "edx *($hex)\t.*$gdb_prompt " { 158 set predec_edx $expect_out(1,string) 159 } 160} 161 162gdb_test "step" "dec .ebx.*" "step to dec ebx 1st time" 163send_gdb "info reg ebx\n" 164gdb_expect { 165 -re "ebx *($hex)\t.*$gdb_prompt " { 166 set predec_ebx $expect_out(1,string) 167 } 168} 169 170gdb_test "step" "dec .esp.*" "step to dec esp 1st time" 171send_gdb "info reg esp\n" 172gdb_expect { 173 -re "esp *($hex)\t.*$gdb_prompt " { 174 set predec_esp $expect_out(1,string) 175 } 176} 177 178gdb_test "step" "dec .ebp.*" "step to dec ebp 1st time" 179send_gdb "info reg ebp\n" 180gdb_expect { 181 -re "ebp *($hex)\t.*$gdb_prompt " { 182 set predec_ebp $expect_out(1,string) 183 } 184} 185 186gdb_test "step" "dec .esi.*" "step to dec esi 1st time" 187send_gdb "info reg esi\n" 188gdb_expect { 189 -re "esi *($hex)\t.*$gdb_prompt " { 190 set predec_esi $expect_out(1,string) 191 } 192} 193 194gdb_test "step" "dec .edi.*" "step to dec edi 1st time" 195send_gdb "info reg edi\n" 196gdb_expect { 197 -re "edi *($hex)\t.*$gdb_prompt " { 198 set predec_edi $expect_out(1,string) 199 } 200} 201 202# gdb_test "step" "end inc_dec_tests .*" "step to end inc_dec_tests 1st time" 203 204gdb_test "break $end_of_main" \ 205 "Breakpoint $decimal at .* line $end_of_main\." \ 206 "set breakpoint at end of main" 207 208gdb_test "continue" \ 209 " end of main .*" \ 210 "continue to end of main" 211 212gdb_test "break $end_of_inc_dec_tests" \ 213 "Breakpoint $decimal at .* line $end_of_inc_dec_tests\." \ 214 "set breakpoint at end of inc_dec_tests" 215 216gdb_test "reverse-continue" \ 217 " end inc_dec_tests .*" \ 218 "reverse to inc_dec_tests" 219 220# 221# Now reverse step, and check register values. 222# 223 224gdb_test "info reg edi" "edi *$preinc_edi\t.*" "edi before reverse-dec" 225gdb_test "reverse-step" "dec .edi.*" "reverse-step to dec edi" 226gdb_test "info reg edi" "edi *$predec_edi\t.*" "edi after reverse-dec" 227 228gdb_test "info reg esi" "esi *$preinc_esi\t.*" "esi before reverse-dec" 229gdb_test "reverse-step" "dec .esi.*" "reverse-step to dec esi" 230gdb_test "info reg esi" "esi *$predec_esi\t.*" "esi after reverse-dec" 231 232gdb_test "info reg ebp" "ebp *$preinc_ebp\t.*" "ebp before reverse-dec" 233gdb_test "reverse-step" "dec .ebp.*" "reverse-step to dec ebp" 234gdb_test "info reg ebp" "ebp *$predec_ebp\t.*" "ebp after reverse-dec" 235 236gdb_test "info reg esp" "esp *$preinc_esp\t.*" "esp before reverse-dec" 237gdb_test "reverse-step" "dec .esp.*" "reverse-step to dec esp" 238gdb_test "info reg esp" "esp *$predec_esp\t.*" "esp after reverse-dec" 239 240gdb_test "info reg ebx" "ebx *$preinc_ebx\t.*" "ebx before reverse-dec" 241gdb_test "reverse-step" "dec .ebx.*" "reverse-step to dec ebx" 242gdb_test "info reg ebx" "ebx *$predec_ebx\t.*" "ebx after reverse-dec" 243 244gdb_test "info reg edx" "edx *$preinc_edx\t.*" "edx before reverse-dec" 245gdb_test "reverse-step" "dec .edx.*" "reverse-step to dec edx" 246gdb_test "info reg edx" "edx *$predec_edx\t.*" "edx after reverse-dec" 247 248gdb_test "info reg ecx" "ecx *$preinc_ecx\t.*" "ecx before reverse-dec" 249gdb_test "reverse-step" "dec .ecx.*" "reverse-step to dec ecx" 250gdb_test "info reg ecx" "ecx *$predec_ecx\t.*" "ecx after reverse-dec" 251 252gdb_test "info reg eax" "eax *$preinc_eax\t.*" "eax before reverse-dec" 253gdb_test "reverse-step" "dec .eax.*" "reverse-step to dec eax" 254gdb_test "info reg eax" "eax *$predec_eax\t.*" "eax after reverse-dec" 255 256gdb_test "info reg edi" "edi *$predec_edi\t.*" "edi before reverse-inc" 257gdb_test "reverse-step" "inc .edi.*" "reverse-step to inc edi" 258gdb_test "info reg edi" "edi *$preinc_edi\t.*" "edi after reverse-inc" 259 260gdb_test "info reg esi" "esi *$predec_esi\t.*" "esi before reverse-inc" 261gdb_test "reverse-step" "inc .esi.*" "reverse-step to inc esi" 262gdb_test "info reg esi" "esi *$preinc_esi\t.*" "esi after reverse-inc" 263 264gdb_test "info reg ebp" "ebp *$predec_ebp\t.*" "ebp before reverse-inc" 265gdb_test "reverse-step" "inc .ebp.*" "reverse-step to inc ebp" 266gdb_test "info reg ebp" "ebp *$preinc_ebp\t.*" "ebp after reverse-inc" 267 268gdb_test "info reg esp" "esp *$predec_esp\t.*" "esp before reverse-inc" 269gdb_test "reverse-step" "inc .esp.*" "reverse-step to inc esp" 270gdb_test "info reg esp" "esp *$preinc_esp\t.*" "esp after reverse-inc" 271 272gdb_test "info reg ebx" "ebx *$predec_ebx\t.*" "ebx before reverse-inc" 273gdb_test "reverse-step" "inc .ebx.*" "reverse-step to inc ebx" 274gdb_test "info reg ebx" "ebx *$preinc_ebx\t.*" "ebx after reverse-inc" 275 276gdb_test "info reg edx" "edx *$predec_edx\t.*" "edx before reverse-inc" 277gdb_test "reverse-step" "inc .edx.*" "reverse-step to inc edx" 278gdb_test "info reg edx" "edx *$preinc_edx\t.*" "edx after reverse-inc" 279 280gdb_test "info reg ecx" "ecx *$predec_ecx\t.*" "ecx before reverse-inc" 281gdb_test "reverse-step" "inc .ecx.*" "reverse-step to inc ecx" 282gdb_test "info reg ecx" "ecx *$preinc_ecx\t.*" "ecx after reverse-inc" 283 284gdb_test "info reg eax" "eax *$predec_eax\t.*" "eax before reverse-inc" 285gdb_test "reverse-step" "inc .eax.*" "reverse-step to inc eax" 286gdb_test "info reg eax" "eax *$preinc_eax\t.*" "eax after reverse-inc" 287 288 289