gdb/testsuite/gdb.reverse/i386-precsave.exp

   1 # Copyright 2009 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
  23 if ![target_info exists gdb,use_precord] {
  24     return
  25 }
  26
  27 if $tracelevel {
  28     strace $tracelevel
  29 }
  30
  31 set prms_id 0
  32 set bug_id 0
  33
  34 if ![istarget "i?86-*linux*"] then {
  35     verbose "Skipping i386 reverse tests."
  36     return
  37 }
  38
  39 set testfile "i386-reverse"
  40 set srcfile ${testfile}.c
  41 set binfile ${objdir}/${subdir}/${testfile}
  42
  43 # some targets have leading underscores on assembly symbols.
  44 # TODO: detect this automatically
  45 set additional_flags ""
  46 if [istarget "i?86-*-cygwin*"] then {
  47   set additional_flags "additional_flags=-DSYMBOL_PREFIX=\"_\""
  48 }
  49
  50 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug $additional_flags]] != "" } {
  51     untested i386-reverse
  52     return -1
  53 }
  54
  55 set end_of_main          [gdb_get_line_number " end of main "]
  56 set end_of_inc_dec_tests [gdb_get_line_number " end inc_dec_tests "]
  57
  58 # Get things started.
  59
  60 gdb_exit
  61 gdb_start
  62 gdb_reinitialize_dir $srcdir/$subdir
  63 gdb_load ${binfile}
  64 runto main
  65
  66 if [target_info exists gdb,use_precord] {
  67     # Activate process record/replay
  68     gdb_test "record" "" "Turn on process record"
  69     # FIXME: command ought to acknowledge, so we can test if it succeeded.
  70 }
  71
  72 global hex
  73 global decimal
  74
  75 gdb_test "break $end_of_main" \
  76     "Breakpoint $decimal at .*/$srcfile, line $end_of_main\." \
  77     "BP at end of main"
  78
  79 gdb_test "continue" "Breakpoint .* end of main .*" "run to end of main"
  80
  81 gdb_test "record save i386.precsave" \
  82     "Saved core file i386.precsave with execution log\."  \
  83     "save process recfile"
  84
  85 gdb_test "kill" "" "Kill process, prepare to debug log file" \
  86     "Kill the program being debugged\\? \\(y or n\\) " "y"
  87
  88 gdb_test "record restore i386.precsave" \
  89     "Program terminated with signal .*" \
  90     "reload precord save file"
  91
  92 gdb_test "step" "inc .eax.*" "step to inc eax 1st time"
  93 send_gdb "info reg eax\n"
  94 gdb_expect {
  95     -re "eax *($hex)\t.*$gdb_prompt " {
  96         set preinc_eax $expect_out(1,string)
  97     }
  98 }
  99
 100 gdb_test "step" "inc .ecx.*" "step to inc ecx 1st time"
 101 send_gdb "info reg ecx\n"
 102 gdb_expect {
 103     -re "ecx *($hex)\t.*$gdb_prompt " {
 104         set preinc_ecx $expect_out(1,string)
 105     }
 106 }
 107
 108 gdb_test "step" "inc .edx.*" "step to inc edx 1st time"
 109 send_gdb "info reg edx\n"
 110 gdb_expect {
 111     -re "edx *($hex)\t.*$gdb_prompt " {
 112         set preinc_edx $expect_out(1,string)
 113     }
 114 }
 115
 116 gdb_test "step" "inc .ebx.*" "step to inc ebx 1st time"
 117 send_gdb "info reg ebx\n"
 118 gdb_expect {
 119     -re "ebx *($hex)\t.*$gdb_prompt " {
 120         set preinc_ebx $expect_out(1,string)
 121     }
 122 }
 123
 124 gdb_test "step" "inc .esp.*" "step to inc esp 1st time"
 125 send_gdb "info reg esp\n"
 126 gdb_expect {
 127     -re "esp *($hex)\t.*$gdb_prompt " {
 128         set preinc_esp $expect_out(1,string)
 129     }
 130 }
 131
 132 gdb_test "step" "inc .ebp.*" "step to inc ebp 1st time"
 133 send_gdb "info reg ebp\n"
 134 gdb_expect {
 135     -re "ebp *($hex)\t.*$gdb_prompt " {
 136         set preinc_ebp $expect_out(1,string)
 137     }
 138 }
 139
 140 gdb_test "step" "inc .esi.*" "step to inc esi 1st time"
 141 send_gdb "info reg esi\n"
 142 gdb_expect {
 143     -re "esi *($hex)\t.*$gdb_prompt " {
 144         set preinc_esi $expect_out(1,string)
 145     }
 146 }
 147
 148 gdb_test "step" "inc .edi.*" "step to inc edi 1st time"
 149 send_gdb "info reg edi\n"
 150 gdb_expect {
 151     -re "edi *($hex)\t.*$gdb_prompt " {
 152         set preinc_edi $expect_out(1,string)
 153     }
 154 }
 155
 156 gdb_test "step" "dec .eax.*" "step to dec eax 1st time"
 157 send_gdb "info reg eax\n"
 158 gdb_expect {
 159     -re "eax *($hex)\t.*$gdb_prompt " {
 160         set predec_eax $expect_out(1,string)
 161     }
 162 }
 163
 164 gdb_test "step" "dec .ecx.*" "step to dec ecx 1st time"
 165 send_gdb "info reg ecx\n"
 166 gdb_expect {
 167     -re "ecx *($hex)\t.*$gdb_prompt " {
 168         set predec_ecx $expect_out(1,string)
 169     }
 170 }
 171
 172 gdb_test "step" "dec .edx.*" "step to dec edx 1st time"
 173 send_gdb "info reg edx\n"
 174 gdb_expect {
 175     -re "edx *($hex)\t.*$gdb_prompt " {
 176         set predec_edx $expect_out(1,string)
 177     }
 178 }
 179
 180 gdb_test "step" "dec .ebx.*" "step to dec ebx 1st time"
 181 send_gdb "info reg ebx\n"
 182 gdb_expect {
 183     -re "ebx *($hex)\t.*$gdb_prompt " {
 184         set predec_ebx $expect_out(1,string)
 185     }
 186 }
 187
 188 gdb_test "step" "dec .esp.*" "step to dec esp 1st time"
 189 send_gdb "info reg esp\n"
 190 gdb_expect {
 191     -re "esp *($hex)\t.*$gdb_prompt " {
 192         set predec_esp $expect_out(1,string)
 193     }
 194 }
 195
 196 gdb_test "step" "dec .ebp.*" "step to dec ebp 1st time"
 197 send_gdb "info reg ebp\n"
 198 gdb_expect {
 199     -re "ebp *($hex)\t.*$gdb_prompt " {
 200         set predec_ebp $expect_out(1,string)
 201     }
 202 }
 203
 204 gdb_test "step" "dec .esi.*" "step to dec esi 1st time"
 205 send_gdb "info reg esi\n"
 206 gdb_expect {
 207     -re "esi *($hex)\t.*$gdb_prompt " {
 208         set predec_esi $expect_out(1,string)
 209     }
 210 }
 211
 212 gdb_test "step" "dec .edi.*" "step to dec edi 1st time"
 213 send_gdb "info reg edi\n"
 214 gdb_expect {
 215     -re "edi *($hex)\t.*$gdb_prompt " {
 216         set predec_edi $expect_out(1,string)
 217     }
 218 }
 219
 220 # gdb_test "step" "end inc_dec_tests .*" "step to end inc_dec_tests 1st time"
 221
 222 gdb_test "break $end_of_main" \
 223     "Breakpoint $decimal at .* line $end_of_main\." \
 224     "set breakpoint at end of main"
 225
 226 gdb_test "continue" \
 227     " end of main .*" \
 228     "continue to end of main"
 229
 230 gdb_test "break $end_of_inc_dec_tests" \
 231     "Breakpoint $decimal at .* line $end_of_inc_dec_tests\." \
 232     "set breakpoint at end of inc_dec_tests"
 233
 234 gdb_test "reverse-continue" \
 235     " end inc_dec_tests .*" \
 236     "reverse to inc_dec_tests"
 237
 238 #
 239 # Now reverse step, and check register values.
 240 #
 241
 242 gdb_test "info reg edi" "edi *$preinc_edi\t.*" "edi before reverse-dec"
 243 gdb_test "reverse-step" "dec .edi.*" "reverse-step to dec edi"
 244 gdb_test "info reg edi" "edi *$predec_edi\t.*" "edi after reverse-dec"
 245
 246 gdb_test "info reg esi" "esi *$preinc_esi\t.*" "esi before reverse-dec"
 247 gdb_test "reverse-step" "dec .esi.*" "reverse-step to dec esi"
 248 gdb_test "info reg esi" "esi *$predec_esi\t.*" "esi after reverse-dec"
 249
 250 gdb_test "info reg ebp" "ebp *$preinc_ebp\t.*" "ebp before reverse-dec"
 251 gdb_test "reverse-step" "dec .ebp.*" "reverse-step to dec ebp"
 252 gdb_test "info reg ebp" "ebp *$predec_ebp\t.*" "ebp after reverse-dec"
 253
 254 gdb_test "info reg esp" "esp *$preinc_esp\t.*" "esp before reverse-dec"
 255 gdb_test "reverse-step" "dec .esp.*" "reverse-step to dec esp"
 256 gdb_test "info reg esp" "esp *$predec_esp\t.*" "esp after reverse-dec"
 257
 258 gdb_test "info reg ebx" "ebx *$preinc_ebx\t.*" "ebx before reverse-dec"
 259 gdb_test "reverse-step" "dec .ebx.*" "reverse-step to dec ebx"
 260 gdb_test "info reg ebx" "ebx *$predec_ebx\t.*" "ebx after reverse-dec"
 261
 262 gdb_test "info reg edx" "edx *$preinc_edx\t.*" "edx before reverse-dec"
 263 gdb_test "reverse-step" "dec .edx.*" "reverse-step to dec edx"
 264 gdb_test "info reg edx" "edx *$predec_edx\t.*" "edx after reverse-dec"
 265
 266 gdb_test "info reg ecx" "ecx *$preinc_ecx\t.*" "ecx before reverse-dec"
 267 gdb_test "reverse-step" "dec .ecx.*" "reverse-step to dec ecx"
 268 gdb_test "info reg ecx" "ecx *$predec_ecx\t.*" "ecx after reverse-dec"
 269
 270 gdb_test "info reg eax" "eax *$preinc_eax\t.*" "eax before reverse-dec"
 271 gdb_test "reverse-step" "dec .eax.*" "reverse-step to dec eax"
 272 gdb_test "info reg eax" "eax *$predec_eax\t.*" "eax after reverse-dec"
 273
 274 gdb_test "info reg edi" "edi *$predec_edi\t.*" "edi before reverse-inc"
 275 gdb_test "reverse-step" "inc .edi.*" "reverse-step to inc edi"
 276 gdb_test "info reg edi" "edi *$preinc_edi\t.*" "edi after reverse-inc"
 277
 278 gdb_test "info reg esi" "esi *$predec_esi\t.*" "esi before reverse-inc"
 279 gdb_test "reverse-step" "inc .esi.*" "reverse-step to inc esi"
 280 gdb_test "info reg esi" "esi *$preinc_esi\t.*" "esi after reverse-inc"
 281
 282 gdb_test "info reg ebp" "ebp *$predec_ebp\t.*" "ebp before reverse-inc"
 283 gdb_test "reverse-step" "inc .ebp.*" "reverse-step to inc ebp"
 284 gdb_test "info reg ebp" "ebp *$preinc_ebp\t.*" "ebp after reverse-inc"
 285
 286 gdb_test "info reg esp" "esp *$predec_esp\t.*" "esp before reverse-inc"
 287 gdb_test "reverse-step" "inc .esp.*" "reverse-step to inc esp"
 288 gdb_test "info reg esp" "esp *$preinc_esp\t.*" "esp after reverse-inc"
 289
 290 gdb_test "info reg ebx" "ebx *$predec_ebx\t.*" "ebx before reverse-inc"
 291 gdb_test "reverse-step" "inc .ebx.*" "reverse-step to inc ebx"
 292 gdb_test "info reg ebx" "ebx *$preinc_ebx\t.*" "ebx after reverse-inc"
 293
 294 gdb_test "info reg edx" "edx *$predec_edx\t.*" "edx before reverse-inc"
 295 gdb_test "reverse-step" "inc .edx.*" "reverse-step to inc edx"
 296 gdb_test "info reg edx" "edx *$preinc_edx\t.*" "edx after reverse-inc"
 297
 298 gdb_test "info reg ecx" "ecx *$predec_ecx\t.*" "ecx before reverse-inc"
 299 gdb_test "reverse-step" "inc .ecx.*" "reverse-step to inc ecx"
 300 gdb_test "info reg ecx" "ecx *$preinc_ecx\t.*" "ecx after reverse-inc"
 301
 302 gdb_test "info reg eax" "eax *$predec_eax\t.*" "eax before reverse-inc"
 303 gdb_test "reverse-step" "inc .eax.*" "reverse-step to inc eax"
 304 gdb_test "info reg eax" "eax *$preinc_eax\t.*" "eax after reverse-inc"
 305
 306