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 (msg1
, msg2
) == 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 if (err
.message
!= NULL
)
231 prev_err
.message
= xstrdup (err
.message
);
238 current_inferior ()->symfile_flags
|= SYMFILE_DEFER_BP_RESET
;
239 symbol_file_add_main (full_exec_path
, from_tty
);
241 CATCH (err
, RETURN_MASK_ERROR
)
243 if (!exception_print_same (prev_err
, err
))
244 warning ("%s", err
.message
);
247 current_inferior ()->symfile_flags
&= ~SYMFILE_DEFER_BP_RESET
;
249 do_cleanups (old_chain
);
252 /* Set FILENAME as the new exec file.
254 This function is intended to be behave essentially the same
255 as exec_file_command, except that the latter will detect when
256 a target is being debugged, and will ask the user whether it
257 should be shut down first. (If the answer is "no", then the
258 new file is ignored.)
260 This file is used by exec_file_command, to do the work of opening
261 and processing the exec file after any prompting has happened.
263 And, it is used by child_attach, when the attach command was
264 given a pid but not a exec pathname, and the attach command could
265 figure out the pathname from the pid. (In this case, we shouldn't
266 ask the user whether the current target should be shut down --
267 we're supplying the exec pathname late for good reason.) */
270 exec_file_attach (const char *filename
, int from_tty
)
272 struct cleanup
*cleanups
;
274 /* First, acquire a reference to the current exec_bfd. We release
275 this at the end of the function; but acquiring it now lets the
276 BFD cache return it if this call refers to the same file. */
277 gdb_bfd_ref (exec_bfd
);
278 cleanups
= make_cleanup_bfd_unref (exec_bfd
);
280 /* Remove any previous exec file. */
283 /* Now open and digest the file the user requested, if any. */
288 printf_unfiltered (_("No executable file now.\n"));
290 set_gdbarch_from_file (NULL
);
294 int load_via_target
= 0;
295 char *scratch_pathname
, *canonical_pathname
;
297 struct target_section
*sections
= NULL
, *sections_end
= NULL
;
300 if (is_target_filename (filename
))
302 if (target_filesystem_is_local ())
303 filename
+= strlen (TARGET_SYSROOT_PREFIX
);
310 /* gdb_bfd_fopen does not support "target:" filenames. */
312 warning (_("writing into executable files is "
313 "not supported for %s sysroots"),
314 TARGET_SYSROOT_PREFIX
);
316 scratch_pathname
= xstrdup (filename
);
317 make_cleanup (xfree
, scratch_pathname
);
321 canonical_pathname
= scratch_pathname
;
325 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
326 filename
, write_files
?
327 O_RDWR
| O_BINARY
: O_RDONLY
| O_BINARY
,
329 #if defined(__GO32__) || defined(_WIN32) || defined(__CYGWIN__)
330 if (scratch_chan
< 0)
332 char *exename
= (char *) alloca (strlen (filename
) + 5);
334 strcat (strcpy (exename
, filename
), ".exe");
335 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
336 exename
, write_files
?
338 : O_RDONLY
| O_BINARY
,
342 if (scratch_chan
< 0)
343 perror_with_name (filename
);
345 make_cleanup (xfree
, scratch_pathname
);
347 /* gdb_bfd_open (and its variants) prefers canonicalized
348 pathname for better BFD caching. */
349 canonical_pathname
= gdb_realpath (scratch_pathname
);
350 make_cleanup (xfree
, canonical_pathname
);
353 if (write_files
&& !load_via_target
)
354 exec_bfd
= gdb_bfd_fopen (canonical_pathname
, gnutarget
,
355 FOPEN_RUB
, scratch_chan
);
357 exec_bfd
= gdb_bfd_open (canonical_pathname
, gnutarget
, scratch_chan
);
361 error (_("\"%s\": could not open as an executable file: %s."),
362 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
365 /* gdb_realpath_keepfile resolves symlinks on the local
366 filesystem and so cannot be used for "target:" files. */
367 gdb_assert (exec_filename
== NULL
);
369 exec_filename
= xstrdup (bfd_get_filename (exec_bfd
));
371 exec_filename
= gdb_realpath_keepfile (scratch_pathname
);
373 if (!bfd_check_format_matches (exec_bfd
, bfd_object
, &matching
))
375 /* Make sure to close exec_bfd, or else "run" might try to use
378 error (_("\"%s\": not in executable format: %s"),
380 gdb_bfd_errmsg (bfd_get_error (), matching
));
383 if (build_section_table (exec_bfd
, §ions
, §ions_end
))
385 /* Make sure to close exec_bfd, or else "run" might try to use
388 error (_("\"%s\": can't find the file sections: %s"),
389 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
392 exec_bfd_mtime
= bfd_get_mtime (exec_bfd
);
396 set_gdbarch_from_file (exec_bfd
);
398 /* Add the executable's sections to the current address spaces'
399 list of sections. This possibly pushes the exec_ops
401 add_target_sections (&exec_bfd
, sections
, sections_end
);
404 /* Tell display code (if any) about the changed file name. */
405 if (deprecated_exec_file_display_hook
)
406 (*deprecated_exec_file_display_hook
) (filename
);
409 do_cleanups (cleanups
);
411 bfd_cache_close_all ();
412 observer_notify_executable_changed ();
415 /* Process the first arg in ARGS as the new exec file.
417 Note that we have to explicitly ignore additional args, since we can
418 be called from file_command(), which also calls symbol_file_command()
419 which can take multiple args.
421 If ARGS is NULL, we just want to close the exec file. */
424 exec_file_command (char *args
, int from_tty
)
429 if (from_tty
&& target_has_execution
430 && !query (_("A program is being debugged already.\n"
431 "Are you sure you want to change the file? ")))
432 error (_("File not changed."));
436 struct cleanup
*cleanups
;
438 /* Scan through the args and pick up the first non option arg
441 argv
= gdb_buildargv (args
);
442 cleanups
= make_cleanup_freeargv (argv
);
444 for (; (*argv
!= NULL
) && (**argv
== '-'); argv
++)
448 error (_("No executable file name was specified"));
450 filename
= tilde_expand (*argv
);
451 make_cleanup (xfree
, filename
);
452 exec_file_attach (filename
, from_tty
);
454 do_cleanups (cleanups
);
457 exec_file_attach (NULL
, from_tty
);
460 /* Set both the exec file and the symbol file, in one command.
461 What a novelty. Why did GDB go through four major releases before this
462 command was added? */
465 file_command (char *arg
, int from_tty
)
467 /* FIXME, if we lose on reading the symbol file, we should revert
468 the exec file, but that's rough. */
469 exec_file_command (arg
, from_tty
);
470 symbol_file_command (arg
, from_tty
);
471 if (deprecated_file_changed_hook
)
472 deprecated_file_changed_hook (arg
);
476 /* Locate all mappable sections of a BFD file.
477 table_pp_char is a char * to get it through bfd_map_over_sections;
478 we cast it back to its proper type. */
481 add_to_section_table (bfd
*abfd
, struct bfd_section
*asect
,
484 struct target_section
**table_pp
= (struct target_section
**) table_pp_char
;
487 gdb_assert (abfd
== asect
->owner
);
489 /* Check the section flags, but do not discard zero-length sections, since
490 some symbols may still be attached to this section. For instance, we
491 encountered on sparc-solaris 2.10 a shared library with an empty .bss
492 section to which a symbol named "_end" was attached. The address
493 of this symbol still needs to be relocated. */
494 aflag
= bfd_get_section_flags (abfd
, asect
);
495 if (!(aflag
& SEC_ALLOC
))
498 (*table_pp
)->owner
= NULL
;
499 (*table_pp
)->the_bfd_section
= asect
;
500 (*table_pp
)->addr
= bfd_section_vma (abfd
, asect
);
501 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (abfd
, asect
);
508 clear_section_table (struct target_section_table
*table
)
510 xfree (table
->sections
);
511 table
->sections
= table
->sections_end
= NULL
;
514 /* Resize section table TABLE by ADJUSTMENT.
515 ADJUSTMENT may be negative, in which case the caller must have already
516 removed the sections being deleted.
517 Returns the old size. */
520 resize_section_table (struct target_section_table
*table
, int adjustment
)
525 old_count
= table
->sections_end
- table
->sections
;
527 new_count
= adjustment
+ old_count
;
531 table
->sections
= XRESIZEVEC (struct target_section
, table
->sections
,
533 table
->sections_end
= table
->sections
+ new_count
;
536 clear_section_table (table
);
541 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
542 Returns 0 if OK, 1 on error. */
545 build_section_table (struct bfd
*some_bfd
, struct target_section
**start
,
546 struct target_section
**end
)
550 count
= bfd_count_sections (some_bfd
);
553 *start
= XNEWVEC (struct target_section
, count
);
555 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *) end
);
556 if (*end
> *start
+ count
)
557 internal_error (__FILE__
, __LINE__
,
558 _("failed internal consistency check"));
559 /* We could realloc the table, but it probably loses for most files. */
563 /* Add the sections array defined by [SECTIONS..SECTIONS_END[ to the
564 current set of target sections. */
567 add_target_sections (void *owner
,
568 struct target_section
*sections
,
569 struct target_section
*sections_end
)
572 struct target_section_table
*table
= current_target_sections
;
574 count
= sections_end
- sections
;
578 int space
= resize_section_table (table
, count
);
581 for (i
= 0; i
< count
; ++i
)
583 table
->sections
[space
+ i
] = sections
[i
];
584 table
->sections
[space
+ i
].owner
= owner
;
587 /* If these are the first file sections we can provide memory
588 from, push the file_stratum target. */
589 if (!target_is_pushed (&exec_ops
))
590 push_target (&exec_ops
);
594 /* Add the sections of OBJFILE to the current set of target sections. */
597 add_target_sections_of_objfile (struct objfile
*objfile
)
599 struct target_section_table
*table
= current_target_sections
;
600 struct obj_section
*osect
;
603 struct target_section
*ts
;
608 /* Compute the number of sections to add. */
609 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
611 if (bfd_get_section_size (osect
->the_bfd_section
) == 0)
619 space
= resize_section_table (table
, count
);
621 ts
= table
->sections
+ space
;
623 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
625 if (bfd_get_section_size (osect
->the_bfd_section
) == 0)
628 gdb_assert (ts
< table
->sections
+ space
+ count
);
630 ts
->addr
= obj_section_addr (osect
);
631 ts
->endaddr
= obj_section_endaddr (osect
);
632 ts
->the_bfd_section
= osect
->the_bfd_section
;
633 ts
->owner
= (void *) objfile
;
639 /* Remove all target sections owned by OWNER.
640 OWNER must be the same value passed to add_target_sections. */
643 remove_target_sections (void *owner
)
645 struct target_section
*src
, *dest
;
646 struct target_section_table
*table
= current_target_sections
;
648 gdb_assert (owner
!= NULL
);
650 dest
= table
->sections
;
651 for (src
= table
->sections
; src
< table
->sections_end
; src
++)
652 if (src
->owner
!= owner
)
654 /* Keep this section. */
660 /* If we've dropped any sections, resize the section table. */
665 old_count
= resize_section_table (table
, dest
- src
);
667 /* If we don't have any more sections to read memory from,
668 remove the file_stratum target from the stack. */
669 if (old_count
+ (dest
- src
) == 0)
671 struct program_space
*pspace
;
674 if (pspace
->target_sections
.sections
675 != pspace
->target_sections
.sections_end
)
678 unpush_target (&exec_ops
);
685 enum target_xfer_status
686 exec_read_partial_read_only (gdb_byte
*readbuf
, ULONGEST offset
,
687 ULONGEST len
, ULONGEST
*xfered_len
)
689 /* It's unduly pedantic to refuse to look at the executable for
690 read-only pieces; so do the equivalent of readonly regions aka
692 if (exec_bfd
!= NULL
)
698 for (s
= exec_bfd
->sections
; s
; s
= s
->next
)
700 if ((s
->flags
& SEC_LOAD
) == 0
701 || (s
->flags
& SEC_READONLY
) == 0)
705 size
= bfd_get_section_size (s
);
706 if (vma
<= offset
&& offset
< (vma
+ size
))
710 amt
= (vma
+ size
) - offset
;
714 amt
= bfd_get_section_contents (exec_bfd
, s
,
715 readbuf
, offset
- vma
, amt
);
718 return TARGET_XFER_EOF
;
722 return TARGET_XFER_OK
;
728 /* Indicate failure to find the requested memory block. */
729 return TARGET_XFER_E_IO
;
732 /* Appends all read-only memory ranges found in the target section
733 table defined by SECTIONS and SECTIONS_END, starting at (and
734 intersected with) MEMADDR for LEN bytes. Returns the augmented
737 static VEC(mem_range_s
) *
738 section_table_available_memory (VEC(mem_range_s
) *memory
,
739 CORE_ADDR memaddr
, ULONGEST len
,
740 struct target_section
*sections
,
741 struct target_section
*sections_end
)
743 struct target_section
*p
;
745 for (p
= sections
; p
< sections_end
; p
++)
747 if ((bfd_get_section_flags (p
->the_bfd_section
->owner
,
749 & SEC_READONLY
) == 0)
752 /* Copy the meta-data, adjusted. */
753 if (mem_ranges_overlap (p
->addr
, p
->endaddr
- p
->addr
, memaddr
, len
))
755 ULONGEST lo1
, hi1
, lo2
, hi2
;
764 r
= VEC_safe_push (mem_range_s
, memory
, NULL
);
766 r
->start
= std::max (lo1
, lo2
);
767 r
->length
= std::min (hi1
, hi2
) - r
->start
;
774 enum target_xfer_status
775 section_table_read_available_memory (gdb_byte
*readbuf
, ULONGEST offset
,
776 ULONGEST len
, ULONGEST
*xfered_len
)
778 VEC(mem_range_s
) *available_memory
= NULL
;
779 struct target_section_table
*table
;
780 struct cleanup
*old_chain
;
784 table
= target_get_section_table (&exec_ops
);
785 available_memory
= section_table_available_memory (available_memory
,
788 table
->sections_end
);
790 old_chain
= make_cleanup (VEC_cleanup(mem_range_s
),
793 normalize_mem_ranges (available_memory
);
796 VEC_iterate (mem_range_s
, available_memory
, i
, r
);
799 if (mem_ranges_overlap (r
->start
, r
->length
, offset
, len
))
802 enum target_xfer_status status
;
804 /* Get the intersection window. */
805 end
= std::min
<CORE_ADDR
> (offset
+ len
, r
->start
+ r
->length
);
807 gdb_assert (end
- offset
<= len
);
809 if (offset
>= r
->start
)
810 status
= exec_read_partial_read_only (readbuf
, offset
,
815 *xfered_len
= r
->start
- offset
;
816 status
= TARGET_XFER_UNAVAILABLE
;
818 do_cleanups (old_chain
);
822 do_cleanups (old_chain
);
825 return TARGET_XFER_UNAVAILABLE
;
828 enum target_xfer_status
829 section_table_xfer_memory_partial (gdb_byte
*readbuf
, const gdb_byte
*writebuf
,
830 ULONGEST offset
, ULONGEST len
,
831 ULONGEST
*xfered_len
,
832 struct target_section
*sections
,
833 struct target_section
*sections_end
,
834 const char *section_name
)
837 struct target_section
*p
;
838 ULONGEST memaddr
= offset
;
839 ULONGEST memend
= memaddr
+ len
;
842 internal_error (__FILE__
, __LINE__
,
843 _("failed internal consistency check"));
845 for (p
= sections
; p
< sections_end
; p
++)
847 struct bfd_section
*asect
= p
->the_bfd_section
;
848 bfd
*abfd
= asect
->owner
;
850 if (section_name
&& strcmp (section_name
, asect
->name
) != 0)
851 continue; /* not the section we need. */
852 if (memaddr
>= p
->addr
)
854 if (memend
<= p
->endaddr
)
856 /* Entire transfer is within this section. */
858 res
= bfd_set_section_contents (abfd
, asect
,
859 writebuf
, memaddr
- p
->addr
,
862 res
= bfd_get_section_contents (abfd
, asect
,
863 readbuf
, memaddr
- p
->addr
,
869 return TARGET_XFER_OK
;
872 return TARGET_XFER_EOF
;
874 else if (memaddr
>= p
->endaddr
)
876 /* This section ends before the transfer starts. */
881 /* This section overlaps the transfer. Just do half. */
882 len
= p
->endaddr
- memaddr
;
884 res
= bfd_set_section_contents (abfd
, asect
,
885 writebuf
, memaddr
- p
->addr
,
888 res
= bfd_get_section_contents (abfd
, asect
,
889 readbuf
, memaddr
- p
->addr
,
894 return TARGET_XFER_OK
;
897 return TARGET_XFER_EOF
;
902 return TARGET_XFER_EOF
; /* We can't help. */
905 static struct target_section_table
*
906 exec_get_section_table (struct target_ops
*ops
)
908 return current_target_sections
;
911 static enum target_xfer_status
912 exec_xfer_partial (struct target_ops
*ops
, enum target_object object
,
913 const char *annex
, gdb_byte
*readbuf
,
914 const gdb_byte
*writebuf
,
915 ULONGEST offset
, ULONGEST len
, ULONGEST
*xfered_len
)
917 struct target_section_table
*table
= target_get_section_table (ops
);
919 if (object
== TARGET_OBJECT_MEMORY
)
920 return section_table_xfer_memory_partial (readbuf
, writebuf
,
921 offset
, len
, xfered_len
,
926 return TARGET_XFER_E_IO
;
931 print_section_info (struct target_section_table
*t
, bfd
*abfd
)
933 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
934 struct target_section
*p
;
935 /* FIXME: 16 is not wide enough when gdbarch_addr_bit > 64. */
936 int wid
= gdbarch_addr_bit (gdbarch
) <= 32 ? 8 : 16;
938 printf_filtered ("\t`%s', ", bfd_get_filename (abfd
));
940 printf_filtered (_("file type %s.\n"), bfd_get_target (abfd
));
941 if (abfd
== exec_bfd
)
943 /* gcc-3.4 does not like the initialization in
944 <p == t->sections_end>. */
945 bfd_vma displacement
= 0;
948 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
950 struct bfd_section
*psect
= p
->the_bfd_section
;
951 bfd
*pbfd
= psect
->owner
;
953 if ((bfd_get_section_flags (pbfd
, psect
) & (SEC_ALLOC
| SEC_LOAD
))
954 != (SEC_ALLOC
| SEC_LOAD
))
957 if (bfd_get_section_vma (pbfd
, psect
) <= abfd
->start_address
958 && abfd
->start_address
< (bfd_get_section_vma (pbfd
, psect
)
959 + bfd_get_section_size (psect
)))
961 displacement
= p
->addr
- bfd_get_section_vma (pbfd
, psect
);
965 if (p
== t
->sections_end
)
966 warning (_("Cannot find section for the entry point of %s."),
967 bfd_get_filename (abfd
));
969 entry_point
= gdbarch_addr_bits_remove (gdbarch
,
970 bfd_get_start_address (abfd
)
972 printf_filtered (_("\tEntry point: %s\n"),
973 paddress (gdbarch
, entry_point
));
975 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
977 struct bfd_section
*psect
= p
->the_bfd_section
;
978 bfd
*pbfd
= psect
->owner
;
980 printf_filtered ("\t%s", hex_string_custom (p
->addr
, wid
));
981 printf_filtered (" - %s", hex_string_custom (p
->endaddr
, wid
));
983 /* FIXME: A format of "08l" is not wide enough for file offsets
984 larger than 4GB. OTOH, making it "016l" isn't desirable either
985 since most output will then be much wider than necessary. It
986 may make sense to test the size of the file and choose the
987 format string accordingly. */
988 /* FIXME: i18n: Need to rewrite this sentence. */
990 printf_filtered (" @ %s",
991 hex_string_custom (psect
->filepos
, 8));
992 printf_filtered (" is %s", bfd_section_name (pbfd
, psect
));
994 printf_filtered (" in %s", bfd_get_filename (pbfd
));
995 printf_filtered ("\n");
1000 exec_files_info (struct target_ops
*t
)
1003 print_section_info (current_target_sections
, exec_bfd
);
1005 puts_filtered (_("\t<no file loaded>\n"));
1009 set_section_command (char *args
, int from_tty
)
1011 struct target_section
*p
;
1014 unsigned long secaddr
;
1017 struct target_section_table
*table
;
1020 error (_("Must specify section name and its virtual address"));
1022 /* Parse out section name. */
1023 for (secname
= args
; !isspace (*args
); args
++);
1024 seclen
= args
- secname
;
1026 /* Parse out new virtual address. */
1027 secaddr
= parse_and_eval_address (args
);
1029 table
= current_target_sections
;
1030 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1032 if (!strncmp (secname
, bfd_section_name (p
->bfd
,
1033 p
->the_bfd_section
), seclen
)
1034 && bfd_section_name (p
->bfd
, p
->the_bfd_section
)[seclen
] == '\0')
1036 offset
= secaddr
- p
->addr
;
1038 p
->endaddr
+= offset
;
1040 exec_files_info (&exec_ops
);
1044 if (seclen
>= sizeof (secprint
))
1045 seclen
= sizeof (secprint
) - 1;
1046 strncpy (secprint
, secname
, seclen
);
1047 secprint
[seclen
] = '\0';
1048 error (_("Section %s not found"), secprint
);
1051 /* If we can find a section in FILENAME with BFD index INDEX, adjust
1055 exec_set_section_address (const char *filename
, int index
, CORE_ADDR address
)
1057 struct target_section
*p
;
1058 struct target_section_table
*table
;
1060 table
= current_target_sections
;
1061 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1063 if (filename_cmp (filename
, p
->the_bfd_section
->owner
->filename
) == 0
1064 && index
== p
->the_bfd_section
->index
)
1066 p
->endaddr
+= address
- p
->addr
;
1072 /* If mourn is being called in all the right places, this could be say
1073 `gdb internal error' (since generic_mourn calls
1074 breakpoint_init_inferior). */
1077 ignore (struct target_ops
*ops
, struct gdbarch
*gdbarch
,
1078 struct bp_target_info
*bp_tgt
)
1083 /* Implement the to_remove_breakpoint method. */
1086 exec_remove_breakpoint (struct target_ops
*ops
, struct gdbarch
*gdbarch
,
1087 struct bp_target_info
*bp_tgt
,
1088 enum remove_bp_reason reason
)
1094 exec_has_memory (struct target_ops
*ops
)
1096 /* We can provide memory if we have any file/target sections to read
1098 return (current_target_sections
->sections
1099 != current_target_sections
->sections_end
);
1103 exec_make_note_section (struct target_ops
*self
, bfd
*obfd
, int *note_size
)
1105 error (_("Can't create a corefile"));
1108 /* Fill in the exec file target vector. Very few entries need to be
1112 init_exec_ops (void)
1114 exec_ops
.to_shortname
= "exec";
1115 exec_ops
.to_longname
= "Local exec file";
1116 exec_ops
.to_doc
= "Use an executable file as a target.\n\
1117 Specify the filename of the executable file.";
1118 exec_ops
.to_open
= exec_open
;
1119 exec_ops
.to_close
= exec_close_1
;
1120 exec_ops
.to_xfer_partial
= exec_xfer_partial
;
1121 exec_ops
.to_get_section_table
= exec_get_section_table
;
1122 exec_ops
.to_files_info
= exec_files_info
;
1123 exec_ops
.to_insert_breakpoint
= ignore
;
1124 exec_ops
.to_remove_breakpoint
= exec_remove_breakpoint
;
1125 exec_ops
.to_stratum
= file_stratum
;
1126 exec_ops
.to_has_memory
= exec_has_memory
;
1127 exec_ops
.to_make_corefile_notes
= exec_make_note_section
;
1128 exec_ops
.to_find_memory_regions
= objfile_find_memory_regions
;
1129 exec_ops
.to_magic
= OPS_MAGIC
;
1133 _initialize_exec (void)
1135 struct cmd_list_element
*c
;
1141 c
= add_cmd ("file", class_files
, file_command
, _("\
1142 Use FILE as program to be debugged.\n\
1143 It is read for its symbols, for getting the contents of pure memory,\n\
1144 and it is the program executed when you use the `run' command.\n\
1145 If FILE cannot be found as specified, your execution directory path\n\
1146 ($PATH) is searched for a command of that name.\n\
1147 No arg means to have no executable file and no symbols."), &cmdlist
);
1148 set_cmd_completer (c
, filename_completer
);
1151 c
= add_cmd ("exec-file", class_files
, exec_file_command
, _("\
1152 Use FILE as program for getting contents of pure memory.\n\
1153 If FILE cannot be found as specified, your execution directory path\n\
1154 is searched for a command of that name.\n\
1155 No arg means have no executable file."), &cmdlist
);
1156 set_cmd_completer (c
, filename_completer
);
1158 add_com ("section", class_files
, set_section_command
, _("\
1159 Change the base address of section SECTION of the exec file to ADDR.\n\
1160 This can be used if the exec file does not contain section addresses,\n\
1161 (such as in the a.out format), or when the addresses specified in the\n\
1162 file itself are wrong. Each section must be changed separately. The\n\
1163 ``info files'' command lists all the sections and their addresses."));
1165 add_setshow_boolean_cmd ("write", class_support
, &write_files
, _("\
1166 Set writing into executable and core files."), _("\
1167 Show writing into executable and core files."), NULL
,
1170 &setlist
, &showlist
);
1172 add_target_with_completer (&exec_ops
, filename_completer
);