1 /* Work with executable files, for GDB.
3 Copyright (C) 1988-2016 Free Software Foundation, Inc.
5 This file is part of GDB.
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 3 of the License, or
10 (at your option) any later version.
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.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "filenames.h"
29 #include "completer.h"
33 #include "arch-utils.h"
34 #include "gdbthread.h"
35 #include "progspace.h"
40 #include "readline/readline.h"
48 void (*deprecated_file_changed_hook
) (char *);
50 /* Prototypes for local functions */
52 static void file_command (char *, int);
54 static void set_section_command (char *, int);
56 static void exec_files_info (struct target_ops
*);
58 static void init_exec_ops (void);
60 void _initialize_exec (void);
62 /* The target vector for executable files. */
64 static struct target_ops exec_ops
;
66 /* Whether to open exec and core files read-only or read-write. */
70 show_write_files (struct ui_file
*file
, int from_tty
,
71 struct cmd_list_element
*c
, const char *value
)
73 fprintf_filtered (file
, _("Writing into executable and core files is %s.\n"),
79 exec_open (const char *args
, int from_tty
)
81 target_preopen (from_tty
);
82 exec_file_attach (args
, from_tty
);
85 /* Close and clear exec_bfd. If we end up with no target sections to
86 read memory from, this unpushes the exec_ops target. */
97 /* Removing target sections may close the exec_ops target.
98 Clear exec_bfd before doing so to prevent recursion. */
102 remove_target_sections (&exec_bfd
);
104 xfree (exec_filename
);
105 exec_filename
= NULL
;
109 /* This is the target_close implementation. Clears all target
110 sections and closes all executable bfds from all program spaces. */
113 exec_close_1 (struct target_ops
*self
)
115 struct program_space
*ss
;
116 struct cleanup
*old_chain
;
118 old_chain
= save_current_program_space ();
121 set_current_program_space (ss
);
122 clear_section_table (current_target_sections
);
126 do_cleanups (old_chain
);
130 exec_file_clear (int from_tty
)
132 /* Remove exec file. */
136 printf_unfiltered (_("No executable file now.\n"));
139 /* Returns non-zero if exceptions E1 and E2 are equal. Returns zero
143 exception_print_same (struct gdb_exception e1
, struct gdb_exception e2
)
145 const char *msg1
= e1
.message
;
146 const char *msg2
= e2
.message
;
153 return (e1
.reason
== e2
.reason
154 && e1
.error
== e2
.error
155 && strcmp (e1
.message
, e2
.message
) == 0);
161 exec_file_locate_attach (int pid
, int defer_bp_reset
, int from_tty
)
163 char *exec_file
, *full_exec_path
= NULL
;
164 struct cleanup
*old_chain
;
165 struct gdb_exception prev_err
= exception_none
;
167 /* Do nothing if we already have an executable filename. */
168 exec_file
= (char *) get_exec_file (0);
169 if (exec_file
!= NULL
)
172 /* Try to determine a filename from the process itself. */
173 exec_file
= target_pid_to_exec_file (pid
);
174 if (exec_file
== NULL
)
176 warning (_("No executable has been specified and target does not "
178 "determining executable automatically. "
179 "Try using the \"file\" command."));
183 /* If gdb_sysroot is not empty and the discovered filename
184 is absolute then prefix the filename with gdb_sysroot. */
185 if (*gdb_sysroot
!= '\0' && IS_ABSOLUTE_PATH (exec_file
))
187 full_exec_path
= exec_file_find (exec_file
, NULL
);
188 if (full_exec_path
== NULL
)
193 /* It's possible we don't have a full path, but rather just a
194 filename. Some targets, such as HP-UX, don't provide the
197 Attempt to qualify the filename against the source path.
198 (If that fails, we'll just fall back on the original
199 filename. Not much more we can do...) */
200 if (!source_full_path_of (exec_file
, &full_exec_path
))
201 full_exec_path
= xstrdup (exec_file
);
204 old_chain
= make_cleanup (xfree
, full_exec_path
);
205 make_cleanup (free_current_contents
, &prev_err
.message
);
207 /* exec_file_attach and symbol_file_add_main may throw an error if the file
208 cannot be opened either locally or remotely.
210 This happens for example, when the file is first found in the local
211 sysroot (above), and then disappears (a TOCTOU race), or when it doesn't
212 exist in the target filesystem, or when the file does exist, but
215 Even without a symbol file, the remote-based debugging session should
216 continue normally instead of ending abruptly. Hence we catch thrown
217 errors/exceptions in the following code. */
220 exec_file_attach (full_exec_path
, from_tty
);
222 CATCH (err
, RETURN_MASK_ERROR
)
224 if (err
.message
!= NULL
)
225 warning ("%s", err
.message
);
229 /* Save message so it doesn't get trashed by the catch below. */
230 prev_err
.message
= xstrdup (err
.message
);
237 current_inferior ()->symfile_flags
|= SYMFILE_DEFER_BP_RESET
;
238 symbol_file_add_main (full_exec_path
, from_tty
);
240 CATCH (err
, RETURN_MASK_ERROR
)
242 if (!exception_print_same (prev_err
, err
))
243 warning ("%s", err
.message
);
246 current_inferior ()->symfile_flags
&= ~SYMFILE_DEFER_BP_RESET
;
248 do_cleanups (old_chain
);
251 /* Set FILENAME as the new exec file.
253 This function is intended to be behave essentially the same
254 as exec_file_command, except that the latter will detect when
255 a target is being debugged, and will ask the user whether it
256 should be shut down first. (If the answer is "no", then the
257 new file is ignored.)
259 This file is used by exec_file_command, to do the work of opening
260 and processing the exec file after any prompting has happened.
262 And, it is used by child_attach, when the attach command was
263 given a pid but not a exec pathname, and the attach command could
264 figure out the pathname from the pid. (In this case, we shouldn't
265 ask the user whether the current target should be shut down --
266 we're supplying the exec pathname late for good reason.) */
269 exec_file_attach (const char *filename
, int from_tty
)
271 struct cleanup
*cleanups
;
273 /* First, acquire a reference to the current exec_bfd. We release
274 this at the end of the function; but acquiring it now lets the
275 BFD cache return it if this call refers to the same file. */
276 gdb_bfd_ref (exec_bfd
);
277 cleanups
= make_cleanup_bfd_unref (exec_bfd
);
279 /* Remove any previous exec file. */
282 /* Now open and digest the file the user requested, if any. */
287 printf_unfiltered (_("No executable file now.\n"));
289 set_gdbarch_from_file (NULL
);
293 int load_via_target
= 0;
294 char *scratch_pathname
, *canonical_pathname
;
296 struct target_section
*sections
= NULL
, *sections_end
= NULL
;
299 if (is_target_filename (filename
))
301 if (target_filesystem_is_local ())
302 filename
+= strlen (TARGET_SYSROOT_PREFIX
);
309 /* gdb_bfd_fopen does not support "target:" filenames. */
311 warning (_("writing into executable files is "
312 "not supported for %s sysroots"),
313 TARGET_SYSROOT_PREFIX
);
315 scratch_pathname
= xstrdup (filename
);
316 make_cleanup (xfree
, scratch_pathname
);
320 canonical_pathname
= scratch_pathname
;
324 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
325 filename
, write_files
?
326 O_RDWR
| O_BINARY
: O_RDONLY
| O_BINARY
,
328 #if defined(__GO32__) || defined(_WIN32) || defined(__CYGWIN__)
329 if (scratch_chan
< 0)
331 char *exename
= (char *) alloca (strlen (filename
) + 5);
333 strcat (strcpy (exename
, filename
), ".exe");
334 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
335 exename
, write_files
?
337 : O_RDONLY
| O_BINARY
,
341 if (scratch_chan
< 0)
342 perror_with_name (filename
);
344 make_cleanup (xfree
, scratch_pathname
);
346 /* gdb_bfd_open (and its variants) prefers canonicalized
347 pathname for better BFD caching. */
348 canonical_pathname
= gdb_realpath (scratch_pathname
);
349 make_cleanup (xfree
, canonical_pathname
);
352 if (write_files
&& !load_via_target
)
353 exec_bfd
= gdb_bfd_fopen (canonical_pathname
, gnutarget
,
354 FOPEN_RUB
, scratch_chan
);
356 exec_bfd
= gdb_bfd_open (canonical_pathname
, gnutarget
, scratch_chan
);
360 error (_("\"%s\": could not open as an executable file: %s."),
361 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
364 /* gdb_realpath_keepfile resolves symlinks on the local
365 filesystem and so cannot be used for "target:" files. */
366 gdb_assert (exec_filename
== NULL
);
368 exec_filename
= xstrdup (bfd_get_filename (exec_bfd
));
370 exec_filename
= gdb_realpath_keepfile (scratch_pathname
);
372 if (!bfd_check_format_matches (exec_bfd
, bfd_object
, &matching
))
374 /* Make sure to close exec_bfd, or else "run" might try to use
377 error (_("\"%s\": not in executable format: %s"),
379 gdb_bfd_errmsg (bfd_get_error (), matching
));
382 if (build_section_table (exec_bfd
, §ions
, §ions_end
))
384 /* Make sure to close exec_bfd, or else "run" might try to use
387 error (_("\"%s\": can't find the file sections: %s"),
388 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
391 exec_bfd_mtime
= bfd_get_mtime (exec_bfd
);
395 set_gdbarch_from_file (exec_bfd
);
397 /* Add the executable's sections to the current address spaces'
398 list of sections. This possibly pushes the exec_ops
400 add_target_sections (&exec_bfd
, sections
, sections_end
);
403 /* Tell display code (if any) about the changed file name. */
404 if (deprecated_exec_file_display_hook
)
405 (*deprecated_exec_file_display_hook
) (filename
);
408 do_cleanups (cleanups
);
410 bfd_cache_close_all ();
411 observer_notify_executable_changed ();
414 /* Process the first arg in ARGS as the new exec file.
416 Note that we have to explicitly ignore additional args, since we can
417 be called from file_command(), which also calls symbol_file_command()
418 which can take multiple args.
420 If ARGS is NULL, we just want to close the exec file. */
423 exec_file_command (char *args
, int from_tty
)
428 if (from_tty
&& target_has_execution
429 && !query (_("A program is being debugged already.\n"
430 "Are you sure you want to change the file? ")))
431 error (_("File not changed."));
435 struct cleanup
*cleanups
;
437 /* Scan through the args and pick up the first non option arg
440 argv
= gdb_buildargv (args
);
441 cleanups
= make_cleanup_freeargv (argv
);
443 for (; (*argv
!= NULL
) && (**argv
== '-'); argv
++)
447 error (_("No executable file name was specified"));
449 filename
= tilde_expand (*argv
);
450 make_cleanup (xfree
, filename
);
451 exec_file_attach (filename
, from_tty
);
453 do_cleanups (cleanups
);
456 exec_file_attach (NULL
, from_tty
);
459 /* Set both the exec file and the symbol file, in one command.
460 What a novelty. Why did GDB go through four major releases before this
461 command was added? */
464 file_command (char *arg
, int from_tty
)
466 /* FIXME, if we lose on reading the symbol file, we should revert
467 the exec file, but that's rough. */
468 exec_file_command (arg
, from_tty
);
469 symbol_file_command (arg
, from_tty
);
470 if (deprecated_file_changed_hook
)
471 deprecated_file_changed_hook (arg
);
475 /* Locate all mappable sections of a BFD file.
476 table_pp_char is a char * to get it through bfd_map_over_sections;
477 we cast it back to its proper type. */
480 add_to_section_table (bfd
*abfd
, struct bfd_section
*asect
,
483 struct target_section
**table_pp
= (struct target_section
**) table_pp_char
;
486 gdb_assert (abfd
== asect
->owner
);
488 /* Check the section flags, but do not discard zero-length sections, since
489 some symbols may still be attached to this section. For instance, we
490 encountered on sparc-solaris 2.10 a shared library with an empty .bss
491 section to which a symbol named "_end" was attached. The address
492 of this symbol still needs to be relocated. */
493 aflag
= bfd_get_section_flags (abfd
, asect
);
494 if (!(aflag
& SEC_ALLOC
))
497 (*table_pp
)->owner
= NULL
;
498 (*table_pp
)->the_bfd_section
= asect
;
499 (*table_pp
)->addr
= bfd_section_vma (abfd
, asect
);
500 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (abfd
, asect
);
507 clear_section_table (struct target_section_table
*table
)
509 xfree (table
->sections
);
510 table
->sections
= table
->sections_end
= NULL
;
513 /* Resize section table TABLE by ADJUSTMENT.
514 ADJUSTMENT may be negative, in which case the caller must have already
515 removed the sections being deleted.
516 Returns the old size. */
519 resize_section_table (struct target_section_table
*table
, int adjustment
)
524 old_count
= table
->sections_end
- table
->sections
;
526 new_count
= adjustment
+ old_count
;
530 table
->sections
= XRESIZEVEC (struct target_section
, table
->sections
,
532 table
->sections_end
= table
->sections
+ new_count
;
535 clear_section_table (table
);
540 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
541 Returns 0 if OK, 1 on error. */
544 build_section_table (struct bfd
*some_bfd
, struct target_section
**start
,
545 struct target_section
**end
)
549 count
= bfd_count_sections (some_bfd
);
552 *start
= XNEWVEC (struct target_section
, count
);
554 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *) end
);
555 if (*end
> *start
+ count
)
556 internal_error (__FILE__
, __LINE__
,
557 _("failed internal consistency check"));
558 /* We could realloc the table, but it probably loses for most files. */
562 /* Add the sections array defined by [SECTIONS..SECTIONS_END[ to the
563 current set of target sections. */
566 add_target_sections (void *owner
,
567 struct target_section
*sections
,
568 struct target_section
*sections_end
)
571 struct target_section_table
*table
= current_target_sections
;
573 count
= sections_end
- sections
;
577 int space
= resize_section_table (table
, count
);
580 for (i
= 0; i
< count
; ++i
)
582 table
->sections
[space
+ i
] = sections
[i
];
583 table
->sections
[space
+ i
].owner
= owner
;
586 /* If these are the first file sections we can provide memory
587 from, push the file_stratum target. */
588 if (!target_is_pushed (&exec_ops
))
589 push_target (&exec_ops
);
593 /* Add the sections of OBJFILE to the current set of target sections. */
596 add_target_sections_of_objfile (struct objfile
*objfile
)
598 struct target_section_table
*table
= current_target_sections
;
599 struct obj_section
*osect
;
602 struct target_section
*ts
;
607 /* Compute the number of sections to add. */
608 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
610 if (bfd_get_section_size (osect
->the_bfd_section
) == 0)
618 space
= resize_section_table (table
, count
);
620 ts
= table
->sections
+ space
;
622 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
624 if (bfd_get_section_size (osect
->the_bfd_section
) == 0)
627 gdb_assert (ts
< table
->sections
+ space
+ count
);
629 ts
->addr
= obj_section_addr (osect
);
630 ts
->endaddr
= obj_section_endaddr (osect
);
631 ts
->the_bfd_section
= osect
->the_bfd_section
;
632 ts
->owner
= (void *) objfile
;
638 /* Remove all target sections owned by OWNER.
639 OWNER must be the same value passed to add_target_sections. */
642 remove_target_sections (void *owner
)
644 struct target_section
*src
, *dest
;
645 struct target_section_table
*table
= current_target_sections
;
647 gdb_assert (owner
!= NULL
);
649 dest
= table
->sections
;
650 for (src
= table
->sections
; src
< table
->sections_end
; src
++)
651 if (src
->owner
!= owner
)
653 /* Keep this section. */
659 /* If we've dropped any sections, resize the section table. */
664 old_count
= resize_section_table (table
, dest
- src
);
666 /* If we don't have any more sections to read memory from,
667 remove the file_stratum target from the stack. */
668 if (old_count
+ (dest
- src
) == 0)
670 struct program_space
*pspace
;
673 if (pspace
->target_sections
.sections
674 != pspace
->target_sections
.sections_end
)
677 unpush_target (&exec_ops
);
684 enum target_xfer_status
685 exec_read_partial_read_only (gdb_byte
*readbuf
, ULONGEST offset
,
686 ULONGEST len
, ULONGEST
*xfered_len
)
688 /* It's unduly pedantic to refuse to look at the executable for
689 read-only pieces; so do the equivalent of readonly regions aka
691 if (exec_bfd
!= NULL
)
697 for (s
= exec_bfd
->sections
; s
; s
= s
->next
)
699 if ((s
->flags
& SEC_LOAD
) == 0
700 || (s
->flags
& SEC_READONLY
) == 0)
704 size
= bfd_get_section_size (s
);
705 if (vma
<= offset
&& offset
< (vma
+ size
))
709 amt
= (vma
+ size
) - offset
;
713 amt
= bfd_get_section_contents (exec_bfd
, s
,
714 readbuf
, offset
- vma
, amt
);
717 return TARGET_XFER_EOF
;
721 return TARGET_XFER_OK
;
727 /* Indicate failure to find the requested memory block. */
728 return TARGET_XFER_E_IO
;
731 /* Appends all read-only memory ranges found in the target section
732 table defined by SECTIONS and SECTIONS_END, starting at (and
733 intersected with) MEMADDR for LEN bytes. Returns the augmented
736 static VEC(mem_range_s
) *
737 section_table_available_memory (VEC(mem_range_s
) *memory
,
738 CORE_ADDR memaddr
, ULONGEST len
,
739 struct target_section
*sections
,
740 struct target_section
*sections_end
)
742 struct target_section
*p
;
744 for (p
= sections
; p
< sections_end
; p
++)
746 if ((bfd_get_section_flags (p
->the_bfd_section
->owner
,
748 & SEC_READONLY
) == 0)
751 /* Copy the meta-data, adjusted. */
752 if (mem_ranges_overlap (p
->addr
, p
->endaddr
- p
->addr
, memaddr
, len
))
754 ULONGEST lo1
, hi1
, lo2
, hi2
;
763 r
= VEC_safe_push (mem_range_s
, memory
, NULL
);
765 r
->start
= std::max (lo1
, lo2
);
766 r
->length
= std::min (hi1
, hi2
) - r
->start
;
773 enum target_xfer_status
774 section_table_read_available_memory (gdb_byte
*readbuf
, ULONGEST offset
,
775 ULONGEST len
, ULONGEST
*xfered_len
)
777 VEC(mem_range_s
) *available_memory
= NULL
;
778 struct target_section_table
*table
;
779 struct cleanup
*old_chain
;
783 table
= target_get_section_table (&exec_ops
);
784 available_memory
= section_table_available_memory (available_memory
,
787 table
->sections_end
);
789 old_chain
= make_cleanup (VEC_cleanup(mem_range_s
),
792 normalize_mem_ranges (available_memory
);
795 VEC_iterate (mem_range_s
, available_memory
, i
, r
);
798 if (mem_ranges_overlap (r
->start
, r
->length
, offset
, len
))
801 enum target_xfer_status status
;
803 /* Get the intersection window. */
804 end
= std::min
<CORE_ADDR
> (offset
+ len
, r
->start
+ r
->length
);
806 gdb_assert (end
- offset
<= len
);
808 if (offset
>= r
->start
)
809 status
= exec_read_partial_read_only (readbuf
, offset
,
814 *xfered_len
= r
->start
- offset
;
815 status
= TARGET_XFER_UNAVAILABLE
;
817 do_cleanups (old_chain
);
821 do_cleanups (old_chain
);
824 return TARGET_XFER_UNAVAILABLE
;
827 enum target_xfer_status
828 section_table_xfer_memory_partial (gdb_byte
*readbuf
, const gdb_byte
*writebuf
,
829 ULONGEST offset
, ULONGEST len
,
830 ULONGEST
*xfered_len
,
831 struct target_section
*sections
,
832 struct target_section
*sections_end
,
833 const char *section_name
)
836 struct target_section
*p
;
837 ULONGEST memaddr
= offset
;
838 ULONGEST memend
= memaddr
+ len
;
841 internal_error (__FILE__
, __LINE__
,
842 _("failed internal consistency check"));
844 for (p
= sections
; p
< sections_end
; p
++)
846 struct bfd_section
*asect
= p
->the_bfd_section
;
847 bfd
*abfd
= asect
->owner
;
849 if (section_name
&& strcmp (section_name
, asect
->name
) != 0)
850 continue; /* not the section we need. */
851 if (memaddr
>= p
->addr
)
853 if (memend
<= p
->endaddr
)
855 /* Entire transfer is within this section. */
857 res
= bfd_set_section_contents (abfd
, asect
,
858 writebuf
, memaddr
- p
->addr
,
861 res
= bfd_get_section_contents (abfd
, asect
,
862 readbuf
, memaddr
- p
->addr
,
868 return TARGET_XFER_OK
;
871 return TARGET_XFER_EOF
;
873 else if (memaddr
>= p
->endaddr
)
875 /* This section ends before the transfer starts. */
880 /* This section overlaps the transfer. Just do half. */
881 len
= p
->endaddr
- memaddr
;
883 res
= bfd_set_section_contents (abfd
, asect
,
884 writebuf
, memaddr
- p
->addr
,
887 res
= bfd_get_section_contents (abfd
, asect
,
888 readbuf
, memaddr
- p
->addr
,
893 return TARGET_XFER_OK
;
896 return TARGET_XFER_EOF
;
901 return TARGET_XFER_EOF
; /* We can't help. */
904 static struct target_section_table
*
905 exec_get_section_table (struct target_ops
*ops
)
907 return current_target_sections
;
910 static enum target_xfer_status
911 exec_xfer_partial (struct target_ops
*ops
, enum target_object object
,
912 const char *annex
, gdb_byte
*readbuf
,
913 const gdb_byte
*writebuf
,
914 ULONGEST offset
, ULONGEST len
, ULONGEST
*xfered_len
)
916 struct target_section_table
*table
= target_get_section_table (ops
);
918 if (object
== TARGET_OBJECT_MEMORY
)
919 return section_table_xfer_memory_partial (readbuf
, writebuf
,
920 offset
, len
, xfered_len
,
925 return TARGET_XFER_E_IO
;
930 print_section_info (struct target_section_table
*t
, bfd
*abfd
)
932 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
933 struct target_section
*p
;
934 /* FIXME: 16 is not wide enough when gdbarch_addr_bit > 64. */
935 int wid
= gdbarch_addr_bit (gdbarch
) <= 32 ? 8 : 16;
937 printf_filtered ("\t`%s', ", bfd_get_filename (abfd
));
939 printf_filtered (_("file type %s.\n"), bfd_get_target (abfd
));
940 if (abfd
== exec_bfd
)
942 /* gcc-3.4 does not like the initialization in
943 <p == t->sections_end>. */
944 bfd_vma displacement
= 0;
947 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
949 struct bfd_section
*psect
= p
->the_bfd_section
;
950 bfd
*pbfd
= psect
->owner
;
952 if ((bfd_get_section_flags (pbfd
, psect
) & (SEC_ALLOC
| SEC_LOAD
))
953 != (SEC_ALLOC
| SEC_LOAD
))
956 if (bfd_get_section_vma (pbfd
, psect
) <= abfd
->start_address
957 && abfd
->start_address
< (bfd_get_section_vma (pbfd
, psect
)
958 + bfd_get_section_size (psect
)))
960 displacement
= p
->addr
- bfd_get_section_vma (pbfd
, psect
);
964 if (p
== t
->sections_end
)
965 warning (_("Cannot find section for the entry point of %s."),
966 bfd_get_filename (abfd
));
968 entry_point
= gdbarch_addr_bits_remove (gdbarch
,
969 bfd_get_start_address (abfd
)
971 printf_filtered (_("\tEntry point: %s\n"),
972 paddress (gdbarch
, entry_point
));
974 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
976 struct bfd_section
*psect
= p
->the_bfd_section
;
977 bfd
*pbfd
= psect
->owner
;
979 printf_filtered ("\t%s", hex_string_custom (p
->addr
, wid
));
980 printf_filtered (" - %s", hex_string_custom (p
->endaddr
, wid
));
982 /* FIXME: A format of "08l" is not wide enough for file offsets
983 larger than 4GB. OTOH, making it "016l" isn't desirable either
984 since most output will then be much wider than necessary. It
985 may make sense to test the size of the file and choose the
986 format string accordingly. */
987 /* FIXME: i18n: Need to rewrite this sentence. */
989 printf_filtered (" @ %s",
990 hex_string_custom (psect
->filepos
, 8));
991 printf_filtered (" is %s", bfd_section_name (pbfd
, psect
));
993 printf_filtered (" in %s", bfd_get_filename (pbfd
));
994 printf_filtered ("\n");
999 exec_files_info (struct target_ops
*t
)
1002 print_section_info (current_target_sections
, exec_bfd
);
1004 puts_filtered (_("\t<no file loaded>\n"));
1008 set_section_command (char *args
, int from_tty
)
1010 struct target_section
*p
;
1013 unsigned long secaddr
;
1016 struct target_section_table
*table
;
1019 error (_("Must specify section name and its virtual address"));
1021 /* Parse out section name. */
1022 for (secname
= args
; !isspace (*args
); args
++);
1023 seclen
= args
- secname
;
1025 /* Parse out new virtual address. */
1026 secaddr
= parse_and_eval_address (args
);
1028 table
= current_target_sections
;
1029 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1031 if (!strncmp (secname
, bfd_section_name (p
->bfd
,
1032 p
->the_bfd_section
), seclen
)
1033 && bfd_section_name (p
->bfd
, p
->the_bfd_section
)[seclen
] == '\0')
1035 offset
= secaddr
- p
->addr
;
1037 p
->endaddr
+= offset
;
1039 exec_files_info (&exec_ops
);
1043 if (seclen
>= sizeof (secprint
))
1044 seclen
= sizeof (secprint
) - 1;
1045 strncpy (secprint
, secname
, seclen
);
1046 secprint
[seclen
] = '\0';
1047 error (_("Section %s not found"), secprint
);
1050 /* If we can find a section in FILENAME with BFD index INDEX, adjust
1054 exec_set_section_address (const char *filename
, int index
, CORE_ADDR address
)
1056 struct target_section
*p
;
1057 struct target_section_table
*table
;
1059 table
= current_target_sections
;
1060 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1062 if (filename_cmp (filename
, p
->the_bfd_section
->owner
->filename
) == 0
1063 && index
== p
->the_bfd_section
->index
)
1065 p
->endaddr
+= address
- p
->addr
;
1071 /* If mourn is being called in all the right places, this could be say
1072 `gdb internal error' (since generic_mourn calls
1073 breakpoint_init_inferior). */
1076 ignore (struct target_ops
*ops
, struct gdbarch
*gdbarch
,
1077 struct bp_target_info
*bp_tgt
)
1082 /* Implement the to_remove_breakpoint method. */
1085 exec_remove_breakpoint (struct target_ops
*ops
, struct gdbarch
*gdbarch
,
1086 struct bp_target_info
*bp_tgt
,
1087 enum remove_bp_reason reason
)
1093 exec_has_memory (struct target_ops
*ops
)
1095 /* We can provide memory if we have any file/target sections to read
1097 return (current_target_sections
->sections
1098 != current_target_sections
->sections_end
);
1102 exec_make_note_section (struct target_ops
*self
, bfd
*obfd
, int *note_size
)
1104 error (_("Can't create a corefile"));
1107 /* Fill in the exec file target vector. Very few entries need to be
1111 init_exec_ops (void)
1113 exec_ops
.to_shortname
= "exec";
1114 exec_ops
.to_longname
= "Local exec file";
1115 exec_ops
.to_doc
= "Use an executable file as a target.\n\
1116 Specify the filename of the executable file.";
1117 exec_ops
.to_open
= exec_open
;
1118 exec_ops
.to_close
= exec_close_1
;
1119 exec_ops
.to_xfer_partial
= exec_xfer_partial
;
1120 exec_ops
.to_get_section_table
= exec_get_section_table
;
1121 exec_ops
.to_files_info
= exec_files_info
;
1122 exec_ops
.to_insert_breakpoint
= ignore
;
1123 exec_ops
.to_remove_breakpoint
= exec_remove_breakpoint
;
1124 exec_ops
.to_stratum
= file_stratum
;
1125 exec_ops
.to_has_memory
= exec_has_memory
;
1126 exec_ops
.to_make_corefile_notes
= exec_make_note_section
;
1127 exec_ops
.to_find_memory_regions
= objfile_find_memory_regions
;
1128 exec_ops
.to_magic
= OPS_MAGIC
;
1132 _initialize_exec (void)
1134 struct cmd_list_element
*c
;
1140 c
= add_cmd ("file", class_files
, file_command
, _("\
1141 Use FILE as program to be debugged.\n\
1142 It is read for its symbols, for getting the contents of pure memory,\n\
1143 and it is the program executed when you use the `run' command.\n\
1144 If FILE cannot be found as specified, your execution directory path\n\
1145 ($PATH) is searched for a command of that name.\n\
1146 No arg means to have no executable file and no symbols."), &cmdlist
);
1147 set_cmd_completer (c
, filename_completer
);
1150 c
= add_cmd ("exec-file", class_files
, exec_file_command
, _("\
1151 Use FILE as program for getting contents of pure memory.\n\
1152 If FILE cannot be found as specified, your execution directory path\n\
1153 is searched for a command of that name.\n\
1154 No arg means have no executable file."), &cmdlist
);
1155 set_cmd_completer (c
, filename_completer
);
1157 add_com ("section", class_files
, set_section_command
, _("\
1158 Change the base address of section SECTION of the exec file to ADDR.\n\
1159 This can be used if the exec file does not contain section addresses,\n\
1160 (such as in the a.out format), or when the addresses specified in the\n\
1161 file itself are wrong. Each section must be changed separately. The\n\
1162 ``info files'' command lists all the sections and their addresses."));
1164 add_setshow_boolean_cmd ("write", class_support
, &write_files
, _("\
1165 Set writing into executable and core files."), _("\
1166 Show writing into executable and core files."), NULL
,
1169 &setlist
, &showlist
);
1171 add_target_with_completer (&exec_ops
, filename_completer
);