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"
36 #include "progspace-and-thread.h"
42 #include "readline/tilde.h"
49 #include "gdbsupport/pathstuff.h"
51 void (*deprecated_file_changed_hook
) (const char *);
53 static const target_info exec_target_info
= {
55 N_("Local exec file"),
56 N_("Use an executable file as a target.\n\
57 Specify the filename of the executable file.")
60 /* The target vector for executable files. */
62 struct exec_target final
: public target_ops
64 const target_info
&info () const override
65 { return exec_target_info
; }
67 strata
stratum () const override
{ return file_stratum
; }
69 void close () override
;
70 enum target_xfer_status
xfer_partial (enum target_object object
,
73 const gdb_byte
*writebuf
,
74 ULONGEST offset
, ULONGEST len
,
75 ULONGEST
*xfered_len
) override
;
76 struct target_section_table
*get_section_table () override
;
77 void files_info () override
;
79 bool has_memory () override
;
80 char *make_corefile_notes (bfd
*, int *) override
;
81 int find_memory_regions (find_memory_region_ftype func
, void *data
) override
;
84 static exec_target exec_ops
;
86 /* Whether to open exec and core files read-only or read-write. */
88 bool write_files
= false;
90 show_write_files (struct ui_file
*file
, int from_tty
,
91 struct cmd_list_element
*c
, const char *value
)
93 fprintf_filtered (file
, _("Writing into executable and core files is %s.\n"),
99 exec_target_open (const char *args
, int from_tty
)
101 target_preopen (from_tty
);
102 exec_file_attach (args
, from_tty
);
105 /* Close and clear exec_bfd. If we end up with no target sections to
106 read memory from, this unpushes the exec_ops target. */
113 bfd
*abfd
= exec_bfd
;
115 gdb_bfd_unref (abfd
);
117 /* Removing target sections may close the exec_ops target.
118 Clear exec_bfd before doing so to prevent recursion. */
122 remove_target_sections (&exec_bfd
);
124 xfree (exec_filename
);
125 exec_filename
= NULL
;
129 /* This is the target_close implementation. Clears all target
130 sections and closes all executable bfds from all program spaces. */
133 exec_target::close ()
135 struct program_space
*ss
;
136 scoped_restore_current_program_space restore_pspace
;
140 set_current_program_space (ss
);
141 clear_section_table (current_target_sections
);
149 try_open_exec_file (const char *exec_file_host
, struct inferior
*inf
,
150 symfile_add_flags add_flags
)
152 struct gdb_exception prev_err
;
154 /* exec_file_attach and symbol_file_add_main may throw an error if the file
155 cannot be opened either locally or remotely.
157 This happens for example, when the file is first found in the local
158 sysroot (above), and then disappears (a TOCTOU race), or when it doesn't
159 exist in the target filesystem, or when the file does exist, but
162 Even without a symbol file, the remote-based debugging session should
163 continue normally instead of ending abruptly. Hence we catch thrown
164 errors/exceptions in the following code. */
167 /* We must do this step even if exec_file_host is NULL, so that
168 exec_file_attach will clear state. */
169 exec_file_attach (exec_file_host
, add_flags
& SYMFILE_VERBOSE
);
171 catch (gdb_exception_error
&err
)
173 if (err
.message
!= NULL
)
174 warning ("%s", err
.what ());
176 prev_err
= std::move (err
);
179 if (exec_file_host
!= NULL
)
183 symbol_file_add_main (exec_file_host
, add_flags
);
185 catch (const gdb_exception_error
&err
)
187 if (!exception_print_same (prev_err
, err
))
188 warning ("%s", err
.what ());
196 exec_file_locate_attach (int pid
, int defer_bp_reset
, int from_tty
)
198 char *exec_file_target
;
199 symfile_add_flags add_flags
= 0;
201 /* Do nothing if we already have an executable filename. */
202 if (get_exec_file (0) != NULL
)
205 /* Try to determine a filename from the process itself. */
206 exec_file_target
= target_pid_to_exec_file (pid
);
207 if (exec_file_target
== NULL
)
209 warning (_("No executable has been specified and target does not "
211 "determining executable automatically. "
212 "Try using the \"file\" command."));
216 gdb::unique_xmalloc_ptr
<char> exec_file_host
217 = exec_file_find (exec_file_target
, NULL
);
220 add_flags
|= SYMFILE_DEFER_BP_RESET
;
223 add_flags
|= SYMFILE_VERBOSE
;
225 /* Attempt to open the exec file. */
226 try_open_exec_file (exec_file_host
.get (), current_inferior (), add_flags
);
229 /* Set FILENAME as the new exec file.
231 This function is intended to be behave essentially the same
232 as exec_file_command, except that the latter will detect when
233 a target is being debugged, and will ask the user whether it
234 should be shut down first. (If the answer is "no", then the
235 new file is ignored.)
237 This file is used by exec_file_command, to do the work of opening
238 and processing the exec file after any prompting has happened.
240 And, it is used by child_attach, when the attach command was
241 given a pid but not a exec pathname, and the attach command could
242 figure out the pathname from the pid. (In this case, we shouldn't
243 ask the user whether the current target should be shut down --
244 we're supplying the exec pathname late for good reason.) */
247 exec_file_attach (const char *filename
, int from_tty
)
249 /* First, acquire a reference to the current exec_bfd. We release
250 this at the end of the function; but acquiring it now lets the
251 BFD cache return it if this call refers to the same file. */
252 gdb_bfd_ref_ptr exec_bfd_holder
= gdb_bfd_ref_ptr::new_reference (exec_bfd
);
254 /* Remove any previous exec file. */
257 /* Now open and digest the file the user requested, if any. */
262 printf_unfiltered (_("No executable file now.\n"));
264 set_gdbarch_from_file (NULL
);
268 int load_via_target
= 0;
269 const char *scratch_pathname
, *canonical_pathname
;
271 struct target_section
*sections
= NULL
, *sections_end
= NULL
;
274 if (is_target_filename (filename
))
276 if (target_filesystem_is_local ())
277 filename
+= strlen (TARGET_SYSROOT_PREFIX
);
282 gdb::unique_xmalloc_ptr
<char> canonical_storage
, scratch_storage
;
285 /* gdb_bfd_fopen does not support "target:" filenames. */
287 warning (_("writing into executable files is "
288 "not supported for %s sysroots"),
289 TARGET_SYSROOT_PREFIX
);
291 scratch_pathname
= filename
;
293 canonical_pathname
= scratch_pathname
;
297 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
298 filename
, write_files
?
299 O_RDWR
| O_BINARY
: O_RDONLY
| O_BINARY
,
301 #if defined(__GO32__) || defined(_WIN32) || defined(__CYGWIN__)
302 if (scratch_chan
< 0)
304 char *exename
= (char *) alloca (strlen (filename
) + 5);
306 strcat (strcpy (exename
, filename
), ".exe");
307 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
308 exename
, write_files
?
310 : O_RDONLY
| O_BINARY
,
314 if (scratch_chan
< 0)
315 perror_with_name (filename
);
317 scratch_pathname
= scratch_storage
.get ();
319 /* gdb_bfd_open (and its variants) prefers canonicalized
320 pathname for better BFD caching. */
321 canonical_storage
= gdb_realpath (scratch_pathname
);
322 canonical_pathname
= canonical_storage
.get ();
325 gdb_bfd_ref_ptr temp
;
326 if (write_files
&& !load_via_target
)
327 temp
= gdb_bfd_fopen (canonical_pathname
, gnutarget
,
328 FOPEN_RUB
, scratch_chan
);
330 temp
= gdb_bfd_open (canonical_pathname
, gnutarget
, scratch_chan
);
331 exec_bfd
= temp
.release ();
335 error (_("\"%s\": could not open as an executable file: %s."),
336 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
339 /* gdb_realpath_keepfile resolves symlinks on the local
340 filesystem and so cannot be used for "target:" files. */
341 gdb_assert (exec_filename
== NULL
);
343 exec_filename
= xstrdup (bfd_get_filename (exec_bfd
));
345 exec_filename
= gdb_realpath_keepfile (scratch_pathname
).release ();
347 if (!bfd_check_format_matches (exec_bfd
, bfd_object
, &matching
))
349 /* Make sure to close exec_bfd, or else "run" might try to use
352 error (_("\"%s\": not in executable format: %s"),
354 gdb_bfd_errmsg (bfd_get_error (), matching
).c_str ());
357 if (build_section_table (exec_bfd
, §ions
, §ions_end
))
359 /* Make sure to close exec_bfd, or else "run" might try to use
362 error (_("\"%s\": can't find the file sections: %s"),
363 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
366 exec_bfd_mtime
= bfd_get_mtime (exec_bfd
);
370 set_gdbarch_from_file (exec_bfd
);
372 /* Add the executable's sections to the current address spaces'
373 list of sections. This possibly pushes the exec_ops
375 add_target_sections (&exec_bfd
, sections
, sections_end
);
378 /* Tell display code (if any) about the changed file name. */
379 if (deprecated_exec_file_display_hook
)
380 (*deprecated_exec_file_display_hook
) (filename
);
383 bfd_cache_close_all ();
384 gdb::observers::executable_changed
.notify ();
387 /* Process the first arg in ARGS as the new exec file.
389 Note that we have to explicitly ignore additional args, since we can
390 be called from file_command(), which also calls symbol_file_command()
391 which can take multiple args.
393 If ARGS is NULL, we just want to close the exec file. */
396 exec_file_command (const char *args
, int from_tty
)
398 if (from_tty
&& target_has_execution
399 && !query (_("A program is being debugged already.\n"
400 "Are you sure you want to change the file? ")))
401 error (_("File not changed."));
405 /* Scan through the args and pick up the first non option arg
408 gdb_argv
built_argv (args
);
409 char **argv
= built_argv
.get ();
411 for (; (*argv
!= NULL
) && (**argv
== '-'); argv
++)
415 error (_("No executable file name was specified"));
417 gdb::unique_xmalloc_ptr
<char> filename (tilde_expand (*argv
));
418 exec_file_attach (filename
.get (), from_tty
);
421 exec_file_attach (NULL
, from_tty
);
424 /* Set both the exec file and the symbol file, in one command.
425 What a novelty. Why did GDB go through four major releases before this
426 command was added? */
429 file_command (const char *arg
, int from_tty
)
431 /* FIXME, if we lose on reading the symbol file, we should revert
432 the exec file, but that's rough. */
433 exec_file_command (arg
, from_tty
);
434 symbol_file_command (arg
, from_tty
);
435 if (deprecated_file_changed_hook
)
436 deprecated_file_changed_hook (arg
);
440 /* Locate all mappable sections of a BFD file.
441 table_pp_char is a char * to get it through bfd_map_over_sections;
442 we cast it back to its proper type. */
445 add_to_section_table (bfd
*abfd
, struct bfd_section
*asect
,
448 struct target_section
**table_pp
= (struct target_section
**) table_pp_char
;
451 gdb_assert (abfd
== asect
->owner
);
453 /* Check the section flags, but do not discard zero-length sections, since
454 some symbols may still be attached to this section. For instance, we
455 encountered on sparc-solaris 2.10 a shared library with an empty .bss
456 section to which a symbol named "_end" was attached. The address
457 of this symbol still needs to be relocated. */
458 aflag
= bfd_section_flags (asect
);
459 if (!(aflag
& SEC_ALLOC
))
462 (*table_pp
)->owner
= NULL
;
463 (*table_pp
)->the_bfd_section
= asect
;
464 (*table_pp
)->addr
= bfd_section_vma (asect
);
465 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (asect
);
472 clear_section_table (struct target_section_table
*table
)
474 xfree (table
->sections
);
475 table
->sections
= table
->sections_end
= NULL
;
478 /* Resize section table TABLE by ADJUSTMENT.
479 ADJUSTMENT may be negative, in which case the caller must have already
480 removed the sections being deleted.
481 Returns the old size. */
484 resize_section_table (struct target_section_table
*table
, int adjustment
)
489 old_count
= table
->sections_end
- table
->sections
;
491 new_count
= adjustment
+ old_count
;
495 table
->sections
= XRESIZEVEC (struct target_section
, table
->sections
,
497 table
->sections_end
= table
->sections
+ new_count
;
500 clear_section_table (table
);
505 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
506 Returns 0 if OK, 1 on error. */
509 build_section_table (struct bfd
*some_bfd
, struct target_section
**start
,
510 struct target_section
**end
)
514 count
= bfd_count_sections (some_bfd
);
517 *start
= XNEWVEC (struct target_section
, count
);
519 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *) end
);
520 if (*end
> *start
+ count
)
521 internal_error (__FILE__
, __LINE__
,
522 _("failed internal consistency check"));
523 /* We could realloc the table, but it probably loses for most files. */
527 /* Add the sections array defined by [SECTIONS..SECTIONS_END[ to the
528 current set of target sections. */
531 add_target_sections (void *owner
,
532 struct target_section
*sections
,
533 struct target_section
*sections_end
)
536 struct target_section_table
*table
= current_target_sections
;
538 count
= sections_end
- sections
;
542 int space
= resize_section_table (table
, count
);
545 for (i
= 0; i
< count
; ++i
)
547 table
->sections
[space
+ i
] = sections
[i
];
548 table
->sections
[space
+ i
].owner
= owner
;
551 scoped_restore_current_pspace_and_thread restore_pspace_thread
;
552 program_space
*curr_pspace
= current_program_space
;
554 /* If these are the first file sections we can provide memory
555 from, push the file_stratum target. Must do this in all
556 inferiors sharing the program space. */
557 for (inferior
*inf
: all_inferiors ())
559 if (inf
->pspace
!= curr_pspace
)
562 if (inf
->target_is_pushed (&exec_ops
))
565 switch_to_inferior_no_thread (inf
);
566 push_target (&exec_ops
);
571 /* Add the sections of OBJFILE to the current set of target sections. */
574 add_target_sections_of_objfile (struct objfile
*objfile
)
576 struct target_section_table
*table
= current_target_sections
;
577 struct obj_section
*osect
;
580 struct target_section
*ts
;
585 /* Compute the number of sections to add. */
586 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
588 if (bfd_section_size (osect
->the_bfd_section
) == 0)
596 space
= resize_section_table (table
, count
);
598 ts
= table
->sections
+ space
;
600 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
602 if (bfd_section_size (osect
->the_bfd_section
) == 0)
605 gdb_assert (ts
< table
->sections
+ space
+ count
);
607 ts
->addr
= obj_section_addr (osect
);
608 ts
->endaddr
= obj_section_endaddr (osect
);
609 ts
->the_bfd_section
= osect
->the_bfd_section
;
610 ts
->owner
= (void *) objfile
;
616 /* Remove all target sections owned by OWNER.
617 OWNER must be the same value passed to add_target_sections. */
620 remove_target_sections (void *owner
)
622 struct target_section
*src
, *dest
;
623 struct target_section_table
*table
= current_target_sections
;
625 gdb_assert (owner
!= NULL
);
627 dest
= table
->sections
;
628 for (src
= table
->sections
; src
< table
->sections_end
; src
++)
629 if (src
->owner
!= owner
)
631 /* Keep this section. */
637 /* If we've dropped any sections, resize the section table. */
642 old_count
= resize_section_table (table
, dest
- src
);
644 /* If we don't have any more sections to read memory from,
645 remove the file_stratum target from the stack of each
646 inferior sharing the program space. */
647 if (old_count
+ (dest
- src
) == 0)
649 scoped_restore_current_pspace_and_thread restore_pspace_thread
;
650 program_space
*curr_pspace
= current_program_space
;
652 for (inferior
*inf
: all_inferiors ())
654 if (inf
->pspace
!= curr_pspace
)
657 if (inf
->pspace
->target_sections
.sections
658 != inf
->pspace
->target_sections
.sections_end
)
661 switch_to_inferior_no_thread (inf
);
662 unpush_target (&exec_ops
);
673 if (current_program_space
->target_sections
.sections
674 != current_program_space
->target_sections
.sections_end
)
675 push_target (&exec_ops
);
680 enum target_xfer_status
681 exec_read_partial_read_only (gdb_byte
*readbuf
, ULONGEST offset
,
682 ULONGEST len
, ULONGEST
*xfered_len
)
684 /* It's unduly pedantic to refuse to look at the executable for
685 read-only pieces; so do the equivalent of readonly regions aka
687 if (exec_bfd
!= NULL
)
693 for (s
= exec_bfd
->sections
; s
; s
= s
->next
)
695 if ((s
->flags
& SEC_LOAD
) == 0
696 || (s
->flags
& SEC_READONLY
) == 0)
700 size
= bfd_section_size (s
);
701 if (vma
<= offset
&& offset
< (vma
+ size
))
705 amt
= (vma
+ size
) - offset
;
709 amt
= bfd_get_section_contents (exec_bfd
, s
,
710 readbuf
, offset
- vma
, amt
);
713 return TARGET_XFER_EOF
;
717 return TARGET_XFER_OK
;
723 /* Indicate failure to find the requested memory block. */
724 return TARGET_XFER_E_IO
;
727 /* Return all read-only memory ranges found in the target section
728 table defined by SECTIONS and SECTIONS_END, starting at (and
729 intersected with) MEMADDR for LEN bytes. */
731 static std::vector
<mem_range
>
732 section_table_available_memory (CORE_ADDR memaddr
, ULONGEST len
,
733 struct target_section
*sections
,
734 struct target_section
*sections_end
)
736 std::vector
<mem_range
> memory
;
738 for (target_section
*p
= sections
; p
< sections_end
; p
++)
740 if ((bfd_section_flags (p
->the_bfd_section
) & SEC_READONLY
) == 0)
743 /* Copy the meta-data, adjusted. */
744 if (mem_ranges_overlap (p
->addr
, p
->endaddr
- p
->addr
, memaddr
, len
))
746 ULONGEST lo1
, hi1
, lo2
, hi2
;
754 CORE_ADDR start
= std::max (lo1
, lo2
);
755 int length
= std::min (hi1
, hi2
) - start
;
757 memory
.emplace_back (start
, length
);
764 enum target_xfer_status
765 section_table_read_available_memory (gdb_byte
*readbuf
, ULONGEST offset
,
766 ULONGEST len
, ULONGEST
*xfered_len
)
768 target_section_table
*table
= target_get_section_table (&exec_ops
);
769 std::vector
<mem_range
> available_memory
770 = section_table_available_memory (offset
, len
,
771 table
->sections
, table
->sections_end
);
773 normalize_mem_ranges (&available_memory
);
775 for (const mem_range
&r
: available_memory
)
777 if (mem_ranges_overlap (r
.start
, r
.length
, offset
, len
))
780 enum target_xfer_status status
;
782 /* Get the intersection window. */
783 end
= std::min
<CORE_ADDR
> (offset
+ len
, r
.start
+ r
.length
);
785 gdb_assert (end
- offset
<= len
);
787 if (offset
>= r
.start
)
788 status
= exec_read_partial_read_only (readbuf
, offset
,
793 *xfered_len
= r
.start
- offset
;
794 status
= TARGET_XFER_UNAVAILABLE
;
801 return TARGET_XFER_UNAVAILABLE
;
804 enum target_xfer_status
805 section_table_xfer_memory_partial (gdb_byte
*readbuf
, const gdb_byte
*writebuf
,
806 ULONGEST offset
, ULONGEST len
,
807 ULONGEST
*xfered_len
,
808 struct target_section
*sections
,
809 struct target_section
*sections_end
,
810 const char *section_name
)
813 struct target_section
*p
;
814 ULONGEST memaddr
= offset
;
815 ULONGEST memend
= memaddr
+ len
;
818 internal_error (__FILE__
, __LINE__
,
819 _("failed internal consistency check"));
821 for (p
= sections
; p
< sections_end
; p
++)
823 struct bfd_section
*asect
= p
->the_bfd_section
;
824 bfd
*abfd
= asect
->owner
;
826 if (section_name
&& strcmp (section_name
, asect
->name
) != 0)
827 continue; /* not the section we need. */
828 if (memaddr
>= p
->addr
)
830 if (memend
<= p
->endaddr
)
832 /* Entire transfer is within this section. */
834 res
= bfd_set_section_contents (abfd
, asect
,
835 writebuf
, memaddr
- p
->addr
,
838 res
= bfd_get_section_contents (abfd
, asect
,
839 readbuf
, memaddr
- p
->addr
,
845 return TARGET_XFER_OK
;
848 return TARGET_XFER_EOF
;
850 else if (memaddr
>= p
->endaddr
)
852 /* This section ends before the transfer starts. */
857 /* This section overlaps the transfer. Just do half. */
858 len
= p
->endaddr
- memaddr
;
860 res
= bfd_set_section_contents (abfd
, asect
,
861 writebuf
, memaddr
- p
->addr
,
864 res
= bfd_get_section_contents (abfd
, asect
,
865 readbuf
, memaddr
- p
->addr
,
870 return TARGET_XFER_OK
;
873 return TARGET_XFER_EOF
;
878 return TARGET_XFER_EOF
; /* We can't help. */
881 struct target_section_table
*
882 exec_target::get_section_table ()
884 return current_target_sections
;
887 enum target_xfer_status
888 exec_target::xfer_partial (enum target_object object
,
889 const char *annex
, gdb_byte
*readbuf
,
890 const gdb_byte
*writebuf
,
891 ULONGEST offset
, ULONGEST len
, ULONGEST
*xfered_len
)
893 struct target_section_table
*table
= get_section_table ();
895 if (object
== TARGET_OBJECT_MEMORY
)
896 return section_table_xfer_memory_partial (readbuf
, writebuf
,
897 offset
, len
, xfered_len
,
902 return TARGET_XFER_E_IO
;
907 print_section_info (struct target_section_table
*t
, bfd
*abfd
)
909 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
910 struct target_section
*p
;
911 /* FIXME: 16 is not wide enough when gdbarch_addr_bit > 64. */
912 int wid
= gdbarch_addr_bit (gdbarch
) <= 32 ? 8 : 16;
914 printf_filtered ("\t`%s', ", bfd_get_filename (abfd
));
916 printf_filtered (_("file type %s.\n"), bfd_get_target (abfd
));
917 if (abfd
== exec_bfd
)
919 /* gcc-3.4 does not like the initialization in
920 <p == t->sections_end>. */
921 bfd_vma displacement
= 0;
924 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
926 struct bfd_section
*psect
= p
->the_bfd_section
;
928 if ((bfd_section_flags (psect
) & (SEC_ALLOC
| SEC_LOAD
))
929 != (SEC_ALLOC
| SEC_LOAD
))
932 if (bfd_section_vma (psect
) <= abfd
->start_address
933 && abfd
->start_address
< (bfd_section_vma (psect
)
934 + bfd_section_size (psect
)))
936 displacement
= p
->addr
- bfd_section_vma (psect
);
940 if (p
== t
->sections_end
)
941 warning (_("Cannot find section for the entry point of %s."),
942 bfd_get_filename (abfd
));
944 entry_point
= gdbarch_addr_bits_remove (gdbarch
,
945 bfd_get_start_address (abfd
)
947 printf_filtered (_("\tEntry point: %s\n"),
948 paddress (gdbarch
, entry_point
));
950 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
952 struct bfd_section
*psect
= p
->the_bfd_section
;
953 bfd
*pbfd
= psect
->owner
;
955 printf_filtered ("\t%s", hex_string_custom (p
->addr
, wid
));
956 printf_filtered (" - %s", hex_string_custom (p
->endaddr
, wid
));
958 /* FIXME: A format of "08l" is not wide enough for file offsets
959 larger than 4GB. OTOH, making it "016l" isn't desirable either
960 since most output will then be much wider than necessary. It
961 may make sense to test the size of the file and choose the
962 format string accordingly. */
963 /* FIXME: i18n: Need to rewrite this sentence. */
965 printf_filtered (" @ %s",
966 hex_string_custom (psect
->filepos
, 8));
967 printf_filtered (" is %s", bfd_section_name (psect
));
969 printf_filtered (" in %s", bfd_get_filename (pbfd
));
970 printf_filtered ("\n");
975 exec_target::files_info ()
978 print_section_info (current_target_sections
, exec_bfd
);
980 puts_filtered (_("\t<no file loaded>\n"));
984 set_section_command (const char *args
, int from_tty
)
986 struct target_section
*p
;
989 unsigned long secaddr
;
992 struct target_section_table
*table
;
995 error (_("Must specify section name and its virtual address"));
997 /* Parse out section name. */
998 for (secname
= args
; !isspace (*args
); args
++);
999 seclen
= args
- secname
;
1001 /* Parse out new virtual address. */
1002 secaddr
= parse_and_eval_address (args
);
1004 table
= current_target_sections
;
1005 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1007 if (!strncmp (secname
, bfd_section_name (p
->the_bfd_section
), seclen
)
1008 && bfd_section_name (p
->the_bfd_section
)[seclen
] == '\0')
1010 offset
= secaddr
- p
->addr
;
1012 p
->endaddr
+= offset
;
1014 exec_ops
.files_info ();
1018 if (seclen
>= sizeof (secprint
))
1019 seclen
= sizeof (secprint
) - 1;
1020 strncpy (secprint
, secname
, seclen
);
1021 secprint
[seclen
] = '\0';
1022 error (_("Section %s not found"), secprint
);
1025 /* If we can find a section in FILENAME with BFD index INDEX, adjust
1029 exec_set_section_address (const char *filename
, int index
, CORE_ADDR address
)
1031 struct target_section
*p
;
1032 struct target_section_table
*table
;
1034 table
= current_target_sections
;
1035 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1037 if (filename_cmp (filename
, p
->the_bfd_section
->owner
->filename
) == 0
1038 && index
== p
->the_bfd_section
->index
)
1040 p
->endaddr
+= address
- p
->addr
;
1047 exec_target::has_memory ()
1049 /* We can provide memory if we have any file/target sections to read
1051 return (current_target_sections
->sections
1052 != current_target_sections
->sections_end
);
1056 exec_target::make_corefile_notes (bfd
*obfd
, int *note_size
)
1058 error (_("Can't create a corefile"));
1062 exec_target::find_memory_regions (find_memory_region_ftype func
, void *data
)
1064 return objfile_find_memory_regions (this, func
, data
);
1067 void _initialize_exec ();
1071 struct cmd_list_element
*c
;
1075 c
= add_cmd ("file", class_files
, file_command
, _("\
1076 Use FILE as program to be debugged.\n\
1077 It is read for its symbols, for getting the contents of pure memory,\n\
1078 and it is the program executed when you use the `run' command.\n\
1079 If FILE cannot be found as specified, your execution directory path\n\
1080 ($PATH) is searched for a command of that name.\n\
1081 No arg means to have no executable file and no symbols."), &cmdlist
);
1082 set_cmd_completer (c
, filename_completer
);
1085 c
= add_cmd ("exec-file", class_files
, exec_file_command
, _("\
1086 Use FILE as program for getting contents of pure memory.\n\
1087 If FILE cannot be found as specified, your execution directory path\n\
1088 is searched for a command of that name.\n\
1089 No arg means have no executable file."), &cmdlist
);
1090 set_cmd_completer (c
, filename_completer
);
1092 add_com ("section", class_files
, set_section_command
, _("\
1093 Change the base address of section SECTION of the exec file to ADDR.\n\
1094 This can be used if the exec file does not contain section addresses,\n\
1095 (such as in the a.out format), or when the addresses specified in the\n\
1096 file itself are wrong. Each section must be changed separately. The\n\
1097 ``info files'' command lists all the sections and their addresses."));
1099 add_setshow_boolean_cmd ("write", class_support
, &write_files
, _("\
1100 Set writing into executable and core files."), _("\
1101 Show writing into executable and core files."), NULL
,
1104 &setlist
, &showlist
);
1106 add_target (exec_target_info
, exec_target_open
, filename_completer
);