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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [xcoffsolib.c] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
/* Shared library support for RS/6000 (xcoff) object files, for GDB.
2
   Copyright 1991, 1992, 1995, 1996, 1999, 2000, 2001
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 2 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, write to the Free Software
20
   Foundation, Inc., 59 Temple Place - Suite 330,
21
   Boston, MA 02111-1307, USA.  */
22
 
23
#include "defs.h"
24
#include "bfd.h"
25
#include "xcoffsolib.h"
26
#include "inferior.h"
27
#include "gdbcmd.h"
28
#include "symfile.h"
29
#include "frame.h"
30
#include "gdb_regex.h"
31
 
32
 
33
/* If ADDR lies in a shared library, return its name.
34
   Note that returned name points to static data whose content is overwritten
35
   by each call.  */
36
 
37
char *
38
xcoff_solib_address (CORE_ADDR addr)
39
{
40
  static char *buffer = NULL;
41
  struct vmap *vp = vmap;
42
 
43
  /* The first vmap entry is for the exec file.  */
44
 
45
  if (vp == NULL)
46
    return NULL;
47
  for (vp = vp->nxt; vp; vp = vp->nxt)
48
    if (vp->tstart <= addr && addr < vp->tend)
49
      {
50
        xfree (buffer);
51
        xasprintf (&buffer, "%s%s%s%s",
52
                            vp->name,
53
                            *vp->member ? "(" : "",
54
                            vp->member,
55
                            *vp->member ? ")" : "");
56
        return buffer;
57
      }
58
  return NULL;
59
}
60
 
61
static void solib_info (char *, int);
62
static void sharedlibrary_command (char *pattern, int from_tty);
63
 
64
static void
65
solib_info (char *args, int from_tty)
66
{
67
  struct vmap *vp = vmap;
68
 
69
  /* Check for new shared libraries loaded with load ().  */
70
  if (! ptid_equal (inferior_ptid, null_ptid))
71
    xcoff_relocate_symtab (PIDGET (inferior_ptid));
72
 
73
  if (vp == NULL || vp->nxt == NULL)
74
    {
75
      printf_unfiltered ("No shared libraries loaded at this time.\n");
76
      return;
77
    }
78
 
79
  /* Skip over the first vmap, it is the main program, always loaded.  */
80
  vp = vp->nxt;
81
 
82
  printf_unfiltered ("\
83
Text Range              Data Range              Syms    Shared Object Library\n");
84
 
85
  for (; vp != NULL; vp = vp->nxt)
86
    {
87
      printf_unfiltered ("0x%s-0x%s     0x%s-0x%s       %s      %s%s%s%s\n",
88
                         paddr (vp->tstart),paddr (vp->tend),
89
                         paddr (vp->dstart), paddr (vp->dend),
90
                         vp->loaded ? "Yes" : "No ",
91
                         vp->name,
92
                         *vp->member ? "(" : "",
93
                         vp->member,
94
                         *vp->member ? ")" : "");
95
    }
96
}
97
 
98
static void
99
sharedlibrary_command (char *pattern, int from_tty)
100
{
101
  dont_repeat ();
102
 
103
  /* Check for new shared libraries loaded with load ().  */
104
  if (! ptid_equal (inferior_ptid, null_ptid))
105
    xcoff_relocate_symtab (PIDGET (inferior_ptid));
106
 
107
  if (pattern)
108
    {
109
      char *re_err = re_comp (pattern);
110
 
111
      if (re_err)
112
        error ("Invalid regexp: %s", re_err);
113
    }
114
 
115
  /* Walk the list of currently loaded shared libraries, and read
116
     symbols for any that match the pattern --- or any whose symbols
117
     aren't already loaded, if no pattern was given.  */
118
  {
119
    int any_matches = 0;
120
    int loaded_any_symbols = 0;
121
    struct vmap *vp = vmap;
122
 
123
    if (!vp)
124
      return;
125
 
126
    /* skip over the first vmap, it is the main program, always loaded. */
127
    for (vp = vp->nxt; vp; vp = vp->nxt)
128
      if (! pattern
129
            || re_exec (vp->name)
130
            || (*vp->member && re_exec (vp->member)))
131
        {
132
          any_matches = 1;
133
 
134
          if (vp->loaded)
135
            {
136
              if (from_tty)
137
                printf_unfiltered ("Symbols already loaded for %s\n",
138
                                   vp->name);
139
            }
140
          else
141
            {
142
              if (vmap_add_symbols (vp))
143
                loaded_any_symbols = 1;
144
            }
145
        }
146
 
147
    if (from_tty && pattern && ! any_matches)
148
      printf_unfiltered
149
        ("No loaded shared libraries match the pattern `%s'.\n", pattern);
150
 
151
    if (loaded_any_symbols)
152
      {
153
        /* Getting new symbols may change our opinion about what is
154
           frameless.  */
155
        reinit_frame_cache ();
156
      }
157
  }
158
}
159
 
160
void
161
_initialize_solib (void)
162
{
163
  add_com ("sharedlibrary", class_files, sharedlibrary_command,
164
           "Load shared object library symbols for files matching REGEXP.");
165
  add_info ("sharedlibrary", solib_info,
166
            "Status of loaded shared object libraries");
167
 
168
  add_show_from_set
169
    (add_set_cmd ("auto-solib-add", class_support, var_zinteger,
170
                  (char *) &auto_solib_add,
171
                  "Set autoloading of shared library symbols.\n\
172
If nonzero, symbols from all shared object libraries will be loaded\n\
173
automatically when the inferior begins execution or when the dynamic linker\n\
174
informs gdb that a new library has been loaded.  Otherwise, symbols\n\
175
must be loaded manually, using `sharedlibrary'.",
176
                  &setlist),
177
     &showlist);
178
}

powered by: WebSVN 2.1.0

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