gdb/fbsd-proc.c

   1 /* FreeBSD-specific methods for using the /proc file system.
   2
   3    Copyright 2002, 2003 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 2 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, write to the Free Software
  19    Foundation, Inc., 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 #include "defs.h"
  23 #include "gdbcore.h"
  24 #include "inferior.h"
  25 #include "gdb_string.h"
  26
  27 #include <sys/procfs.h>
  28 #include <sys/types.h>
  29
  30 #include "elf-bfd.h"
  31
  32 #include "gregset.h"
  33
  34 char *
  35 child_pid_to_exec_file (int pid)
  36 {
  37   char *path;
  38   char *buf;
  39
  40   xasprintf (&path, "/proc/%d/file", pid);
  41   buf = xcalloc (MAXPATHLEN, sizeof (char));
  42   make_cleanup (xfree, path);
  43   make_cleanup (xfree, buf);
  44
  45   if (readlink (path, buf, MAXPATHLEN) > 0)
  46     return buf;
  47
  48   return NULL;
  49 }
  50
  51 static int
  52 read_mapping (FILE *mapfile, unsigned long *start, unsigned long *end,
  53               char *protection)
  54 {
  55   int resident, privateresident;
  56   unsigned long obj;
  57   int ref_count, shadow_count;
  58   unsigned flags;
  59   char cow[5], access[4];
  60   char type[8];
  61   int ret;
  62
  63   /* The layout is described in /usr/src/miscfs/procfs/procfs_map.c.  */
  64   ret = fscanf (mapfile, "%lx %lx %d %d %lx %s %d %d %x %s %s %s\n",
  65                 start, end,
  66                 &resident, &privateresident, &obj,
  67                 protection,
  68                 &ref_count, &shadow_count, &flags, cow, access, type);
  69
  70   return (ret != 0 && ret != EOF);
  71 }
  72
  73 static int
  74 fbsd_find_memory_regions (int (*func) (CORE_ADDR, unsigned long,
  75                                        int, int, int, void *),
  76                           void *obfd)
  77 {
  78   pid_t pid = ptid_get_pid (inferior_ptid);
  79   char *mapfilename;
  80   FILE *mapfile;
  81   unsigned long start, end, size;
  82   char protection[4];
  83   int read, write, exec;
  84
  85   xasprintf (&mapfilename, "/proc/%ld/map", (long) pid);
  86   mapfile = fopen (mapfilename, "r");
  87   if (mapfile == NULL)
  88     error ("Couldn't open %s\n", mapfilename);
  89
  90   if (info_verbose)
  91     fprintf_filtered (gdb_stdout,
  92                       "Reading memory regions from %s\n", mapfilename);
  93
  94   /* Now iterate until end-of-file.  */
  95   while (read_mapping (mapfile, &start, &end, &protection[0]))
  96     {
  97       size = end - start;
  98
  99       read = (strchr (protection, 'r') != 0);
 100       write = (strchr (protection, 'w') != 0);
 101       exec = (strchr (protection, 'x') != 0);
 102
 103       if (info_verbose)
 104         {
 105           fprintf_filtered (gdb_stdout,
 106                             "Save segment, %ld bytes at 0x%s (%c%c%c)\n",
 107                             size, paddr_nz (start),
 108                             read ? 'r' : '-',
 109                             write ? 'w' : '-',
 110                             exec ? 'x' : '-');
 111         }
 112
 113       /* Invoke the callback function to create the corefile segment. */
 114       func (start, size, read, write, exec, obfd);
 115     }
 116
 117   fclose (mapfile);
 118   return 0;
 119 }
 120
 121 static char *
 122 fbsd_make_corefile_notes (bfd *obfd, int *note_size)
 123 {
 124   gregset_t gregs;
 125   fpregset_t fpregs;
 126   char *note_data = NULL;
 127   Elf_Internal_Ehdr *i_ehdrp;
 128
 129   /* Put a "FreeBSD" label in the ELF header.  */
 130   i_ehdrp = elf_elfheader (obfd);
 131   i_ehdrp->e_ident[EI_OSABI] = ELFOSABI_FREEBSD;
 132
 133   fill_gregset (&gregs, -1);
 134   note_data = elfcore_write_prstatus (obfd, note_data, note_size,
 135                                       ptid_get_pid (inferior_ptid),
 136                                       stop_signal, &gregs);
 137
 138   fill_fpregset (&fpregs, -1);
 139   note_data = elfcore_write_prfpreg (obfd, note_data, note_size,
 140                                      &fpregs, sizeof (fpregs));
 141
 142   if (get_exec_file (0))
 143     {
 144       char *fname = strrchr (get_exec_file (0), '/') + 1;
 145       char *psargs = xstrdup (fname);
 146
 147       if (get_inferior_args ())
 148         psargs = reconcat (psargs, psargs, " ", get_inferior_args (), NULL);
 149
 150       note_data = elfcore_write_prpsinfo (obfd, note_data, note_size,
 151                                           fname, psargs);
 152     }
 153
 154   make_cleanup (xfree, note_data);
 155   return note_data;
 156 }
 157 \f
 158
 159 void
 160 _initialize_fbsd_proc (void)
 161 {
 162   extern void inftarg_set_find_memory_regions ();
 163   extern void inftarg_set_make_corefile_notes ();
 164
 165   inftarg_set_find_memory_regions (fbsd_find_memory_regions);
 166   inftarg_set_make_corefile_notes (fbsd_make_corefile_notes);
 167 }