Home | History | Annotate | Line # | Download | only in gdb.reverse
solib-reverse.exp revision 1.1 
      1 # Copyright 2009-2014 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.  It tests reverse debugging
     17 # with shared libraries.
     18 
     19 if ![supports_reverse] {
     20     return
     21 }
     22 if {[skip_shlib_tests]} {
     23     return
     24 }
     25 
     26 standard_testfile
     27 set lib1file "shr1"
     28 set lib1src  ${lib1file}.c
     29 set library1 [standard_output_file ${lib1file}.sl]
     30 set lib2file "shr2"
     31 set lib2src  ${lib2file}.c
     32 set library2 [standard_output_file ${lib2file}.sl]
     33 
     34 if [get_compiler_info] {
     35     return -1
     36 }
     37 
     38 # Compile the first without debug info so that
     39 # stepping and reverse stepping doesn't end up inside them.
     40 if { [gdb_compile_shlib ${srcdir}/${subdir}/${lib1src} ${library1} ""] != "" } {
     41     untested "Could not compile shared library1."
     42     return -1
     43 }
     44 
     45 if { [gdb_compile_shlib ${srcdir}/${subdir}/${lib2src} ${library2} "debug"] != "" } {
     46     untested "Could not compile shared library2."
     47     return -1
     48 }
     49 
     50 set exec_opts [list debug shlib=${library1} shlib=${library2}]
     51 
     52 if { [gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable $exec_opts] != "" } {
     53     untested "Could not compile $binfile."
     54     return -1
     55 }
     56 
     57 # Start with a fresh gdb.
     58 
     59 gdb_exit
     60 gdb_start
     61 
     62 # Note: The test previously did "set debug-file-directory" to (try to)
     63 # ensure the debug info for the dynamic loader and libc weren't found.
     64 # This doesn't work if the debug info is in the .debug subdirectory.
     65 # Avoiding debug info for system libraries is not germaine to this test
     66 # and is no longer attempted.  Instead, the test does not make assumptions
     67 # about whether the debug info is present or not.
     68 
     69 gdb_reinitialize_dir $srcdir/$subdir
     70 gdb_load ${binfile}
     71 gdb_load_shlibs $library1
     72 gdb_load_shlibs $library2
     73 
     74 runto main
     75 
     76 if [supports_process_record] {
     77     # Activate process record/replay
     78     gdb_test_no_output "record" "Turn on process record"
     79 }
     80 
     81 #
     82 # Test reverse-step over undebuggable solib functions.
     83 #
     84 
     85 # Run forward past some solib function calls.
     86 
     87 set end_part_one [gdb_get_line_number " end part one" "$srcfile"]
     88 set end_part_two [gdb_get_line_number " end part two" "$srcfile"]
     89 gdb_test "until $end_part_one" " end part one.*" "run until end part one"
     90 
     91 gdb_test "reverse-step" " shr1 three .*" "reverse-step third shr1"
     92 gdb_test "reverse-step" " shr1 two .*"   "reverse-step second shr1"
     93 gdb_test "reverse-step" " shr1 one .*"   "reverse-step first shr1"
     94 
     95 gdb_test "reverse-step" " generic statement.*" "reverse-step generic"
     96 
     97 
     98 #
     99 # Test reverse-next over undebuggable solib functions.
    100 #
    101 
    102 # Run forward again...
    103 
    104 gdb_test "until $end_part_one" " end part one.*" "forward to end part one"
    105 
    106 gdb_test "reverse-next" " shr1 three .*" "reverse-next third shr1"
    107 gdb_test "reverse-next" " shr1 two .*"   "reverse-next second shr1"
    108 gdb_test "reverse-next" " shr1 one .*"   "reverse-next first shr1"
    109 
    110 gdb_test "reverse-next" " generic statement.*" "reverse-next generic"
    111 
    112 
    113 #
    114 # Test reverse-step into debuggable solib function
    115 #
    116 
    117 gdb_test "reverse-step" "${lib2src}.*" "reverse-step into solib function one"
    118 gdb_test "reverse-step" "return 2.x.*" "reverse-step within solib function one"
    119 gdb_test "reverse-step" " middle part two.*" "reverse-step back to main one"
    120 
    121 gdb_test "reverse-step" "${lib2src}.*" "reverse-step into solib function two"
    122 gdb_test "reverse-step" "return 2.x.*" "reverse-step within solib function two"
    123 gdb_test "reverse-step" " begin part two.*" "reverse-step back to main two"
    124 
    125 #
    126 # Test reverse-next over debuggable solib function
    127 #
    128 
    129 gdb_test "until $end_part_two" " end part two.*" "run until end part two"
    130 
    131 gdb_test "reverse-next" " middle part two.*" "reverse-next over solib function one"
    132 gdb_test "reverse-next" " begin part two.*" "reverse-next over solib function two"
    133