OLD | NEW |
1 # Copyright 2010-2012 Free Software Foundation, Inc. | 1 # Copyright 2010-2013 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. |
(...skipping 17 matching lines...) Expand all Loading... |
29 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } { | 29 if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } { |
30 untested ${testfile}.exp | 30 untested ${testfile}.exp |
31 return -1 | 31 return -1 |
32 } | 32 } |
33 | 33 |
34 if ![runto_main] { | 34 if ![runto_main] { |
35 fail "Can't run to main" | 35 fail "Can't run to main" |
36 return | 36 return |
37 } | 37 } |
38 | 38 |
| 39 # With probes interface GDB no longer scans the inferior library list so its |
| 40 # corruption cannot be tested. There is no way to disable the probes |
| 41 # interface. |
| 42 |
| 43 set probes { init_start init_complete map_start reloc_complete unmap_start |
| 44 unmap_complete } |
| 45 set test "info probes" |
| 46 gdb_test_multiple $test $test { |
| 47 -re "^rtld\[ \t\]+(?:rtld_)?(\[a-z_\]+)\[ \t\]" { |
| 48 set idx [lsearch -exact $probes $expect_out(1,string)] |
| 49 if { $idx >= 0 } { |
| 50 set probes [lreplace $probes $idx $idx] |
| 51 } |
| 52 exp_continue |
| 53 } |
| 54 -re "^\[^\r\n\]*\r\n" { |
| 55 exp_continue |
| 56 } |
| 57 -re "^$gdb_prompt $" { |
| 58 } |
| 59 } |
| 60 if { [llength $probes] == 0 } { |
| 61 xfail $test |
| 62 untested "GDB is using probes" |
| 63 return |
| 64 } |
| 65 |
39 gdb_test "info sharedlibrary" "From * To .*" "normal list" | 66 gdb_test "info sharedlibrary" "From * To .*" "normal list" |
40 | 67 |
41 # GDB checks there for matching L_PREV. | 68 # GDB checks there for matching L_PREV. |
42 set test "make solibs looping" | 69 set test "make solibs looping" |
43 gdb_test_multiple "p/x _r_debug->r_map->l_next = _r_debug->r_map" $test { | 70 gdb_test_multiple "p/x _r_debug->r_map->l_next = _r_debug->r_map" $test { |
44 -re "(No symbol \"_r_debug\" in current context\\.|Attempt to extract a comp
onent of a value that is not a structure pointer\\.)\r\n$gdb_prompt $" { | 71 -re "(No symbol \"_r_debug\" in current context\\.|Attempt to extract a comp
onent of a value that is not a structure pointer\\.)\r\n$gdb_prompt $" { |
45 # glibc debug info is not available and it is too difficult to find and | 72 # glibc debug info is not available and it is too difficult to find and |
46 # parse it from this testcase without the gdb supporting functions. | 73 # parse it from this testcase without the gdb supporting functions. |
47 verbose -log "no _r_debug symbol has been found" | |
48 xfail $test | 74 xfail $test |
49 » untested ${testfile}.exp | 75 » untested "no _r_debug symbol has been found" |
50 return | 76 return |
51 } | 77 } |
52 -re " = 0x\[0-9a-f\]+\r\n$gdb_prompt $" { | 78 -re " = 0x\[0-9a-f\]+\r\n$gdb_prompt $" { |
53 pass $test | 79 pass $test |
54 } | 80 } |
55 } | 81 } |
56 gdb_test "info sharedlibrary" "warning: Corrupted shared library list: .*" "corr
upted list" | 82 gdb_test "info sharedlibrary" "warning: Corrupted shared library list: .*" "corr
upted list" |
OLD | NEW |