gdb/sol2-tdep.c

   1 /* Target-dependent code for Solaris.
   2
   3    Copyright (C) 2006-2020 Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 #include "defs.h"
  21 #include "frame.h"
  22 #include "symtab.h"
  23 #include "inferior.h"
  24 #include "objfiles.h"
  25
  26 #include "sol2-tdep.h"
  27
  28 CORE_ADDR
  29 sol2_skip_solib_resolver (struct gdbarch *gdbarch, CORE_ADDR pc)
  30 {
  31   struct bound_minimal_symbol msym;
  32
  33   msym = lookup_minimal_symbol("elf_bndr", NULL, NULL);
  34   if (msym.minsym && BMSYMBOL_VALUE_ADDRESS (msym) == pc)
  35     return frame_unwind_caller_pc (get_current_frame ());
  36
  37   return 0;
  38 }
  39
  40 /* This is how we want PTIDs from Solaris core files to be
  41    printed.  */
  42
  43 std::string
  44 sol2_core_pid_to_str (struct gdbarch *gdbarch, ptid_t ptid)
  45 {
  46   struct inferior *inf;
  47   int pid;
  48
  49   /* Check whether we're printing an LWP (gdb thread) or a
  50      process.  */
  51   pid = ptid.lwp ();
  52   if (pid != 0)
  53     {
  54       /* A thread.  */
  55       return string_printf ("LWP %ld", ptid.lwp ());
  56     }
  57
  58   /* GDB didn't use to put a NT_PSTATUS note in Solaris cores.  If
  59      that's missing, then we're dealing with a fake PID corelow.c made
  60      up.  */
  61   inf = find_inferior_ptid (current_inferior ()->process_target (), ptid);
  62   if (inf == NULL || inf->fake_pid_p)
  63     return "<core>";
  64
  65   /* Not fake; print as usual.  */
  66   return normal_pid_to_str (ptid);
  67 }