clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name solib.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/gnu/usr.bin/binutils/obj/gdb -resource-dir /usr/local/lib/clang/13.0.0 -D PIE_DEFAULT=1 -I . -I /usr/src/gnu/usr.bin/binutils/gdb -I /usr/src/gnu/usr.bin/binutils/gdb/config -D LOCALEDIR="/usr/share/locale" -D HAVE_CONFIG_H -I /usr/src/gnu/usr.bin/binutils/gdb/../include/opcode -I ../bfd -I /usr/src/gnu/usr.bin/binutils/gdb/../bfd -I /usr/src/gnu/usr.bin/binutils/gdb/../include -I ../intl -I /usr/src/gnu/usr.bin/binutils/gdb/../intl -D MI_OUT=1 -D TUI=1 -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/usr.bin/binutils/obj/gdb -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -fcommon -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/gnu/usr.bin/binutils/gdb/solib.c
1 | |
2 | |
3 | |
4 | |
5 | |
6 | |
7 | |
8 | |
9 | |
10 | |
11 | |
12 | |
13 | |
14 | |
15 | |
16 | |
17 | |
18 | |
19 | |
20 | |
21 | |
22 | |
23 | #include "defs.h" |
24 | |
25 | #include <sys/types.h> |
26 | #include <fcntl.h> |
27 | #include "gdb_string.h" |
28 | #include "symtab.h" |
29 | #include "bfd.h" |
30 | #include "symfile.h" |
31 | #include "objfiles.h" |
32 | #include "gdbcore.h" |
33 | #include "command.h" |
34 | #include "target.h" |
35 | #include "frame.h" |
36 | #include "gdb_regex.h" |
37 | #include "inferior.h" |
38 | #include "environ.h" |
39 | #include "language.h" |
40 | #include "gdbcmd.h" |
41 | #include "completer.h" |
42 | #include "filenames.h" /* for DOSish file names */ |
43 | #include "exec.h" |
44 | #include "solist.h" |
45 | #include "observer.h" |
46 | #include "readline/readline.h" |
47 | |
48 | |
49 | |
50 | |
51 | struct target_so_ops *current_target_so_ops; |
52 | |
53 | |
54 | |
55 | static struct so_list *so_list_head; |
56 | |
57 | static int solib_cleanup_queued = 0; |
58 | |
59 | |
60 | |
61 | static void do_clear_solib (void *); |
62 | |
63 | |
64 | |
65 | static char *solib_absolute_prefix = NULL; |
66 | |
67 | |
68 | |
69 | |
70 | static char *solib_search_path = NULL; |
71 | |
72 | void add_to_target_sections (int, struct target_ops *, struct so_list *); |
73 | |
74 | |
75 | |
76 | |
77 | |
78 | |
79 | |
80 | |
81 | |
82 | |
83 | |
84 | |
85 | |
86 | |
87 | |
88 | |
89 | |
90 | |
91 | |
92 | |
93 | |
94 | |
95 | |
96 | |
97 | |
98 | |
99 | |
100 | |
101 | |
102 | |
103 | |
104 | |
105 | |
106 | |
107 | |
108 | |
109 | |
110 | |
111 | int |
112 | solib_open (char *in_pathname, char **found_pathname) |
113 | { |
114 | int found_file = -1; |
115 | char *temp_pathname = NULL; |
116 | char *p = in_pathname; |
117 | |
118 | while (*p && !IS_DIR_SEPARATOR (*p)) |
| 3 | | Assuming the condition is false | |
|
119 | p++; |
120 | |
121 | if (*p) |
| |
122 | { |
123 | if (! IS_ABSOLUTE_PATH (in_pathname) || solib_absolute_prefix == NULL) |
124 | temp_pathname = in_pathname; |
125 | else |
126 | { |
127 | int prefix_len = strlen (solib_absolute_prefix); |
128 | |
129 | |
130 | while (prefix_len > 0 |
131 | && IS_DIR_SEPARATOR (solib_absolute_prefix[prefix_len - 1])) |
132 | prefix_len--; |
133 | |
134 | |
135 | temp_pathname = alloca (prefix_len + strlen (in_pathname) + 1); |
136 | strncpy (temp_pathname, solib_absolute_prefix, prefix_len); |
137 | temp_pathname[prefix_len] = '\0'; |
138 | strcat (temp_pathname, in_pathname); |
139 | } |
140 | |
141 | |
142 | found_file = open (temp_pathname, O_RDONLY, 0); |
143 | } |
144 | |
145 | |
146 | |
147 | |
148 | |
149 | if (found_file < 0 && IS_ABSOLUTE_PATH (in_pathname)) |
| |
150 | { |
151 | |
152 | while (!IS_DIR_SEPARATOR (*in_pathname)) |
153 | in_pathname++; |
154 | |
155 | |
156 | while (IS_DIR_SEPARATOR (*in_pathname)) |
157 | in_pathname++; |
158 | } |
159 | |
160 | |
161 | if (found_file < 0 && solib_search_path != NULL) |
| 6 | | Assuming 'solib_search_path' is not equal to NULL | |
|
| |
162 | found_file = openp (solib_search_path, OPF_TRY_CWD_FIRST, |
163 | in_pathname, O_RDONLY, 0, &temp_pathname); |
164 | |
165 | |
166 | |
167 | |
168 | if (found_file < 0 && solib_search_path != NULL) |
| 8 | | Assuming 'found_file' is >= 0 | |
|
169 | found_file = openp (solib_search_path, OPF_TRY_CWD_FIRST, |
170 | lbasename (in_pathname), O_RDONLY, 0, |
171 | &temp_pathname); |
172 | |
173 | |
174 | if (found_file < 0 && TARGET_SO_FIND_AND_OPEN_SOLIB != NULL) |
175 | found_file = TARGET_SO_FIND_AND_OPEN_SOLIB |
176 | (in_pathname, O_RDONLY, &temp_pathname); |
177 | |
178 | |
179 | if (found_file < 0 && solib_absolute_prefix == NULL) |
180 | found_file = openp (get_in_environ (inferior_environ, "PATH"), |
181 | OPF_TRY_CWD_FIRST, in_pathname, O_RDONLY, 0, |
182 | &temp_pathname); |
183 | |
184 | |
185 | |
186 | if (found_file < 0 && solib_absolute_prefix == NULL) |
187 | found_file = openp (get_in_environ (inferior_environ, "LD_LIBRARY_PATH"), |
188 | OPF_TRY_CWD_FIRST, in_pathname, O_RDONLY, 0, |
189 | &temp_pathname); |
190 | |
191 | |
192 | |
193 | if (found_pathname != NULL && temp_pathname != NULL) |
| 9 | | Assuming 'temp_pathname' is equal to NULL | |
|
| |
194 | *found_pathname = xstrdup (temp_pathname); |
195 | return found_file; |
| 11 | | Returning without writing to '*found_pathname' | |
|
196 | } |
197 | |
198 | |
199 | |
200 | |
201 | |
202 | |
203 | |
204 | |
205 | |
206 | |
207 | |
208 | |
209 | |
210 | |
211 | |
212 | |
213 | |
214 | |
215 | |
216 | |
217 | |
218 | |
219 | |
220 | |
221 | |
222 | |
223 | |
224 | |
225 | |
226 | static int |
227 | solib_map_sections (void *arg) |
228 | { |
229 | struct so_list *so = (struct so_list *) arg; |
230 | char *filename; |
231 | char *scratch_pathname; |
| 1 | 'scratch_pathname' declared without an initial value | |
|
232 | int scratch_chan; |
233 | struct section_table *p; |
234 | struct cleanup *old_chain; |
235 | bfd *abfd; |
236 | |
237 | filename = tilde_expand (so->so_name); |
238 | |
239 | old_chain = make_cleanup (xfree, filename); |
240 | scratch_chan = solib_open (filename, &scratch_pathname); |
| |
| 12 | | Returning from 'solib_open' | |
|
241 | |
242 | if (scratch_chan < 0) |
| |
243 | { |
244 | perror_with_name (filename); |
245 | } |
246 | |
247 | |
248 | abfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan); |
| 14 | | 1st function call argument is an uninitialized value |
|
249 | if (!abfd) |
250 | { |
251 | close (scratch_chan); |
252 | error ("Could not open `%s' as an executable file: %s", |
253 | scratch_pathname, bfd_errmsg (bfd_get_error ())); |
254 | } |
255 | |
256 | |
257 | so->abfd = abfd; |
258 | bfd_set_cacheable (abfd, 1); |
259 | |
260 | |
261 | |
262 | if (strlen (scratch_pathname) >= SO_NAME_MAX_PATH_SIZE) |
263 | error ("Full path name length of shared library exceeds SO_NAME_MAX_PATH_SIZE in so_list structure."); |
264 | strcpy (so->so_name, scratch_pathname); |
265 | |
266 | if (!bfd_check_format (abfd, bfd_object)) |
267 | { |
268 | error ("\"%s\": not in executable format: %s.", |
269 | scratch_pathname, bfd_errmsg (bfd_get_error ())); |
270 | } |
271 | if (build_section_table (abfd, &so->sections, &so->sections_end)) |
272 | { |
273 | error ("Can't find the file sections in `%s': %s", |
274 | bfd_get_filename (abfd), bfd_errmsg (bfd_get_error ())); |
275 | } |
276 | |
277 | for (p = so->sections; p < so->sections_end; p++) |
278 | { |
279 | |
280 | |
281 | |
282 | TARGET_SO_RELOCATE_SECTION_ADDRESSES (so, p); |
283 | if (strcmp (p->the_bfd_section->name, ".text") == 0) |
284 | { |
285 | so->textsection = p; |
286 | } |
287 | } |
288 | |
289 | |
290 | do_cleanups (old_chain); |
291 | |
292 | return (1); |
293 | } |
294 | |
295 | |
296 | |
297 | |
298 | |
299 | |
300 | |
301 | |
302 | |
303 | |
304 | |
305 | |
306 | |
307 | |
308 | |
309 | |
310 | |
311 | |
312 | |
313 | |
314 | |
315 | |
316 | void |
317 | free_so (struct so_list *so) |
318 | { |
319 | char *bfd_filename = 0; |
320 | |
321 | if (so->sections) |
322 | xfree (so->sections); |
323 | |
324 | if (so->abfd) |
325 | { |
326 | bfd_filename = bfd_get_filename (so->abfd); |
327 | if (! bfd_close (so->abfd)) |
328 | warning ("cannot close \"%s\": %s", |
329 | bfd_filename, bfd_errmsg (bfd_get_error ())); |
330 | } |
331 | |
332 | if (bfd_filename) |
333 | xfree (bfd_filename); |
334 | |
335 | TARGET_SO_FREE_SO (so); |
336 | |
337 | xfree (so); |
338 | } |
339 | |
340 | |
341 | |
342 | struct so_list * |
343 | master_so_list (void) |
344 | { |
345 | return so_list_head; |
346 | } |
347 | |
348 | |
349 | |
350 | |
351 | static int |
352 | symbol_add_stub (void *arg) |
353 | { |
354 | struct so_list *so = (struct so_list *) arg; |
355 | struct section_addr_info *sap; |
356 | |
357 | |
358 | ALL_OBJFILES (so->objfile) |
359 | { |
360 | |
361 | if (strcmp (so->objfile->name, so->so_name) == 0 |
362 | && !so->main) |
363 | return 1; |
364 | |
365 | |
366 | |
367 | |
368 | |
369 | |
370 | |
371 | |
372 | if (strcmp (so->objfile->name, so->so_name) == 0 |
373 | && so->main |
374 | && so->main_relocated) |
375 | return 1; |
376 | } |
377 | |
378 | sap = build_section_addr_info_from_section_table (so->sections, |
379 | so->sections_end); |
380 | |
381 | if (so->main) |
382 | { |
383 | so->objfile = symbol_file_add (so->so_name, 0, |
384 | sap, 1, 0); |
385 | so->main_relocated = 1; |
386 | } |
387 | else |
388 | so->objfile = symbol_file_add (so->so_name, so->from_tty, |
389 | sap, 0, OBJF_SHARED); |
390 | |
391 | free_section_addr_info (sap); |
392 | |
393 | return (1); |
394 | } |
395 | |
396 | |
397 | |
398 | |
399 | |
400 | int |
401 | solib_read_symbols (struct so_list *so, int from_tty) |
402 | { |
403 | if (so->symbols_loaded) |
404 | { |
405 | if (from_tty) |
406 | printf_unfiltered (_("Symbols already loaded for %s\n"), so->so_name); |
407 | } |
408 | else |
409 | { |
410 | if (catch_errors (symbol_add_stub, so, |
411 | "Error while reading shared library symbols:\n", |
412 | RETURN_MASK_ALL)) |
413 | { |
414 | if (from_tty) |
415 | printf_unfiltered (_("Loaded symbols for %s\n"), so->so_name); |
416 | so->symbols_loaded = 1; |
417 | return 1; |
418 | } |
419 | } |
420 | |
421 | return 0; |
422 | } |
423 | |
424 | |
425 | |
426 | |
427 | |
428 | |
429 | |
430 | |
431 | |
432 | |
433 | |
434 | |
435 | |
436 | |
437 | |
438 | |
439 | |
440 | |
441 | |
442 | |
443 | |
444 | |
445 | |
446 | |
447 | |
448 | |
449 | |
450 | |
451 | |
452 | |
453 | static void |
454 | update_solib_list (int from_tty, struct target_ops *target) |
455 | { |
456 | struct so_list *inferior = TARGET_SO_CURRENT_SOS (); |
457 | struct so_list *gdb, **gdb_link; |
458 | |
459 | |
460 | |
461 | |
462 | if (attach_flag && |
463 | symfile_objfile == NULL) |
464 | catch_errors (TARGET_SO_OPEN_SYMBOL_FILE_OBJECT, &from_tty, |
465 | "Error reading attached process's symbol file.\n", |
466 | RETURN_MASK_ALL); |
467 | |
468 | |
469 | |
470 | |
471 | if (!solib_cleanup_queued) |
472 | { |
473 | make_run_cleanup (do_clear_solib, NULL); |
474 | solib_cleanup_queued = 1; |
475 | } |
476 | |
477 | |
478 | |
479 | |
480 | |
481 | |
482 | |
483 | |
484 | |
485 | |
486 | |
487 | |
488 | |
489 | |
490 | |
491 | |
492 | |
493 | |
494 | |
495 | |
496 | |
497 | |
498 | |
499 | |
500 | |
501 | gdb = so_list_head; |
502 | gdb_link = &so_list_head; |
503 | while (gdb) |
504 | { |
505 | struct so_list *i = inferior; |
506 | struct so_list **i_link = &inferior; |
507 | |
508 | |
509 | |
510 | while (i) |
511 | { |
512 | if (! strcmp (gdb->so_original_name, i->so_original_name)) |
513 | break; |
514 | |
515 | i_link = &i->next; |
516 | i = *i_link; |
517 | } |
518 | |
519 | |
520 | |
521 | |
522 | if (i) |
523 | { |
524 | *i_link = i->next; |
525 | free_so (i); |
526 | gdb_link = &gdb->next; |
527 | gdb = *gdb_link; |
528 | } |
529 | |
530 | |
531 | else |
532 | { |
533 | |
534 | |
535 | observer_notify_solib_unloaded (gdb); |
536 | |
537 | *gdb_link = gdb->next; |
538 | |
539 | |
540 | if (gdb->objfile && ! (gdb->objfile->flags & OBJF_USERLOADED)) |
541 | free_objfile (gdb->objfile); |
542 | |
543 | |
544 | |
545 | remove_target_sections (gdb->abfd); |
546 | |
547 | free_so (gdb); |
548 | gdb = *gdb_link; |
549 | } |
550 | } |
551 | |
552 | |
553 | |
554 | |
555 | if (inferior) |
556 | { |
557 | struct so_list *i; |
558 | |
559 | |
560 | *gdb_link = inferior; |
561 | |
562 | |
563 | for (i = inferior; i; i = i->next) |
564 | { |
565 | add_to_target_sections (from_tty, target, i); |
566 | } |
567 | } |
568 | } |
569 | |
570 | void |
571 | add_to_target_sections (int from_tty, struct target_ops *target, struct so_list *solib) |
572 | { |
573 | |
574 | |
575 | if (solib->main) |
576 | return; |
577 | |
578 | solib->from_tty = from_tty; |
579 | |
580 | |
581 | catch_errors (solib_map_sections, solib, |
582 | "Error while mapping shared library sections:\n", |
583 | RETURN_MASK_ALL); |
584 | |
585 | |
586 | |
587 | |
588 | |
589 | if (target) |
590 | { |
591 | int count = (solib->sections_end - solib->sections); |
592 | if (count > 0) |
593 | { |
594 | int space = target_resize_to_sections (target, count); |
595 | memcpy (target->to_sections + space, |
596 | solib->sections, |
597 | count * sizeof (solib->sections[0])); |
598 | } |
599 | } |
600 | |
601 | |
602 | observer_notify_solib_loaded (solib); |
603 | } |
604 | |
605 | |
606 | |
607 | |
608 | |
609 | |
610 | |
611 | |
612 | |
613 | |
614 | |
615 | |
616 | |
617 | |
618 | |
619 | |
620 | |
621 | |
622 | |
623 | |
624 | |
625 | |
626 | void |
627 | solib_add (char *pattern, int from_tty, struct target_ops *target, int readsyms) |
628 | { |
629 | struct so_list *gdb; |
630 | |
631 | if (pattern) |
632 | { |
633 | char *re_err = re_comp (pattern); |
634 | |
635 | if (re_err) |
636 | error ("Invalid regexp: %s", re_err); |
637 | } |
638 | |
639 | update_solib_list (from_tty, target); |
640 | |
641 | |
642 | |
643 | |
644 | { |
645 | int any_matches = 0; |
646 | int loaded_any_symbols = 0; |
647 | |
648 | for (gdb = so_list_head; gdb; gdb = gdb->next) |
649 | if (! pattern || re_exec (gdb->so_name)) |
650 | { |
651 | any_matches = 1; |
652 | if (readsyms && solib_read_symbols (gdb, from_tty)) |
653 | loaded_any_symbols = 1; |
654 | } |
655 | |
656 | if (from_tty && pattern && ! any_matches) |
657 | printf_unfiltered |
658 | ("No loaded shared libraries match the pattern `%s'.\n", pattern); |
659 | |
660 | if (loaded_any_symbols) |
661 | { |
662 | |
663 | |
664 | reinit_frame_cache (); |
665 | |
666 | TARGET_SO_SPECIAL_SYMBOL_HANDLING (); |
667 | } |
668 | } |
669 | } |
670 | |
671 | |
672 | |
673 | |
674 | |
675 | |
676 | |
677 | |
678 | |
679 | |
680 | |
681 | |
682 | |
683 | |
684 | |
685 | |
686 | |
687 | |
688 | static void |
689 | info_sharedlibrary_command (char *ignore, int from_tty) |
690 | { |
691 | struct so_list *so = NULL; |
692 | int header_done = 0; |
693 | int addr_width; |
694 | |
695 | if (TARGET_PTR_BIT == 32) |
696 | addr_width = 8 + 4; |
697 | else if (TARGET_PTR_BIT == 64) |
698 | addr_width = 16 + 4; |
699 | else |
700 | { |
701 | internal_error (__FILE__, __LINE__, |
702 | "TARGET_PTR_BIT returned unknown size %d", |
703 | TARGET_PTR_BIT); |
704 | } |
705 | |
706 | update_solib_list (from_tty, 0); |
707 | |
708 | for (so = so_list_head; so; so = so->next) |
709 | { |
710 | if (so->so_name[0]) |
711 | { |
712 | if (!header_done) |
713 | { |
714 | printf_unfiltered ("%-*s%-*s%-12s%s\n", addr_width, "From", |
715 | addr_width, "To", "Syms Read", |
716 | "Shared Object Library"); |
717 | header_done++; |
718 | } |
719 | |
720 | printf_unfiltered ("%-*s", addr_width, |
721 | so->textsection != NULL |
722 | ? hex_string_custom ( |
723 | (LONGEST) so->textsection->addr, |
724 | addr_width - 4) |
725 | : ""); |
726 | printf_unfiltered ("%-*s", addr_width, |
727 | so->textsection != NULL |
728 | ? hex_string_custom ( |
729 | (LONGEST) so->textsection->endaddr, |
730 | addr_width - 4) |
731 | : ""); |
732 | printf_unfiltered ("%-12s", so->symbols_loaded ? "Yes" : "No"); |
733 | printf_unfiltered ("%s\n", so->so_name); |
734 | } |
735 | } |
736 | if (so_list_head == NULL) |
737 | { |
738 | printf_unfiltered ("No shared libraries loaded at this time.\n"); |
739 | } |
740 | } |
741 | |
742 | |
743 | |
744 | |
745 | |
746 | |
747 | |
748 | |
749 | |
750 | |
751 | |
752 | |
753 | |
754 | |
755 | |
756 | |
757 | |
758 | |
759 | |
760 | |
761 | |
762 | |
763 | char * |
764 | solib_address (CORE_ADDR address) |
765 | { |
766 | struct so_list *so = 0; |
767 | |
768 | for (so = so_list_head; so; so = so->next) |
769 | { |
770 | struct section_table *p; |
771 | |
772 | for (p = so->sections; p < so->sections_end; p++) |
773 | { |
774 | if (p->addr <= address && address < p->endaddr) |
775 | return (so->so_name); |
776 | } |
777 | } |
778 | |
779 | return (0); |
780 | } |
781 | |
782 | |
783 | |
784 | void |
785 | clear_solib (void) |
786 | { |
787 | |
788 | |
789 | |
790 | |
791 | |
792 | |
793 | |
794 | |
795 | |
796 | |
797 | |
798 | |
799 | |
800 | |
801 | |
802 | |
803 | |
804 | |
805 | |
806 | |
807 | if (exec_bfd != NULL |
808 | && bfd_get_flavour (exec_bfd) != bfd_target_aout_flavour) |
809 | disable_breakpoints_in_shlibs (1); |
810 | |
811 | while (so_list_head) |
812 | { |
813 | struct so_list *so = so_list_head; |
814 | so_list_head = so->next; |
815 | if (so->abfd) |
816 | remove_target_sections (so->abfd); |
817 | free_so (so); |
818 | } |
819 | |
820 | TARGET_SO_CLEAR_SOLIB (); |
821 | } |
822 | |
823 | static void |
824 | do_clear_solib (void *dummy) |
825 | { |
826 | solib_cleanup_queued = 0; |
827 | clear_solib (); |
828 | } |
829 | |
830 | |
831 | |
832 | |
833 | |
834 | |
835 | |
836 | |
837 | |
838 | |
839 | |
840 | |
841 | |
842 | |
843 | |
844 | |
845 | void |
846 | solib_create_inferior_hook (void) |
847 | { |
848 | TARGET_SO_SOLIB_CREATE_INFERIOR_HOOK (); |
849 | } |
850 | |
851 | |
852 | |
853 | |
854 | |
855 | |
856 | |
857 | |
858 | |
859 | |
860 | |
861 | |
862 | |
863 | |
864 | |
865 | |
866 | |
867 | int |
868 | in_solib_dynsym_resolve_code (CORE_ADDR pc) |
869 | { |
870 | return TARGET_SO_IN_DYNSYM_RESOLVE_CODE (pc); |
871 | } |
872 | |
873 | |
874 | |
875 | |
876 | |
877 | |
878 | |
879 | |
880 | |
881 | |
882 | |
883 | |
884 | |
885 | |
886 | |
887 | static void |
888 | sharedlibrary_command (char *args, int from_tty) |
889 | { |
890 | dont_repeat (); |
891 | solib_add (args, from_tty, (struct target_ops *) 0, 1); |
892 | } |
893 | |
894 | |
895 | |
896 | |
897 | |
898 | |
899 | |
900 | |
901 | |
902 | |
903 | |
904 | |
905 | |
906 | void |
907 | no_shared_libraries (char *ignored, int from_tty) |
908 | { |
909 | objfile_purge_solibs (); |
910 | do_clear_solib (NULL); |
911 | } |
912 | |
913 | static void |
914 | reload_shared_libraries (char *ignored, int from_tty) |
915 | { |
916 | no_shared_libraries (NULL, from_tty); |
917 | solib_add (NULL, from_tty, NULL, auto_solib_add); |
918 | } |
919 | |
920 | extern initialize_file_ftype _initialize_solib; |
921 | |
922 | void |
923 | _initialize_solib (void) |
924 | { |
925 | struct cmd_list_element *c; |
926 | |
927 | add_com ("sharedlibrary", class_files, sharedlibrary_command, |
928 | "Load shared object library symbols for files matching REGEXP."); |
929 | add_info ("sharedlibrary", info_sharedlibrary_command, |
930 | "Status of loaded shared object libraries."); |
931 | add_com ("nosharedlibrary", class_files, no_shared_libraries, |
932 | "Unload all shared object library symbols."); |
933 | |
934 | deprecated_add_show_from_set |
935 | (add_set_cmd ("auto-solib-add", class_support, var_boolean, |
936 | (char *) &auto_solib_add, |
937 | "Set autoloading of shared library symbols.\n\ |
938 | If \"on\", symbols from all shared object libraries will be loaded\n\ |
939 | automatically when the inferior begins execution, when the dynamic linker\n\ |
940 | informs gdb that a new library has been loaded, or when attaching to the\n\ |
941 | inferior. Otherwise, symbols must be loaded manually, using `sharedlibrary'.", |
942 | &setlist), |
943 | &showlist); |
944 | |
945 | c = add_set_cmd ("solib-absolute-prefix", class_support, var_filename, |
946 | (char *) &solib_absolute_prefix, |
947 | "Set prefix for loading absolute shared library symbol files.\n\ |
948 | For other (relative) files, you can add values using `set solib-search-path'.", |
949 | &setlist); |
950 | deprecated_add_show_from_set (c, &showlist); |
951 | set_cmd_cfunc (c, reload_shared_libraries); |
952 | set_cmd_completer (c, filename_completer); |
953 | |
954 | |
955 | |
956 | solib_absolute_prefix = xstrdup (gdb_sysroot); |
957 | |
958 | c = add_set_cmd ("solib-search-path", class_support, var_string, |
959 | (char *) &solib_search_path, |
960 | "Set the search path for loading non-absolute shared library symbol files.\n\ |
961 | This takes precedence over the environment variables PATH and LD_LIBRARY_PATH.", |
962 | &setlist); |
963 | deprecated_add_show_from_set (c, &showlist); |
964 | set_cmd_cfunc (c, reload_shared_libraries); |
965 | set_cmd_completer (c, filename_completer); |
966 | } |