mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-02-05 12:53:16 +08:00
6d0aebbcff
On openSUSE Tumbleweed (using glibc 2.36), I run into:
...
(gdb) print /d (int) munmap (4198400, 4096)^M
Invalid cast.^M
(gdb) FAIL: gdb.base/break-main-file-remove-fail.exp: cmdline: \
get integer valueof "(int) munmap (4198400, 4096)"
...
The problem is that after starting the executable, the symbol has type
"void (*) (void)":
...
(gdb) p munmap
$1 = {<text variable, no debug info>} 0x401030 <munmap@plt>
(gdb) start
...
(gdb) p munmap
$2 = {void (void)} 0x7ffff7feb9a0 <__GI_munmap>
...
which causes the "Invalid cast" error.
Looking at the debug info for glibc for symbol __GI_munmap:
...
<0><189683>: Abbrev Number: 1 (DW_TAG_compile_unit)
<189691> DW_AT_name : ../sysdeps/unix/syscall-template.S
<189699> DW_AT_producer : GNU AS 2.39.0
<1><1896ae>: Abbrev Number: 2 (DW_TAG_subprogram)
<1896af> DW_AT_name : __GI___munmap
<1896b3> DW_AT_external : 1
<1896b4> DW_AT_low_pc : 0x10cad0
<1896bc> DW_AT_high_pc : 37
...
that's probably caused by this bit (or similar bits for other munmap aliases).
This is fixed in gas on trunk by commit 5578fbf672 ("GAS: Add a return type
tag to DWARF DIEs generated for function symbols").
Work around this (for say gas 2.39) by explicitly specifying the prototype for
munmap.
Likewise for getpid in a couple of other test-cases.
Tested on x86_64-linux.
108 lines
3.0 KiB
Plaintext
108 lines
3.0 KiB
Plaintext
# Copyright 2014-2022 Free Software Foundation, Inc.
|
|
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
# Test that GDB isn't silent if it fails to remove a breakpoint from
|
|
# the main program, independently of whether the program was loaded
|
|
# with "file PROGRAM" or directly from the command line with "gdb
|
|
# PROGRAM".
|
|
|
|
standard_testfile
|
|
|
|
if {[build_executable "failed to prepare" $testfile $srcfile debug]} {
|
|
return -1
|
|
}
|
|
|
|
# Run the test proper. INITIAL_LOAD determines whether the program is
|
|
# initially loaded by the "file" command or by passing it to GDB on
|
|
# the command line.
|
|
proc test_remove_bp { initial_load } {
|
|
with_test_prefix "$initial_load" {
|
|
global srcdir subdir binfile
|
|
global gdb_prompt hex
|
|
global GDBFLAGS
|
|
|
|
gdb_exit
|
|
|
|
set saved_gdbflags $GDBFLAGS
|
|
|
|
# See "used to behave differently" further below.
|
|
if { $initial_load == "file" } {
|
|
gdb_start
|
|
gdb_file_cmd $binfile
|
|
} else {
|
|
global last_loaded_file
|
|
|
|
# gdb_file_cmd sets this. This is what gdb_reload
|
|
# implementations use as binary.
|
|
set last_loaded_file $binfile
|
|
|
|
set GDBFLAGS "$GDBFLAGS $binfile"
|
|
gdb_start
|
|
}
|
|
gdb_reinitialize_dir $srcdir/$subdir
|
|
gdb_reload
|
|
set GDBFLAGS $saved_gdbflags
|
|
|
|
if ![runto start] {
|
|
return
|
|
}
|
|
|
|
delete_breakpoints
|
|
|
|
# So we can easily control when are breakpoints removed.
|
|
gdb_test_no_output "set breakpoint always-inserted on"
|
|
|
|
set bp_addr ""
|
|
|
|
set test "break foo"
|
|
gdb_test_multiple $test $test {
|
|
-re "Breakpoint .* at ($hex).*$gdb_prompt $" {
|
|
set bp_addr $expect_out(1,string)
|
|
pass $test
|
|
}
|
|
}
|
|
|
|
if {$bp_addr == ""} {
|
|
unsupported "can't extract foo's address"
|
|
return
|
|
}
|
|
|
|
gdb_test "info break" "y.*$hex.*in foo at.*" \
|
|
"breakpoint is set"
|
|
|
|
# Now unmap the page where the breakpoint is set. Trying to
|
|
# remove the memory breakpoint afterwards should fail, and GDB
|
|
# should warn the user about it.
|
|
set pagesize [get_integer_valueof "pg_size" 0]
|
|
set align_addr [expr $bp_addr - $bp_addr % $pagesize]
|
|
set munmap_prototype "int (*) (void *, size_t)"
|
|
set munmap_expr "(($munmap_prototype) munmap) ($align_addr, $pagesize)"
|
|
set munmap [get_integer_valueof $munmap_expr -1]
|
|
|
|
if {$munmap != 0} {
|
|
unsupported "can't munmap foo's page"
|
|
return
|
|
}
|
|
|
|
gdb_test "delete \$bpnum" \
|
|
"warning: Error removing breakpoint .*" \
|
|
"failure to remove breakpoint warns"
|
|
}
|
|
}
|
|
|
|
foreach initial_load { "cmdline" "file" } {
|
|
test_remove_bp $initial_load
|
|
}
|