1 /* Work with executable files, for GDB.
3 Copyright (C) 1988-2020 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"
32 #include "observable.h"
33 #include "arch-utils.h"
34 #include "gdbthread.h"
35 #include "progspace.h"
41 #include "readline/tilde.h"
48 #include "gdbsupport/pathstuff.h"
50 void (*deprecated_file_changed_hook
) (const char *);
52 static const target_info exec_target_info
= {
54 N_("Local exec file"),
55 N_("Use an executable file as a target.\n\
56 Specify the filename of the executable file.")
59 /* The target vector for executable files. */
61 struct exec_target final
: public target_ops
63 const target_info
&info () const override
64 { return exec_target_info
; }
66 strata
stratum () const override
{ return file_stratum
; }
68 void close () override
;
69 enum target_xfer_status
xfer_partial (enum target_object object
,
72 const gdb_byte
*writebuf
,
73 ULONGEST offset
, ULONGEST len
,
74 ULONGEST
*xfered_len
) override
;
75 struct target_section_table
*get_section_table () override
;
76 void files_info () override
;
78 bool has_memory () override
;
79 char *make_corefile_notes (bfd
*, int *) override
;
80 int find_memory_regions (find_memory_region_ftype func
, void *data
) override
;
83 static exec_target exec_ops
;
85 /* Whether to open exec and core files read-only or read-write. */
87 bool write_files
= false;
89 show_write_files (struct ui_file
*file
, int from_tty
,
90 struct cmd_list_element
*c
, const char *value
)
92 fprintf_filtered (file
, _("Writing into executable and core files is %s.\n"),
98 exec_target_open (const char *args
, int from_tty
)
100 target_preopen (from_tty
);
101 exec_file_attach (args
, from_tty
);
104 /* Close and clear exec_bfd. If we end up with no target sections to
105 read memory from, this unpushes the exec_ops target. */
112 bfd
*abfd
= exec_bfd
;
114 gdb_bfd_unref (abfd
);
116 /* Removing target sections may close the exec_ops target.
117 Clear exec_bfd before doing so to prevent recursion. */
121 remove_target_sections (&exec_bfd
);
123 xfree (exec_filename
);
124 exec_filename
= NULL
;
128 /* This is the target_close implementation. Clears all target
129 sections and closes all executable bfds from all program spaces. */
132 exec_target::close ()
134 struct program_space
*ss
;
135 scoped_restore_current_program_space restore_pspace
;
139 set_current_program_space (ss
);
140 clear_section_table (current_target_sections
);
148 try_open_exec_file (const char *exec_file_host
, struct inferior
*inf
,
149 symfile_add_flags add_flags
)
151 struct gdb_exception prev_err
;
153 /* exec_file_attach and symbol_file_add_main may throw an error if the file
154 cannot be opened either locally or remotely.
156 This happens for example, when the file is first found in the local
157 sysroot (above), and then disappears (a TOCTOU race), or when it doesn't
158 exist in the target filesystem, or when the file does exist, but
161 Even without a symbol file, the remote-based debugging session should
162 continue normally instead of ending abruptly. Hence we catch thrown
163 errors/exceptions in the following code. */
166 /* We must do this step even if exec_file_host is NULL, so that
167 exec_file_attach will clear state. */
168 exec_file_attach (exec_file_host
, add_flags
& SYMFILE_VERBOSE
);
170 catch (gdb_exception_error
&err
)
172 if (err
.message
!= NULL
)
173 warning ("%s", err
.what ());
175 prev_err
= std::move (err
);
178 if (exec_file_host
!= NULL
)
182 symbol_file_add_main (exec_file_host
, add_flags
);
184 catch (const gdb_exception_error
&err
)
186 if (!exception_print_same (prev_err
, err
))
187 warning ("%s", err
.what ());
195 exec_file_locate_attach (int pid
, int defer_bp_reset
, int from_tty
)
197 char *exec_file_target
;
198 symfile_add_flags add_flags
= 0;
200 /* Do nothing if we already have an executable filename. */
201 if (get_exec_file (0) != NULL
)
204 /* Try to determine a filename from the process itself. */
205 exec_file_target
= target_pid_to_exec_file (pid
);
206 if (exec_file_target
== NULL
)
208 warning (_("No executable has been specified and target does not "
210 "determining executable automatically. "
211 "Try using the \"file\" command."));
215 gdb::unique_xmalloc_ptr
<char> exec_file_host
216 = exec_file_find (exec_file_target
, NULL
);
219 add_flags
|= SYMFILE_DEFER_BP_RESET
;
222 add_flags
|= SYMFILE_VERBOSE
;
224 /* Attempt to open the exec file. */
225 try_open_exec_file (exec_file_host
.get (), current_inferior (), add_flags
);
228 /* Set FILENAME as the new exec file.
230 This function is intended to be behave essentially the same
231 as exec_file_command, except that the latter will detect when
232 a target is being debugged, and will ask the user whether it
233 should be shut down first. (If the answer is "no", then the
234 new file is ignored.)
236 This file is used by exec_file_command, to do the work of opening
237 and processing the exec file after any prompting has happened.
239 And, it is used by child_attach, when the attach command was
240 given a pid but not a exec pathname, and the attach command could
241 figure out the pathname from the pid. (In this case, we shouldn't
242 ask the user whether the current target should be shut down --
243 we're supplying the exec pathname late for good reason.) */
246 exec_file_attach (const char *filename
, int from_tty
)
248 /* First, acquire a reference to the current exec_bfd. We release
249 this at the end of the function; but acquiring it now lets the
250 BFD cache return it if this call refers to the same file. */
251 gdb_bfd_ref_ptr exec_bfd_holder
= gdb_bfd_ref_ptr::new_reference (exec_bfd
);
253 /* Remove any previous exec file. */
256 /* Now open and digest the file the user requested, if any. */
261 printf_unfiltered (_("No executable file now.\n"));
263 set_gdbarch_from_file (NULL
);
267 int load_via_target
= 0;
268 const char *scratch_pathname
, *canonical_pathname
;
270 struct target_section
*sections
= NULL
, *sections_end
= NULL
;
273 if (is_target_filename (filename
))
275 if (target_filesystem_is_local ())
276 filename
+= strlen (TARGET_SYSROOT_PREFIX
);
281 gdb::unique_xmalloc_ptr
<char> canonical_storage
, scratch_storage
;
284 /* gdb_bfd_fopen does not support "target:" filenames. */
286 warning (_("writing into executable files is "
287 "not supported for %s sysroots"),
288 TARGET_SYSROOT_PREFIX
);
290 scratch_pathname
= filename
;
292 canonical_pathname
= scratch_pathname
;
296 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
297 filename
, write_files
?
298 O_RDWR
| O_BINARY
: O_RDONLY
| O_BINARY
,
300 #if defined(__GO32__) || defined(_WIN32) || defined(__CYGWIN__)
301 if (scratch_chan
< 0)
303 char *exename
= (char *) alloca (strlen (filename
) + 5);
305 strcat (strcpy (exename
, filename
), ".exe");
306 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
307 exename
, write_files
?
309 : O_RDONLY
| O_BINARY
,
313 if (scratch_chan
< 0)
314 perror_with_name (filename
);
316 scratch_pathname
= scratch_storage
.get ();
318 /* gdb_bfd_open (and its variants) prefers canonicalized
319 pathname for better BFD caching. */
320 canonical_storage
= gdb_realpath (scratch_pathname
);
321 canonical_pathname
= canonical_storage
.get ();
324 gdb_bfd_ref_ptr temp
;
325 if (write_files
&& !load_via_target
)
326 temp
= gdb_bfd_fopen (canonical_pathname
, gnutarget
,
327 FOPEN_RUB
, scratch_chan
);
329 temp
= gdb_bfd_open (canonical_pathname
, gnutarget
, scratch_chan
);
330 exec_bfd
= temp
.release ();
334 error (_("\"%s\": could not open as an executable file: %s."),
335 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
338 /* gdb_realpath_keepfile resolves symlinks on the local
339 filesystem and so cannot be used for "target:" files. */
340 gdb_assert (exec_filename
== NULL
);
342 exec_filename
= xstrdup (bfd_get_filename (exec_bfd
));
344 exec_filename
= gdb_realpath_keepfile (scratch_pathname
).release ();
346 if (!bfd_check_format_matches (exec_bfd
, bfd_object
, &matching
))
348 /* Make sure to close exec_bfd, or else "run" might try to use
351 error (_("\"%s\": not in executable format: %s"),
353 gdb_bfd_errmsg (bfd_get_error (), matching
).c_str ());
356 if (build_section_table (exec_bfd
, §ions
, §ions_end
))
358 /* Make sure to close exec_bfd, or else "run" might try to use
361 error (_("\"%s\": can't find the file sections: %s"),
362 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
365 exec_bfd_mtime
= bfd_get_mtime (exec_bfd
);
369 set_gdbarch_from_file (exec_bfd
);
371 /* Add the executable's sections to the current address spaces'
372 list of sections. This possibly pushes the exec_ops
374 add_target_sections (&exec_bfd
, sections
, sections_end
);
377 /* Tell display code (if any) about the changed file name. */
378 if (deprecated_exec_file_display_hook
)
379 (*deprecated_exec_file_display_hook
) (filename
);
382 bfd_cache_close_all ();
383 gdb::observers::executable_changed
.notify ();
386 /* Process the first arg in ARGS as the new exec file.
388 Note that we have to explicitly ignore additional args, since we can
389 be called from file_command(), which also calls symbol_file_command()
390 which can take multiple args.
392 If ARGS is NULL, we just want to close the exec file. */
395 exec_file_command (const char *args
, int from_tty
)
397 if (from_tty
&& target_has_execution
398 && !query (_("A program is being debugged already.\n"
399 "Are you sure you want to change the file? ")))
400 error (_("File not changed."));
404 /* Scan through the args and pick up the first non option arg
407 gdb_argv
built_argv (args
);
408 char **argv
= built_argv
.get ();
410 for (; (*argv
!= NULL
) && (**argv
== '-'); argv
++)
414 error (_("No executable file name was specified"));
416 gdb::unique_xmalloc_ptr
<char> filename (tilde_expand (*argv
));
417 exec_file_attach (filename
.get (), from_tty
);
420 exec_file_attach (NULL
, from_tty
);
423 /* Set both the exec file and the symbol file, in one command.
424 What a novelty. Why did GDB go through four major releases before this
425 command was added? */
428 file_command (const char *arg
, int from_tty
)
430 /* FIXME, if we lose on reading the symbol file, we should revert
431 the exec file, but that's rough. */
432 exec_file_command (arg
, from_tty
);
433 symbol_file_command (arg
, from_tty
);
434 if (deprecated_file_changed_hook
)
435 deprecated_file_changed_hook (arg
);
439 /* Locate all mappable sections of a BFD file.
440 table_pp_char is a char * to get it through bfd_map_over_sections;
441 we cast it back to its proper type. */
444 add_to_section_table (bfd
*abfd
, struct bfd_section
*asect
,
447 struct target_section
**table_pp
= (struct target_section
**) table_pp_char
;
450 gdb_assert (abfd
== asect
->owner
);
452 /* Check the section flags, but do not discard zero-length sections, since
453 some symbols may still be attached to this section. For instance, we
454 encountered on sparc-solaris 2.10 a shared library with an empty .bss
455 section to which a symbol named "_end" was attached. The address
456 of this symbol still needs to be relocated. */
457 aflag
= bfd_section_flags (asect
);
458 if (!(aflag
& SEC_ALLOC
))
461 (*table_pp
)->owner
= NULL
;
462 (*table_pp
)->the_bfd_section
= asect
;
463 (*table_pp
)->addr
= bfd_section_vma (asect
);
464 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (asect
);
471 clear_section_table (struct target_section_table
*table
)
473 xfree (table
->sections
);
474 table
->sections
= table
->sections_end
= NULL
;
477 /* Resize section table TABLE by ADJUSTMENT.
478 ADJUSTMENT may be negative, in which case the caller must have already
479 removed the sections being deleted.
480 Returns the old size. */
483 resize_section_table (struct target_section_table
*table
, int adjustment
)
488 old_count
= table
->sections_end
- table
->sections
;
490 new_count
= adjustment
+ old_count
;
494 table
->sections
= XRESIZEVEC (struct target_section
, table
->sections
,
496 table
->sections_end
= table
->sections
+ new_count
;
499 clear_section_table (table
);
504 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
505 Returns 0 if OK, 1 on error. */
508 build_section_table (struct bfd
*some_bfd
, struct target_section
**start
,
509 struct target_section
**end
)
513 count
= bfd_count_sections (some_bfd
);
516 *start
= XNEWVEC (struct target_section
, count
);
518 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *) end
);
519 if (*end
> *start
+ count
)
520 internal_error (__FILE__
, __LINE__
,
521 _("failed internal consistency check"));
522 /* We could realloc the table, but it probably loses for most files. */
526 /* Add the sections array defined by [SECTIONS..SECTIONS_END[ to the
527 current set of target sections. */
530 add_target_sections (void *owner
,
531 struct target_section
*sections
,
532 struct target_section
*sections_end
)
535 struct target_section_table
*table
= current_target_sections
;
537 count
= sections_end
- sections
;
541 int space
= resize_section_table (table
, count
);
544 for (i
= 0; i
< count
; ++i
)
546 table
->sections
[space
+ i
] = sections
[i
];
547 table
->sections
[space
+ i
].owner
= owner
;
550 scoped_restore_current_thread restore_thread
;
551 program_space
*curr_pspace
= current_program_space
;
553 /* If these are the first file sections we can provide memory
554 from, push the file_stratum target. Must do this in all
555 inferiors sharing the program space. */
556 for (inferior
*inf
: all_inferiors ())
558 if (inf
->pspace
!= curr_pspace
)
561 if (inf
->target_is_pushed (&exec_ops
))
564 switch_to_inferior_no_thread (inf
);
565 push_target (&exec_ops
);
570 /* Add the sections of OBJFILE to the current set of target sections. */
573 add_target_sections_of_objfile (struct objfile
*objfile
)
575 struct target_section_table
*table
= current_target_sections
;
576 struct obj_section
*osect
;
579 struct target_section
*ts
;
584 /* Compute the number of sections to add. */
585 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
587 if (bfd_section_size (osect
->the_bfd_section
) == 0)
595 space
= resize_section_table (table
, count
);
597 ts
= table
->sections
+ space
;
599 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
601 if (bfd_section_size (osect
->the_bfd_section
) == 0)
604 gdb_assert (ts
< table
->sections
+ space
+ count
);
606 ts
->addr
= obj_section_addr (osect
);
607 ts
->endaddr
= obj_section_endaddr (osect
);
608 ts
->the_bfd_section
= osect
->the_bfd_section
;
609 ts
->owner
= (void *) objfile
;
615 /* Remove all target sections owned by OWNER.
616 OWNER must be the same value passed to add_target_sections. */
619 remove_target_sections (void *owner
)
621 struct target_section
*src
, *dest
;
622 struct target_section_table
*table
= current_target_sections
;
624 gdb_assert (owner
!= NULL
);
626 dest
= table
->sections
;
627 for (src
= table
->sections
; src
< table
->sections_end
; src
++)
628 if (src
->owner
!= owner
)
630 /* Keep this section. */
636 /* If we've dropped any sections, resize the section table. */
641 old_count
= resize_section_table (table
, dest
- src
);
643 /* If we don't have any more sections to read memory from,
644 remove the file_stratum target from the stack of each
645 inferior sharing the program space. */
646 if (old_count
+ (dest
- src
) == 0)
648 scoped_restore_current_thread restore_thread
;
649 program_space
*curr_pspace
= current_program_space
;
651 for (inferior
*inf
: all_inferiors ())
653 if (inf
->pspace
!= curr_pspace
)
656 if (inf
->pspace
->target_sections
.sections
657 != inf
->pspace
->target_sections
.sections_end
)
660 switch_to_inferior_no_thread (inf
);
661 unpush_target (&exec_ops
);
672 if (current_program_space
->target_sections
.sections
673 != current_program_space
->target_sections
.sections_end
)
674 push_target (&exec_ops
);
679 enum target_xfer_status
680 exec_read_partial_read_only (gdb_byte
*readbuf
, ULONGEST offset
,
681 ULONGEST len
, ULONGEST
*xfered_len
)
683 /* It's unduly pedantic to refuse to look at the executable for
684 read-only pieces; so do the equivalent of readonly regions aka
686 if (exec_bfd
!= NULL
)
692 for (s
= exec_bfd
->sections
; s
; s
= s
->next
)
694 if ((s
->flags
& SEC_LOAD
) == 0
695 || (s
->flags
& SEC_READONLY
) == 0)
699 size
= bfd_section_size (s
);
700 if (vma
<= offset
&& offset
< (vma
+ size
))
704 amt
= (vma
+ size
) - offset
;
708 amt
= bfd_get_section_contents (exec_bfd
, s
,
709 readbuf
, offset
- vma
, amt
);
712 return TARGET_XFER_EOF
;
716 return TARGET_XFER_OK
;
722 /* Indicate failure to find the requested memory block. */
723 return TARGET_XFER_E_IO
;
726 /* Return all read-only memory ranges found in the target section
727 table defined by SECTIONS and SECTIONS_END, starting at (and
728 intersected with) MEMADDR for LEN bytes. */
730 static std::vector
<mem_range
>
731 section_table_available_memory (CORE_ADDR memaddr
, ULONGEST len
,
732 struct target_section
*sections
,
733 struct target_section
*sections_end
)
735 std::vector
<mem_range
> memory
;
737 for (target_section
*p
= sections
; p
< sections_end
; p
++)
739 if ((bfd_section_flags (p
->the_bfd_section
) & SEC_READONLY
) == 0)
742 /* Copy the meta-data, adjusted. */
743 if (mem_ranges_overlap (p
->addr
, p
->endaddr
- p
->addr
, memaddr
, len
))
745 ULONGEST lo1
, hi1
, lo2
, hi2
;
753 CORE_ADDR start
= std::max (lo1
, lo2
);
754 int length
= std::min (hi1
, hi2
) - start
;
756 memory
.emplace_back (start
, length
);
763 enum target_xfer_status
764 section_table_read_available_memory (gdb_byte
*readbuf
, ULONGEST offset
,
765 ULONGEST len
, ULONGEST
*xfered_len
)
767 target_section_table
*table
= target_get_section_table (&exec_ops
);
768 std::vector
<mem_range
> available_memory
769 = section_table_available_memory (offset
, len
,
770 table
->sections
, table
->sections_end
);
772 normalize_mem_ranges (&available_memory
);
774 for (const mem_range
&r
: available_memory
)
776 if (mem_ranges_overlap (r
.start
, r
.length
, offset
, len
))
779 enum target_xfer_status status
;
781 /* Get the intersection window. */
782 end
= std::min
<CORE_ADDR
> (offset
+ len
, r
.start
+ r
.length
);
784 gdb_assert (end
- offset
<= len
);
786 if (offset
>= r
.start
)
787 status
= exec_read_partial_read_only (readbuf
, offset
,
792 *xfered_len
= r
.start
- offset
;
793 status
= TARGET_XFER_UNAVAILABLE
;
800 return TARGET_XFER_UNAVAILABLE
;
803 enum target_xfer_status
804 section_table_xfer_memory_partial (gdb_byte
*readbuf
, const gdb_byte
*writebuf
,
805 ULONGEST offset
, ULONGEST len
,
806 ULONGEST
*xfered_len
,
807 struct target_section
*sections
,
808 struct target_section
*sections_end
,
809 const char *section_name
)
812 struct target_section
*p
;
813 ULONGEST memaddr
= offset
;
814 ULONGEST memend
= memaddr
+ len
;
817 internal_error (__FILE__
, __LINE__
,
818 _("failed internal consistency check"));
820 for (p
= sections
; p
< sections_end
; p
++)
822 struct bfd_section
*asect
= p
->the_bfd_section
;
823 bfd
*abfd
= asect
->owner
;
825 if (section_name
&& strcmp (section_name
, asect
->name
) != 0)
826 continue; /* not the section we need. */
827 if (memaddr
>= p
->addr
)
829 if (memend
<= p
->endaddr
)
831 /* Entire transfer is within this section. */
833 res
= bfd_set_section_contents (abfd
, asect
,
834 writebuf
, memaddr
- p
->addr
,
837 res
= bfd_get_section_contents (abfd
, asect
,
838 readbuf
, memaddr
- p
->addr
,
844 return TARGET_XFER_OK
;
847 return TARGET_XFER_EOF
;
849 else if (memaddr
>= p
->endaddr
)
851 /* This section ends before the transfer starts. */
856 /* This section overlaps the transfer. Just do half. */
857 len
= p
->endaddr
- memaddr
;
859 res
= bfd_set_section_contents (abfd
, asect
,
860 writebuf
, memaddr
- p
->addr
,
863 res
= bfd_get_section_contents (abfd
, asect
,
864 readbuf
, memaddr
- p
->addr
,
869 return TARGET_XFER_OK
;
872 return TARGET_XFER_EOF
;
877 return TARGET_XFER_EOF
; /* We can't help. */
880 struct target_section_table
*
881 exec_target::get_section_table ()
883 return current_target_sections
;
886 enum target_xfer_status
887 exec_target::xfer_partial (enum target_object object
,
888 const char *annex
, gdb_byte
*readbuf
,
889 const gdb_byte
*writebuf
,
890 ULONGEST offset
, ULONGEST len
, ULONGEST
*xfered_len
)
892 struct target_section_table
*table
= get_section_table ();
894 if (object
== TARGET_OBJECT_MEMORY
)
895 return section_table_xfer_memory_partial (readbuf
, writebuf
,
896 offset
, len
, xfered_len
,
901 return TARGET_XFER_E_IO
;
906 print_section_info (struct target_section_table
*t
, bfd
*abfd
)
908 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
909 struct target_section
*p
;
910 /* FIXME: 16 is not wide enough when gdbarch_addr_bit > 64. */
911 int wid
= gdbarch_addr_bit (gdbarch
) <= 32 ? 8 : 16;
913 printf_filtered ("\t`%s', ", bfd_get_filename (abfd
));
915 printf_filtered (_("file type %s.\n"), bfd_get_target (abfd
));
916 if (abfd
== exec_bfd
)
918 /* gcc-3.4 does not like the initialization in
919 <p == t->sections_end>. */
920 bfd_vma displacement
= 0;
923 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
925 struct bfd_section
*psect
= p
->the_bfd_section
;
927 if ((bfd_section_flags (psect
) & (SEC_ALLOC
| SEC_LOAD
))
928 != (SEC_ALLOC
| SEC_LOAD
))
931 if (bfd_section_vma (psect
) <= abfd
->start_address
932 && abfd
->start_address
< (bfd_section_vma (psect
)
933 + bfd_section_size (psect
)))
935 displacement
= p
->addr
- bfd_section_vma (psect
);
939 if (p
== t
->sections_end
)
940 warning (_("Cannot find section for the entry point of %s."),
941 bfd_get_filename (abfd
));
943 entry_point
= gdbarch_addr_bits_remove (gdbarch
,
944 bfd_get_start_address (abfd
)
946 printf_filtered (_("\tEntry point: %s\n"),
947 paddress (gdbarch
, entry_point
));
949 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
951 struct bfd_section
*psect
= p
->the_bfd_section
;
952 bfd
*pbfd
= psect
->owner
;
954 printf_filtered ("\t%s", hex_string_custom (p
->addr
, wid
));
955 printf_filtered (" - %s", hex_string_custom (p
->endaddr
, wid
));
957 /* FIXME: A format of "08l" is not wide enough for file offsets
958 larger than 4GB. OTOH, making it "016l" isn't desirable either
959 since most output will then be much wider than necessary. It
960 may make sense to test the size of the file and choose the
961 format string accordingly. */
962 /* FIXME: i18n: Need to rewrite this sentence. */
964 printf_filtered (" @ %s",
965 hex_string_custom (psect
->filepos
, 8));
966 printf_filtered (" is %s", bfd_section_name (psect
));
968 printf_filtered (" in %s", bfd_get_filename (pbfd
));
969 printf_filtered ("\n");
974 exec_target::files_info ()
977 print_section_info (current_target_sections
, exec_bfd
);
979 puts_filtered (_("\t<no file loaded>\n"));
983 set_section_command (const char *args
, int from_tty
)
985 struct target_section
*p
;
988 unsigned long secaddr
;
991 struct target_section_table
*table
;
994 error (_("Must specify section name and its virtual address"));
996 /* Parse out section name. */
997 for (secname
= args
; !isspace (*args
); args
++);
998 seclen
= args
- secname
;
1000 /* Parse out new virtual address. */
1001 secaddr
= parse_and_eval_address (args
);
1003 table
= current_target_sections
;
1004 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1006 if (!strncmp (secname
, bfd_section_name (p
->the_bfd_section
), seclen
)
1007 && bfd_section_name (p
->the_bfd_section
)[seclen
] == '\0')
1009 offset
= secaddr
- p
->addr
;
1011 p
->endaddr
+= offset
;
1013 exec_ops
.files_info ();
1017 if (seclen
>= sizeof (secprint
))
1018 seclen
= sizeof (secprint
) - 1;
1019 strncpy (secprint
, secname
, seclen
);
1020 secprint
[seclen
] = '\0';
1021 error (_("Section %s not found"), secprint
);
1024 /* If we can find a section in FILENAME with BFD index INDEX, adjust
1028 exec_set_section_address (const char *filename
, int index
, CORE_ADDR address
)
1030 struct target_section
*p
;
1031 struct target_section_table
*table
;
1033 table
= current_target_sections
;
1034 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1036 if (filename_cmp (filename
, p
->the_bfd_section
->owner
->filename
) == 0
1037 && index
== p
->the_bfd_section
->index
)
1039 p
->endaddr
+= address
- p
->addr
;
1046 exec_target::has_memory ()
1048 /* We can provide memory if we have any file/target sections to read
1050 return (current_target_sections
->sections
1051 != current_target_sections
->sections_end
);
1055 exec_target::make_corefile_notes (bfd
*obfd
, int *note_size
)
1057 error (_("Can't create a corefile"));
1061 exec_target::find_memory_regions (find_memory_region_ftype func
, void *data
)
1063 return objfile_find_memory_regions (this, func
, data
);
1066 void _initialize_exec ();
1070 struct cmd_list_element
*c
;
1074 c
= add_cmd ("file", class_files
, file_command
, _("\
1075 Use FILE as program to be debugged.\n\
1076 It is read for its symbols, for getting the contents of pure memory,\n\
1077 and it is the program executed when you use the `run' command.\n\
1078 If FILE cannot be found as specified, your execution directory path\n\
1079 ($PATH) is searched for a command of that name.\n\
1080 No arg means to have no executable file and no symbols."), &cmdlist
);
1081 set_cmd_completer (c
, filename_completer
);
1084 c
= add_cmd ("exec-file", class_files
, exec_file_command
, _("\
1085 Use FILE as program for getting contents of pure memory.\n\
1086 If FILE cannot be found as specified, your execution directory path\n\
1087 is searched for a command of that name.\n\
1088 No arg means have no executable file."), &cmdlist
);
1089 set_cmd_completer (c
, filename_completer
);
1091 add_com ("section", class_files
, set_section_command
, _("\
1092 Change the base address of section SECTION of the exec file to ADDR.\n\
1093 This can be used if the exec file does not contain section addresses,\n\
1094 (such as in the a.out format), or when the addresses specified in the\n\
1095 file itself are wrong. Each section must be changed separately. The\n\
1096 ``info files'' command lists all the sections and their addresses."));
1098 add_setshow_boolean_cmd ("write", class_support
, &write_files
, _("\
1099 Set writing into executable and core files."), _("\
1100 Show writing into executable and core files."), NULL
,
1103 &setlist
, &showlist
);
1105 add_target (exec_target_info
, exec_target_open
, filename_completer
);