OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [gdb/] [xcoffsolib.c] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
/* Shared library support for RS/6000 (xcoff) object files, for GDB.
2
   Copyright (C) 1991, 1992, 1995, 1996, 1999, 2000, 2001, 2007, 2008
3
   Free Software Foundation, Inc.
4
   Contributed by IBM Corporation.
5
 
6
   This file is part of GDB.
7
 
8
   This program is free software; you can redistribute it and/or modify
9
   it under the terms of the GNU General Public License as published by
10
   the Free Software Foundation; either version 3 of the License, or
11
   (at your option) any later version.
12
 
13
   This program is distributed in the hope that it will be useful,
14
   but WITHOUT ANY WARRANTY; without even the implied warranty of
15
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
   GNU General Public License for more details.
17
 
18
   You should have received a copy of the GNU General Public License
19
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
20
 
21
#include "defs.h"
22
#include "bfd.h"
23
#include "xcoffsolib.h"
24
#include "inferior.h"
25
#include "gdbcmd.h"
26
#include "symfile.h"
27
#include "frame.h"
28
#include "gdb_regex.h"
29
 
30
 
31
/* If ADDR lies in a shared library, return its name.
32
   Note that returned name points to static data whose content is overwritten
33
   by each call.  */
34
 
35
char *
36
xcoff_solib_address (CORE_ADDR addr)
37
{
38
  static char *buffer = NULL;
39
  struct vmap *vp = vmap;
40
 
41
  /* The first vmap entry is for the exec file.  */
42
 
43
  if (vp == NULL)
44
    return NULL;
45
  for (vp = vp->nxt; vp; vp = vp->nxt)
46
    if (vp->tstart <= addr && addr < vp->tend)
47
      {
48
        xfree (buffer);
49
        buffer = xstrprintf ("%s%s%s%s",
50
                             vp->name,
51
                             *vp->member ? "(" : "",
52
                             vp->member,
53
                             *vp->member ? ")" : "");
54
        return buffer;
55
      }
56
  return NULL;
57
}
58
 
59
static void solib_info (char *, int);
60
static void sharedlibrary_command (char *pattern, int from_tty);
61
 
62
static void
63
solib_info (char *args, int from_tty)
64
{
65
  struct vmap *vp = vmap;
66
 
67
  /* Check for new shared libraries loaded with load ().  */
68
  if (! ptid_equal (inferior_ptid, null_ptid))
69
    xcoff_relocate_symtab (PIDGET (inferior_ptid));
70
 
71
  if (vp == NULL || vp->nxt == NULL)
72
    {
73
      printf_unfiltered ("No shared libraries loaded at this time.\n");
74
      return;
75
    }
76
 
77
  /* Skip over the first vmap, it is the main program, always loaded.  */
78
  vp = vp->nxt;
79
 
80
  printf_unfiltered ("\
81
Text Range              Data Range              Syms    Shared Object Library\n");
82
 
83
  for (; vp != NULL; vp = vp->nxt)
84
    {
85
      printf_unfiltered ("0x%s-0x%s     0x%s-0x%s       %s      %s%s%s%s\n",
86
                         paddr (vp->tstart),paddr (vp->tend),
87
                         paddr (vp->dstart), paddr (vp->dend),
88
                         vp->loaded ? "Yes" : "No ",
89
                         vp->name,
90
                         *vp->member ? "(" : "",
91
                         vp->member,
92
                         *vp->member ? ")" : "");
93
    }
94
}
95
 
96
static void
97
sharedlibrary_command (char *pattern, int from_tty)
98
{
99
  dont_repeat ();
100
 
101
  /* Check for new shared libraries loaded with load ().  */
102
  if (! ptid_equal (inferior_ptid, null_ptid))
103
    xcoff_relocate_symtab (PIDGET (inferior_ptid));
104
 
105
  if (pattern)
106
    {
107
      char *re_err = re_comp (pattern);
108
 
109
      if (re_err)
110
        error (_("Invalid regexp: %s"), re_err);
111
    }
112
 
113
  /* Walk the list of currently loaded shared libraries, and read
114
     symbols for any that match the pattern --- or any whose symbols
115
     aren't already loaded, if no pattern was given.  */
116
  {
117
    int any_matches = 0;
118
    int loaded_any_symbols = 0;
119
    struct vmap *vp = vmap;
120
 
121
    if (!vp)
122
      return;
123
 
124
    /* skip over the first vmap, it is the main program, always loaded. */
125
    for (vp = vp->nxt; vp; vp = vp->nxt)
126
      if (! pattern
127
            || re_exec (vp->name)
128
            || (*vp->member && re_exec (vp->member)))
129
        {
130
          any_matches = 1;
131
 
132
          if (vp->loaded)
133
            {
134
              if (from_tty)
135
                printf_unfiltered ("Symbols already loaded for %s\n",
136
                                   vp->name);
137
            }
138
          else
139
            {
140
              if (vmap_add_symbols (vp))
141
                loaded_any_symbols = 1;
142
            }
143
        }
144
 
145
    if (from_tty && pattern && ! any_matches)
146
      printf_unfiltered
147
        ("No loaded shared libraries match the pattern `%s'.\n", pattern);
148
 
149
    if (loaded_any_symbols)
150
      {
151
        /* Getting new symbols may change our opinion about what is
152
           frameless.  */
153
        reinit_frame_cache ();
154
      }
155
  }
156
}
157
 
158
void
159
_initialize_xcoffsolib (void)
160
{
161
  add_com ("sharedlibrary", class_files, sharedlibrary_command,
162
           _("Load shared object library symbols for files matching REGEXP."));
163
  add_info ("sharedlibrary", solib_info,
164
            _("Status of loaded shared object libraries"));
165
 
166
  add_setshow_boolean_cmd ("auto-solib-add", class_support,
167
                           &auto_solib_add, _("\
168
Set autoloading of shared library symbols."), _("\
169
Show autoloading of shared library symbols."), _("\
170
If \"on\", symbols from all shared object libraries will be loaded\n\
171
automatically when the inferior begins execution, when the dynamic linker\n\
172
informs gdb that a new library has been loaded, or when attaching to the\n\
173
inferior.  Otherwise, symbols must be loaded manually, using `sharedlibrary'."),
174
                           NULL,
175
                           NULL, /* FIXME: i18n: */
176
                           &setlist, &showlist);
177
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.