Commit | Line | Data |
---|---|---|
1eeba686 PB |
1 | #include <stdio.h> |
2 | #include <sys/types.h> | |
3 | #include <sys/ldr.h> | |
4 | ||
5 | #include "defs.h" | |
6 | #include "bfd.h" | |
7 | /*#include "libbfd.h" /* BFD internals (sigh!) FIXME */ | |
8 | #include "xcoffsolib.h" | |
9 | ||
10 | ||
11 | extern struct symtab *current_source_symtab; | |
12 | extern int current_source_line; | |
13 | ||
14 | ||
15 | /* The real work of adding a shared library file to the symtab and | |
16 | the section list. */ | |
17 | ||
18 | void | |
19 | solib_add (arg_string, from_tty, target) | |
20 | char *arg_string; | |
21 | int from_tty; | |
22 | struct target_ops *target; | |
23 | { | |
24 | char *val; | |
25 | struct vmap *vp = vmap; | |
26 | struct objfile *obj; | |
27 | struct symtab *saved_symtab; | |
28 | int saved_line; | |
29 | ||
30 | int loaded = 0; /* true if any shared obj loaded */ | |
31 | int matched = 0; /* true if any shared obj matched */ | |
32 | ||
33 | if (arg_string == 0) | |
34 | re_comp ("."); | |
35 | else if (val = (char *) re_comp (arg_string)) { | |
36 | error ("Invalid regexp: %s", val); | |
37 | } | |
38 | if (!vp || !vp->nxt) | |
39 | return; | |
40 | ||
41 | /* save current symbol table and line number, in case they get changed | |
42 | in symbol loading process. */ | |
43 | ||
44 | saved_symtab = current_source_symtab; | |
45 | saved_line = current_source_line; | |
46 | ||
47 | /* skip over the first vmap, it is the main program, always loaded. */ | |
48 | vp = vp->nxt; | |
49 | ||
50 | for (; vp; vp = vp->nxt) { | |
51 | ||
52 | if (re_exec (vp->name) || (*vp->member && re_exec (vp->member))) { | |
53 | ||
54 | matched = 1; | |
55 | ||
56 | /* if already loaded, continue with the next one. */ | |
57 | if (vp->loaded) { | |
58 | ||
59 | printf ("%s%s%s%s: already loaded.\n", | |
60 | *vp->member ? "(" : "", | |
61 | vp->member, | |
62 | *vp->member ? ") " : "", | |
63 | vp->name); | |
64 | continue; | |
65 | } | |
66 | ||
67 | printf ("Loading %s%s%s%s...", | |
68 | *vp->member ? "(" : "", | |
69 | vp->member, | |
70 | *vp->member ? ") " : "", | |
71 | vp->name); | |
72 | fflush (stdout); | |
73 | ||
74 | obj = lookup_objfile_bfd (vp->bfd); | |
75 | if (!obj) { | |
76 | warning ("\nObj structure for the shared object not found. Loading failed."); | |
77 | continue; | |
78 | } | |
79 | ||
2d6d969c FF |
80 | syms_from_objfile (obj, 0, 0, 0); |
81 | new_symfile_objfile (obj, 0, 0); | |
1eeba686 PB |
82 | vmap_symtab (vp, 0, 0); |
83 | printf ("Done.\n"); | |
84 | loaded = vp->loaded = 1; | |
85 | } | |
86 | } | |
87 | /* if any shared object is loaded, then misc_func_vector needs sorting. */ | |
88 | if (loaded) { | |
89 | #if 0 | |
90 | sort_misc_function_vector (); | |
91 | #endif | |
92 | current_source_symtab = saved_symtab; | |
93 | current_source_line = saved_line; | |
94 | ||
95 | /* Getting new symbols might change our opinion about what is frameless. | |
96 | Is this correct?? FIXME. */ | |
97 | /* reinit_frame_cache(); */ | |
98 | } | |
99 | else if (!matched) | |
100 | printf ("No matching shared object found.\n"); | |
101 | ||
102 | } | |
103 | ||
104 | ||
105 | /* Return the module name of a given text address. Note that returned buffer | |
106 | is not persistent. */ | |
107 | ||
108 | char * | |
109 | pc_load_segment_name (addr) | |
110 | CORE_ADDR addr; | |
111 | { | |
112 | static char buffer [BUFSIZ]; | |
113 | struct vmap *vp = vmap; | |
114 | ||
115 | buffer [0] = buffer [1] = '\0'; | |
116 | for (; vp; vp = vp->nxt) | |
117 | if (vp->tstart <= addr && addr < vp->tend) { | |
118 | if (*vp->member) { | |
119 | buffer [0] = '('; | |
120 | strcat (&buffer[1], vp->member); | |
121 | strcat (buffer, ")"); | |
122 | } | |
123 | strcat (buffer, vp->name); | |
124 | return buffer; | |
125 | } | |
126 | return "(unknown load module)"; | |
127 | } | |
128 | ||
129 | ||
130 | solib_info (ldi) | |
131 | register struct ld_info *ldi; | |
132 | { | |
133 | ||
134 | struct vmap *vp = vmap; | |
135 | ||
136 | if (!vp || !vp->nxt) { | |
137 | printf("No shared libraries loaded at this time.\n"); | |
138 | return; | |
139 | } | |
140 | ||
141 | /* skip over the first vmap, it is the main program, always loaded. */ | |
142 | vp = vp->nxt; | |
143 | ||
144 | printf ("\ | |
145 | Text Range Data Range Syms Shared Object Library\n"); | |
146 | ||
147 | for (; vp; vp = vp->nxt) { | |
148 | ||
149 | printf ("0x%08x-0x%08x 0x%08x-0x%08x %s %s%s%s%s\n", | |
150 | vp->tstart, vp->tend, | |
151 | vp->dstart, vp->dend, | |
152 | vp->loaded ? "Yes" : "No ", | |
153 | *vp->member ? "(" : "", | |
154 | vp->member, | |
155 | *vp->member ? ") " : "", | |
156 | vp->name); | |
157 | } | |
158 | } | |
159 | ||
160 | ||
161 | void | |
162 | sharedlibrary_command (args, from_tty) | |
163 | char *args; | |
164 | int from_tty; | |
165 | { | |
166 | dont_repeat(); | |
167 | solib_add (args, from_tty, (struct target_ops *)0); | |
168 | } | |
169 | ||
170 | void | |
171 | _initialize_solib() | |
172 | { | |
173 | ||
174 | add_com("sharedlibrary", class_files, sharedlibrary_command, | |
175 | "Load shared object library symbols for files matching REGEXP."); | |
176 | add_info("sharedlibrary", solib_info, | |
177 | "Status of loaded shared object libraries"); | |
178 | } |