From 141c5cc4c44a6ce1a5c628c0f4849a8b1c91d383 Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Tue, 15 Sep 2015 19:08:04 +0200 Subject: [PATCH] [ppc64le] Use skip_entrypoint for skip_trampoline_code ppc64le loses control when stepping between two PLT-called functions inside a shared library: 29 shlib_second (); /* first-hit */^M (gdb) PASS: gdb.base/solib-intra-step.exp: first-hit step^M ^M Program received signal SIGABRT, Aborted.^M 0x00003fffb7cbe578 in __GI_raise (sig=) at ../nptl/sysdeps/unix/sysv/linux/raise.c:56^M 56 return INLINE_SYSCALL (tgkill, 3, pid, selftid, sig);^M (gdb) FAIL: gdb.base/solib-intra-step.exp: second-hit -> 29 shlib_second (); /* first-hit */^M (gdb) PASS: gdb.base/solib-intra-step.exp: first-hit step^M shlib_second () at ./gdb.base/solib-intra-step-lib.c:23^M 23 abort (); /* second-hit */^M (gdb) PASS: gdb.base/solib-intra-step.exp: second-hit This is because gdbarch_skip_trampoline_code() will resolve the final function as shlib_second+0 and place there the breakpoint, but ld.so will jump after the breakpoint - at shlib_second+8 - as it is ELFv2 local symbol optimization: Dump of assembler code for function shlib_second: 0x0000000000000804 <+0>: addis r2,r12,2 0x0000000000000808 <+4>: addi r2,r2,30668 0x000000000000080c <+8>: mflr r0 Currently gdbarch_skip_entrypoint() has been called in skip_prologue_sal() and fill_in_stop_func() but that is not enough. I believe gdbarch_skip_entrypoint() should be called after every gdbarch_skip_trampoline_code(). gdb/ChangeLog 2015-09-15 Jan Kratochvil * linespec.c (minsym_found): Call gdbarch_skip_entrypoint. * ppc64-tdep.c (ppc64_skip_trampoline_code): Rename to ... (ppc64_skip_trampoline_code_1): ... here. (ppc64_skip_trampoline_code): New wrapper function. * symtab.c (find_function_start_sal): Call gdbarch_skip_entrypoint. gdb/testsuite/ChangeLog 2015-09-15 Jan Kratochvil * gdb.opt/solib-intra-step-lib.c: New file. * gdb.opt/solib-intra-step-main.c: New file. * gdb.opt/solib-intra-step.exp: New file. --- gdb/ChangeLog | 8 ++ gdb/linespec.c | 2 + gdb/ppc64-tdep.c | 18 +++- gdb/symtab.c | 4 + gdb/testsuite/ChangeLog | 6 ++ gdb/testsuite/gdb.opt/solib-intra-step-lib.c | 30 +++++++ gdb/testsuite/gdb.opt/solib-intra-step-main.c | 25 ++++++ gdb/testsuite/gdb.opt/solib-intra-step.exp | 86 +++++++++++++++++++ 8 files changed, 177 insertions(+), 2 deletions(-) create mode 100644 gdb/testsuite/gdb.opt/solib-intra-step-lib.c create mode 100644 gdb/testsuite/gdb.opt/solib-intra-step-main.c create mode 100644 gdb/testsuite/gdb.opt/solib-intra-step.exp diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 9932d60edb..01c7348581 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,11 @@ +2015-09-15 Jan Kratochvil + + * linespec.c (minsym_found): Call gdbarch_skip_entrypoint. + * ppc64-tdep.c (ppc64_skip_trampoline_code): Rename to ... + (ppc64_skip_trampoline_code_1): ... here. + (ppc64_skip_trampoline_code): New wrapper function. + * symtab.c (find_function_start_sal): Call gdbarch_skip_entrypoint. + 2015-09-15 Yao Qi * aarch64-linux-nat.c (aarch64_linux_can_do_single_step): New diff --git a/gdb/linespec.c b/gdb/linespec.c index 8f102fac1a..4c29c124f3 100644 --- a/gdb/linespec.c +++ b/gdb/linespec.c @@ -3570,6 +3570,8 @@ minsym_found (struct linespec_state *self, struct objfile *objfile, sal.pc = MSYMBOL_VALUE_ADDRESS (objfile, msymbol); sal.pc = gdbarch_convert_from_func_ptr_addr (gdbarch, sal.pc, ¤t_target); + if (gdbarch_skip_entrypoint_p (gdbarch)) + sal.pc = gdbarch_skip_entrypoint (gdbarch, sal.pc); } else skip_prologue_sal (&sal); diff --git a/gdb/ppc64-tdep.c b/gdb/ppc64-tdep.c index bb23b6a2ee..4a0b93a5bf 100644 --- a/gdb/ppc64-tdep.c +++ b/gdb/ppc64-tdep.c @@ -454,8 +454,8 @@ ppc64_standard_linkage4_target (struct frame_info *frame, When the execution direction is EXEC_REVERSE, scan backward to check whether we are in the middle of a PLT stub. */ -CORE_ADDR -ppc64_skip_trampoline_code (struct frame_info *frame, CORE_ADDR pc) +static CORE_ADDR +ppc64_skip_trampoline_code_1 (struct frame_info *frame, CORE_ADDR pc) { #define MAX(a,b) ((a) > (b) ? (a) : (b)) unsigned int insns[MAX (MAX (MAX (ARRAY_SIZE (ppc64_standard_linkage1), @@ -530,6 +530,20 @@ ppc64_skip_trampoline_code (struct frame_info *frame, CORE_ADDR pc) return 0; } +/* Wrapper of ppc64_skip_trampoline_code_1 checking also + ppc_elfv2_skip_entrypoint. */ + +CORE_ADDR +ppc64_skip_trampoline_code (struct frame_info *frame, CORE_ADDR pc) +{ + struct gdbarch *gdbarch = get_frame_arch (frame); + + pc = ppc64_skip_trampoline_code_1 (frame, pc); + if (pc != 0 && gdbarch_skip_entrypoint_p (gdbarch)) + pc = gdbarch_skip_entrypoint (gdbarch, pc); + return pc; +} + /* Support for convert_from_func_ptr_addr (ARCH, ADDR, TARG) on PPC64 GNU/Linux. diff --git a/gdb/symtab.c b/gdb/symtab.c index 1ba691e2a3..f65e809cb2 100644 --- a/gdb/symtab.c +++ b/gdb/symtab.c @@ -3629,7 +3629,11 @@ find_function_start_sal (struct symbol *sym, int funfirstline) && (COMPUNIT_LOCATIONS_VALID (SYMTAB_COMPUNIT (sal.symtab)) || SYMTAB_LANGUAGE (sal.symtab) == language_asm)) { + struct gdbarch *gdbarch = symbol_arch (sym); + sal.pc = BLOCK_START (SYMBOL_BLOCK_VALUE (sym)); + if (gdbarch_skip_entrypoint_p (gdbarch)) + sal.pc = gdbarch_skip_entrypoint (gdbarch, sal.pc); return sal; } diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e951a13728..f56bb487c2 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2015-09-15 Jan Kratochvil + + * gdb.opt/solib-intra-step-lib.c: New file. + * gdb.opt/solib-intra-step-main.c: New file. + * gdb.opt/solib-intra-step.exp: New file. + 2015-09-15 Pedro Alves * gdb.threads/non-ldr-exc-3.exp (do_test): Use diff --git a/gdb/testsuite/gdb.opt/solib-intra-step-lib.c b/gdb/testsuite/gdb.opt/solib-intra-step-lib.c new file mode 100644 index 0000000000..9ab1211b44 --- /dev/null +++ b/gdb/testsuite/gdb.opt/solib-intra-step-lib.c @@ -0,0 +1,30 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2015 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 . */ + +#include + +void +shlib_second (int dummy) +{ /* second-retry */ + abort (); /* second-hit */ +} + +void +shlib_first (void) +{ /* first-retry */ + shlib_second (0); /* first-hit */ +} diff --git a/gdb/testsuite/gdb.opt/solib-intra-step-main.c b/gdb/testsuite/gdb.opt/solib-intra-step-main.c new file mode 100644 index 0000000000..186bd5f3ea --- /dev/null +++ b/gdb/testsuite/gdb.opt/solib-intra-step-main.c @@ -0,0 +1,25 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2015 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 . */ + +extern void shlib_first (void); + +int +main (void) +{ + shlib_first (); + return 0; +} diff --git a/gdb/testsuite/gdb.opt/solib-intra-step.exp b/gdb/testsuite/gdb.opt/solib-intra-step.exp new file mode 100644 index 0000000000..044c4bddb3 --- /dev/null +++ b/gdb/testsuite/gdb.opt/solib-intra-step.exp @@ -0,0 +1,86 @@ +# Copyright 2015 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 . + +standard_testfile + +if {[skip_shlib_tests]} { + return 0 +} + +# Library file. +set libname "${testfile}-lib" +set srcfile_lib ${srcdir}/${subdir}/${libname}.c +set binfile_lib [standard_output_file ${libname}.so] +set lib_flags [list debug optimize=-O2] +# Binary file. +set testfile "${testfile}-main" +set srcfile ${srcdir}/${subdir}/${testfile}.c +set binfile [standard_output_file ${testfile}] +set bin_flags [list debug shlib=${binfile_lib}] + +if [get_compiler_info] { + return -1 +} + +if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib} $lib_flags] != "" + || [gdb_compile ${srcfile} ${binfile} executable $bin_flags] != "" } { + untested "Could not compile $binfile_lib or $binfile." + return -1 +} + +clean_restart ${binfile} +gdb_load_shlibs $binfile_lib + +if ![runto_main] then { + return 0 +} + +set test "first-hit" +gdb_test_multiple "step" $test { + -re " first-hit .*\r\n$gdb_prompt $" { + pass $test + } + -re " first-retry .*\r\n$gdb_prompt $" { + gdb_test "step" " first-hit .*" "first-hit (optimized)" + } +} + +set test "second-hit" +gdb_test_multiple "step" $test { + -re " second-hit .*\r\n$gdb_prompt $" { + pass $test + } + -re " first-retry .*\r\n$gdb_prompt $" { + set test "second-hit (optimized 1)" + gdb_test_multiple "step" $test { + -re " second-hit .*\r\n$gdb_prompt $" { + pass $test + } + -re " first-hit .*\r\n$gdb_prompt $" { + gdb_test "step" " second-hit .*" "second-hit (optimized 2)" + } + } + } + -re " second-retry .*\r\n$gdb_prompt $" { + gdb_test "step" " second-hit .*" "second-hit (optimized 3)" + } +} + +if ![runto_main] then { + return 0 +} + +gdb_breakpoint "shlib_second" +gdb_continue_to_breakpoint "second-hit" ".* (second-hit|second-retry) .*" -- 2.34.1