1 /* Work with executable files, for GDB.
3 Copyright (C) 1988-2017 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 scoped_restore_current_program_space restore_pspace;
120 set_current_program_space (ss);
121 clear_section_table (current_target_sections);
127 exec_file_clear (int from_tty)
129 /* Remove exec file. */
133 printf_unfiltered (_("No executable file now.\n"));
139 try_open_exec_file (const char *exec_file_host, struct inferior *inf,
140 symfile_add_flags add_flags)
142 struct cleanup *old_chain;
143 struct gdb_exception prev_err = exception_none;
145 old_chain = make_cleanup (free_current_contents, &prev_err.message);
147 /* exec_file_attach and symbol_file_add_main may throw an error if the file
148 cannot be opened either locally or remotely.
150 This happens for example, when the file is first found in the local
151 sysroot (above), and then disappears (a TOCTOU race), or when it doesn't
152 exist in the target filesystem, or when the file does exist, but
155 Even without a symbol file, the remote-based debugging session should
156 continue normally instead of ending abruptly. Hence we catch thrown
157 errors/exceptions in the following code. */
160 /* We must do this step even if exec_file_host is NULL, so that
161 exec_file_attach will clear state. */
162 exec_file_attach (exec_file_host, add_flags & SYMFILE_VERBOSE);
164 CATCH (err, RETURN_MASK_ERROR)
166 if (err.message != NULL)
167 warning ("%s", err.message);
171 /* Save message so it doesn't get trashed by the catch below. */
172 if (err.message != NULL)
173 prev_err.message = xstrdup (err.message);
177 if (exec_file_host != NULL)
181 symbol_file_add_main (exec_file_host, add_flags);
183 CATCH (err, RETURN_MASK_ERROR)
185 if (!exception_print_same (prev_err, err))
186 warning ("%s", err.message);
191 do_cleanups (old_chain);
197 exec_file_locate_attach (int pid, int defer_bp_reset, int from_tty)
199 char *exec_file_target, *exec_file_host;
200 struct cleanup *old_chain;
201 symfile_add_flags add_flags = 0;
203 /* Do nothing if we already have an executable filename. */
204 if (get_exec_file (0) != NULL)
207 /* Try to determine a filename from the process itself. */
208 exec_file_target = target_pid_to_exec_file (pid);
209 if (exec_file_target == NULL)
211 warning (_("No executable has been specified and target does not "
213 "determining executable automatically. "
214 "Try using the \"file\" command."));
218 exec_file_host = exec_file_find (exec_file_target, NULL);
219 old_chain = make_cleanup (xfree, exec_file_host);
222 add_flags |= SYMFILE_DEFER_BP_RESET;
225 add_flags |= SYMFILE_VERBOSE;
227 /* Attempt to open the exec file. */
228 try_open_exec_file (exec_file_host, current_inferior (), add_flags);
229 do_cleanups (old_chain);
232 /* Set FILENAME as the new exec file.
234 This function is intended to be behave essentially the same
235 as exec_file_command, except that the latter will detect when
236 a target is being debugged, and will ask the user whether it
237 should be shut down first. (If the answer is "no", then the
238 new file is ignored.)
240 This file is used by exec_file_command, to do the work of opening
241 and processing the exec file after any prompting has happened.
243 And, it is used by child_attach, when the attach command was
244 given a pid but not a exec pathname, and the attach command could
245 figure out the pathname from the pid. (In this case, we shouldn't
246 ask the user whether the current target should be shut down --
247 we're supplying the exec pathname late for good reason.) */
250 exec_file_attach (const char *filename, int from_tty)
252 struct cleanup *cleanups;
254 /* First, acquire a reference to the current exec_bfd. We release
255 this at the end of the function; but acquiring it now lets the
256 BFD cache return it if this call refers to the same file. */
257 gdb_bfd_ref (exec_bfd);
258 gdb_bfd_ref_ptr exec_bfd_holder (exec_bfd);
260 cleanups = make_cleanup (null_cleanup, NULL);
262 /* Remove any previous exec file. */
265 /* Now open and digest the file the user requested, if any. */
270 printf_unfiltered (_("No executable file now.\n"));
272 set_gdbarch_from_file (NULL);
276 int load_via_target = 0;
277 char *scratch_pathname, *canonical_pathname;
279 struct target_section *sections = NULL, *sections_end = NULL;
282 if (is_target_filename (filename))
284 if (target_filesystem_is_local ())
285 filename += strlen (TARGET_SYSROOT_PREFIX);
292 /* gdb_bfd_fopen does not support "target:" filenames. */
294 warning (_("writing into executable files is "
295 "not supported for %s sysroots"),
296 TARGET_SYSROOT_PREFIX);
298 scratch_pathname = xstrdup (filename);
299 make_cleanup (xfree, scratch_pathname);
303 canonical_pathname = scratch_pathname;
307 scratch_chan = openp (getenv ("PATH"), OPF_TRY_CWD_FIRST,
308 filename, write_files ?
309 O_RDWR | O_BINARY : O_RDONLY | O_BINARY,
311 #if defined(__GO32__) || defined(_WIN32) || defined(__CYGWIN__)
312 if (scratch_chan < 0)
314 char *exename = (char *) alloca (strlen (filename) + 5);
316 strcat (strcpy (exename, filename), ".exe");
317 scratch_chan = openp (getenv ("PATH"), OPF_TRY_CWD_FIRST,
318 exename, write_files ?
320 : O_RDONLY | O_BINARY,
324 if (scratch_chan < 0)
325 perror_with_name (filename);
327 make_cleanup (xfree, scratch_pathname);
329 /* gdb_bfd_open (and its variants) prefers canonicalized
330 pathname for better BFD caching. */
331 canonical_pathname = gdb_realpath (scratch_pathname);
332 make_cleanup (xfree, canonical_pathname);
335 gdb_bfd_ref_ptr temp;
336 if (write_files && !load_via_target)
337 temp = gdb_bfd_fopen (canonical_pathname, gnutarget,
338 FOPEN_RUB, scratch_chan);
340 temp = gdb_bfd_open (canonical_pathname, gnutarget, scratch_chan);
341 exec_bfd = temp.release ();
345 error (_("\"%s\": could not open as an executable file: %s."),
346 scratch_pathname, bfd_errmsg (bfd_get_error ()));
349 /* gdb_realpath_keepfile resolves symlinks on the local
350 filesystem and so cannot be used for "target:" files. */
351 gdb_assert (exec_filename == NULL);
353 exec_filename = xstrdup (bfd_get_filename (exec_bfd));
355 exec_filename = gdb_realpath_keepfile (scratch_pathname);
357 if (!bfd_check_format_matches (exec_bfd, bfd_object, &matching))
359 /* Make sure to close exec_bfd, or else "run" might try to use
362 error (_("\"%s\": not in executable format: %s"),
364 gdb_bfd_errmsg (bfd_get_error (), matching));
367 if (build_section_table (exec_bfd, §ions, §ions_end))
369 /* Make sure to close exec_bfd, or else "run" might try to use
372 error (_("\"%s\": can't find the file sections: %s"),
373 scratch_pathname, bfd_errmsg (bfd_get_error ()));
376 exec_bfd_mtime = bfd_get_mtime (exec_bfd);
380 set_gdbarch_from_file (exec_bfd);
382 /* Add the executable's sections to the current address spaces'
383 list of sections. This possibly pushes the exec_ops
385 add_target_sections (&exec_bfd, sections, sections_end);
388 /* Tell display code (if any) about the changed file name. */
389 if (deprecated_exec_file_display_hook)
390 (*deprecated_exec_file_display_hook) (filename);
393 do_cleanups (cleanups);
395 bfd_cache_close_all ();
396 observer_notify_executable_changed ();
399 /* Process the first arg in ARGS as the new exec file.
401 Note that we have to explicitly ignore additional args, since we can
402 be called from file_command(), which also calls symbol_file_command()
403 which can take multiple args.
405 If ARGS is NULL, we just want to close the exec file. */
408 exec_file_command (char *args, int from_tty)
412 if (from_tty && target_has_execution
413 && !query (_("A program is being debugged already.\n"
414 "Are you sure you want to change the file? ")))
415 error (_("File not changed."));
419 /* Scan through the args and pick up the first non option arg
422 gdb_argv built_argv (args);
423 char **argv = built_argv.get ();
425 for (; (*argv != NULL) && (**argv == '-'); argv++)
429 error (_("No executable file name was specified"));
431 gdb::unique_xmalloc_ptr<char> filename (tilde_expand (*argv));
432 exec_file_attach (filename.get (), from_tty);
435 exec_file_attach (NULL, from_tty);
438 /* Set both the exec file and the symbol file, in one command.
439 What a novelty. Why did GDB go through four major releases before this
440 command was added? */
443 file_command (char *arg, int from_tty)
445 /* FIXME, if we lose on reading the symbol file, we should revert
446 the exec file, but that's rough. */
447 exec_file_command (arg, from_tty);
448 symbol_file_command (arg, from_tty);
449 if (deprecated_file_changed_hook)
450 deprecated_file_changed_hook (arg);
454 /* Locate all mappable sections of a BFD file.
455 table_pp_char is a char * to get it through bfd_map_over_sections;
456 we cast it back to its proper type. */
459 add_to_section_table (bfd *abfd, struct bfd_section *asect,
462 struct target_section **table_pp = (struct target_section **) table_pp_char;
465 gdb_assert (abfd == asect->owner);
467 /* Check the section flags, but do not discard zero-length sections, since
468 some symbols may still be attached to this section. For instance, we
469 encountered on sparc-solaris 2.10 a shared library with an empty .bss
470 section to which a symbol named "_end" was attached. The address
471 of this symbol still needs to be relocated. */
472 aflag = bfd_get_section_flags (abfd, asect);
473 if (!(aflag & SEC_ALLOC))
476 (*table_pp)->owner = NULL;
477 (*table_pp)->the_bfd_section = asect;
478 (*table_pp)->addr = bfd_section_vma (abfd, asect);
479 (*table_pp)->endaddr = (*table_pp)->addr + bfd_section_size (abfd, asect);
486 clear_section_table (struct target_section_table *table)
488 xfree (table->sections);
489 table->sections = table->sections_end = NULL;
492 /* Resize section table TABLE by ADJUSTMENT.
493 ADJUSTMENT may be negative, in which case the caller must have already
494 removed the sections being deleted.
495 Returns the old size. */
498 resize_section_table (struct target_section_table *table, int adjustment)
503 old_count = table->sections_end - table->sections;
505 new_count = adjustment + old_count;
509 table->sections = XRESIZEVEC (struct target_section, table->sections,
511 table->sections_end = table->sections + new_count;
514 clear_section_table (table);
519 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
520 Returns 0 if OK, 1 on error. */
523 build_section_table (struct bfd *some_bfd, struct target_section **start,
524 struct target_section **end)
528 count = bfd_count_sections (some_bfd);
531 *start = XNEWVEC (struct target_section, count);
533 bfd_map_over_sections (some_bfd, add_to_section_table, (char *) end);
534 if (*end > *start + count)
535 internal_error (__FILE__, __LINE__,
536 _("failed internal consistency check"));
537 /* We could realloc the table, but it probably loses for most files. */
541 /* Add the sections array defined by [SECTIONS..SECTIONS_END[ to the
542 current set of target sections. */
545 add_target_sections (void *owner,
546 struct target_section *sections,
547 struct target_section *sections_end)
550 struct target_section_table *table = current_target_sections;
552 count = sections_end - sections;
556 int space = resize_section_table (table, count);
559 for (i = 0; i < count; ++i)
561 table->sections[space + i] = sections[i];
562 table->sections[space + i].owner = owner;
565 /* If these are the first file sections we can provide memory
566 from, push the file_stratum target. */
567 if (!target_is_pushed (&exec_ops))
568 push_target (&exec_ops);
572 /* Add the sections of OBJFILE to the current set of target sections. */
575 add_target_sections_of_objfile (struct objfile *objfile)
577 struct target_section_table *table = current_target_sections;
578 struct obj_section *osect;
581 struct target_section *ts;
586 /* Compute the number of sections to add. */
587 ALL_OBJFILE_OSECTIONS (objfile, osect)
589 if (bfd_get_section_size (osect->the_bfd_section) == 0)
597 space = resize_section_table (table, count);
599 ts = table->sections + space;
601 ALL_OBJFILE_OSECTIONS (objfile, osect)
603 if (bfd_get_section_size (osect->the_bfd_section) == 0)
606 gdb_assert (ts < table->sections + space + count);
608 ts->addr = obj_section_addr (osect);
609 ts->endaddr = obj_section_endaddr (osect);
610 ts->the_bfd_section = osect->the_bfd_section;
611 ts->owner = (void *) objfile;
617 /* Remove all target sections owned by OWNER.
618 OWNER must be the same value passed to add_target_sections. */
621 remove_target_sections (void *owner)
623 struct target_section *src, *dest;
624 struct target_section_table *table = current_target_sections;
626 gdb_assert (owner != NULL);
628 dest = table->sections;
629 for (src = table->sections; src < table->sections_end; src++)
630 if (src->owner != owner)
632 /* Keep this section. */
638 /* If we've dropped any sections, resize the section table. */
643 old_count = resize_section_table (table, dest - src);
645 /* If we don't have any more sections to read memory from,
646 remove the file_stratum target from the stack. */
647 if (old_count + (dest - src) == 0)
649 struct program_space *pspace;
652 if (pspace->target_sections.sections
653 != pspace->target_sections.sections_end)
656 unpush_target (&exec_ops);
663 enum target_xfer_status
664 exec_read_partial_read_only (gdb_byte *readbuf, ULONGEST offset,
665 ULONGEST len, ULONGEST *xfered_len)
667 /* It's unduly pedantic to refuse to look at the executable for
668 read-only pieces; so do the equivalent of readonly regions aka
670 if (exec_bfd != NULL)
676 for (s = exec_bfd->sections; s; s = s->next)
678 if ((s->flags & SEC_LOAD) == 0
679 || (s->flags & SEC_READONLY) == 0)
683 size = bfd_get_section_size (s);
684 if (vma <= offset && offset < (vma + size))
688 amt = (vma + size) - offset;
692 amt = bfd_get_section_contents (exec_bfd, s,
693 readbuf, offset - vma, amt);
696 return TARGET_XFER_EOF;
700 return TARGET_XFER_OK;
706 /* Indicate failure to find the requested memory block. */
707 return TARGET_XFER_E_IO;
710 /* Appends all read-only memory ranges found in the target section
711 table defined by SECTIONS and SECTIONS_END, starting at (and
712 intersected with) MEMADDR for LEN bytes. Returns the augmented
715 static VEC(mem_range_s) *
716 section_table_available_memory (VEC(mem_range_s) *memory,
717 CORE_ADDR memaddr, ULONGEST len,
718 struct target_section *sections,
719 struct target_section *sections_end)
721 struct target_section *p;
723 for (p = sections; p < sections_end; p++)
725 if ((bfd_get_section_flags (p->the_bfd_section->owner,
727 & SEC_READONLY) == 0)
730 /* Copy the meta-data, adjusted. */
731 if (mem_ranges_overlap (p->addr, p->endaddr - p->addr, memaddr, len))
733 ULONGEST lo1, hi1, lo2, hi2;
742 r = VEC_safe_push (mem_range_s, memory, NULL);
744 r->start = std::max (lo1, lo2);
745 r->length = std::min (hi1, hi2) - r->start;
752 enum target_xfer_status
753 section_table_read_available_memory (gdb_byte *readbuf, ULONGEST offset,
754 ULONGEST len, ULONGEST *xfered_len)
756 VEC(mem_range_s) *available_memory = NULL;
757 struct target_section_table *table;
758 struct cleanup *old_chain;
762 table = target_get_section_table (&exec_ops);
763 available_memory = section_table_available_memory (available_memory,
766 table->sections_end);
768 old_chain = make_cleanup (VEC_cleanup(mem_range_s),
771 normalize_mem_ranges (available_memory);
774 VEC_iterate (mem_range_s, available_memory, i, r);
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;
796 do_cleanups (old_chain);
800 do_cleanups (old_chain);
803 return TARGET_XFER_UNAVAILABLE;
806 enum target_xfer_status
807 section_table_xfer_memory_partial (gdb_byte *readbuf, const gdb_byte *writebuf,
808 ULONGEST offset, ULONGEST len,
809 ULONGEST *xfered_len,
810 struct target_section *sections,
811 struct target_section *sections_end,
812 const char *section_name)
815 struct target_section *p;
816 ULONGEST memaddr = offset;
817 ULONGEST memend = memaddr + len;
820 internal_error (__FILE__, __LINE__,
821 _("failed internal consistency check"));
823 for (p = sections; p < sections_end; p++)
825 struct bfd_section *asect = p->the_bfd_section;
826 bfd *abfd = asect->owner;
828 if (section_name && strcmp (section_name, asect->name) != 0)
829 continue; /* not the section we need. */
830 if (memaddr >= p->addr)
832 if (memend <= p->endaddr)
834 /* Entire transfer is within this section. */
836 res = bfd_set_section_contents (abfd, asect,
837 writebuf, memaddr - p->addr,
840 res = bfd_get_section_contents (abfd, asect,
841 readbuf, memaddr - p->addr,
847 return TARGET_XFER_OK;
850 return TARGET_XFER_EOF;
852 else if (memaddr >= p->endaddr)
854 /* This section ends before the transfer starts. */
859 /* This section overlaps the transfer. Just do half. */
860 len = p->endaddr - memaddr;
862 res = bfd_set_section_contents (abfd, asect,
863 writebuf, memaddr - p->addr,
866 res = bfd_get_section_contents (abfd, asect,
867 readbuf, memaddr - p->addr,
872 return TARGET_XFER_OK;
875 return TARGET_XFER_EOF;
880 return TARGET_XFER_EOF; /* We can't help. */
883 static struct target_section_table *
884 exec_get_section_table (struct target_ops *ops)
886 return current_target_sections;
889 static enum target_xfer_status
890 exec_xfer_partial (struct target_ops *ops, enum target_object object,
891 const char *annex, gdb_byte *readbuf,
892 const gdb_byte *writebuf,
893 ULONGEST offset, ULONGEST len, ULONGEST *xfered_len)
895 struct target_section_table *table = target_get_section_table (ops);
897 if (object == TARGET_OBJECT_MEMORY)
898 return section_table_xfer_memory_partial (readbuf, writebuf,
899 offset, len, xfered_len,
904 return TARGET_XFER_E_IO;
909 print_section_info (struct target_section_table *t, bfd *abfd)
911 struct gdbarch *gdbarch = gdbarch_from_bfd (abfd);
912 struct target_section *p;
913 /* FIXME: 16 is not wide enough when gdbarch_addr_bit > 64. */
914 int wid = gdbarch_addr_bit (gdbarch) <= 32 ? 8 : 16;
916 printf_filtered ("\t`%s', ", bfd_get_filename (abfd));
918 printf_filtered (_("file type %s.\n"), bfd_get_target (abfd));
919 if (abfd == exec_bfd)
921 /* gcc-3.4 does not like the initialization in
922 <p == t->sections_end>. */
923 bfd_vma displacement = 0;
926 for (p = t->sections; p < t->sections_end; p++)
928 struct bfd_section *psect = p->the_bfd_section;
929 bfd *pbfd = psect->owner;
931 if ((bfd_get_section_flags (pbfd, psect) & (SEC_ALLOC | SEC_LOAD))
932 != (SEC_ALLOC | SEC_LOAD))
935 if (bfd_get_section_vma (pbfd, psect) <= abfd->start_address
936 && abfd->start_address < (bfd_get_section_vma (pbfd, psect)
937 + bfd_get_section_size (psect)))
939 displacement = p->addr - bfd_get_section_vma (pbfd, psect);
943 if (p == t->sections_end)
944 warning (_("Cannot find section for the entry point of %s."),
945 bfd_get_filename (abfd));
947 entry_point = gdbarch_addr_bits_remove (gdbarch,
948 bfd_get_start_address (abfd)
950 printf_filtered (_("\tEntry point: %s\n"),
951 paddress (gdbarch, entry_point));
953 for (p = t->sections; p < t->sections_end; p++)
955 struct bfd_section *psect = p->the_bfd_section;
956 bfd *pbfd = psect->owner;
958 printf_filtered ("\t%s", hex_string_custom (p->addr, wid));
959 printf_filtered (" - %s", hex_string_custom (p->endaddr, wid));
961 /* FIXME: A format of "08l" is not wide enough for file offsets
962 larger than 4GB. OTOH, making it "016l" isn't desirable either
963 since most output will then be much wider than necessary. It
964 may make sense to test the size of the file and choose the
965 format string accordingly. */
966 /* FIXME: i18n: Need to rewrite this sentence. */
968 printf_filtered (" @ %s",
969 hex_string_custom (psect->filepos, 8));
970 printf_filtered (" is %s", bfd_section_name (pbfd, psect));
972 printf_filtered (" in %s", bfd_get_filename (pbfd));
973 printf_filtered ("\n");
978 exec_files_info (struct target_ops *t)
981 print_section_info (current_target_sections, exec_bfd);
983 puts_filtered (_("\t<no file loaded>\n"));
987 set_section_command (char *args, int from_tty)
989 struct target_section *p;
992 unsigned long secaddr;
995 struct target_section_table *table;
998 error (_("Must specify section name and its virtual address"));
1000 /* Parse out section name. */
1001 for (secname = args; !isspace (*args); args++);
1002 seclen = args - secname;
1004 /* Parse out new virtual address. */
1005 secaddr = parse_and_eval_address (args);
1007 table = current_target_sections;
1008 for (p = table->sections; p < table->sections_end; p++)
1010 if (!strncmp (secname, bfd_section_name (p->bfd,
1011 p->the_bfd_section), seclen)
1012 && bfd_section_name (p->bfd, p->the_bfd_section)[seclen] == '\0')
1014 offset = secaddr - p->addr;
1016 p->endaddr += offset;
1018 exec_files_info (&exec_ops);
1022 if (seclen >= sizeof (secprint))
1023 seclen = sizeof (secprint) - 1;
1024 strncpy (secprint, secname, seclen);
1025 secprint[seclen] = '\0';
1026 error (_("Section %s not found"), secprint);
1029 /* If we can find a section in FILENAME with BFD index INDEX, adjust
1033 exec_set_section_address (const char *filename, int index, CORE_ADDR address)
1035 struct target_section *p;
1036 struct target_section_table *table;
1038 table = current_target_sections;
1039 for (p = table->sections; p < table->sections_end; p++)
1041 if (filename_cmp (filename, p->the_bfd_section->owner->filename) == 0
1042 && index == p->the_bfd_section->index)
1044 p->endaddr += address - p->addr;
1050 /* If mourn is being called in all the right places, this could be say
1051 `gdb internal error' (since generic_mourn calls
1052 breakpoint_init_inferior). */
1055 ignore (struct target_ops *ops, struct gdbarch *gdbarch,
1056 struct bp_target_info *bp_tgt)
1061 /* Implement the to_remove_breakpoint method. */
1064 exec_remove_breakpoint (struct target_ops *ops, struct gdbarch *gdbarch,
1065 struct bp_target_info *bp_tgt,
1066 enum remove_bp_reason reason)
1072 exec_has_memory (struct target_ops *ops)
1074 /* We can provide memory if we have any file/target sections to read
1076 return (current_target_sections->sections
1077 != current_target_sections->sections_end);
1081 exec_make_note_section (struct target_ops *self, bfd *obfd, int *note_size)
1083 error (_("Can't create a corefile"));
1086 /* Fill in the exec file target vector. Very few entries need to be
1090 init_exec_ops (void)
1092 exec_ops.to_shortname = "exec";
1093 exec_ops.to_longname = "Local exec file";
1094 exec_ops.to_doc = "Use an executable file as a target.\n\
1095 Specify the filename of the executable file.";
1096 exec_ops.to_open = exec_open;
1097 exec_ops.to_close = exec_close_1;
1098 exec_ops.to_xfer_partial = exec_xfer_partial;
1099 exec_ops.to_get_section_table = exec_get_section_table;
1100 exec_ops.to_files_info = exec_files_info;
1101 exec_ops.to_insert_breakpoint = ignore;
1102 exec_ops.to_remove_breakpoint = exec_remove_breakpoint;
1103 exec_ops.to_stratum = file_stratum;
1104 exec_ops.to_has_memory = exec_has_memory;
1105 exec_ops.to_make_corefile_notes = exec_make_note_section;
1106 exec_ops.to_find_memory_regions = objfile_find_memory_regions;
1107 exec_ops.to_magic = OPS_MAGIC;
1111 _initialize_exec (void)
1113 struct cmd_list_element *c;
1119 c = add_cmd ("file", class_files, file_command, _("\
1120 Use FILE as program to be debugged.\n\
1121 It is read for its symbols, for getting the contents of pure memory,\n\
1122 and it is the program executed when you use the `run' command.\n\
1123 If FILE cannot be found as specified, your execution directory path\n\
1124 ($PATH) is searched for a command of that name.\n\
1125 No arg means to have no executable file and no symbols."), &cmdlist);
1126 set_cmd_completer (c, filename_completer);
1129 c = add_cmd ("exec-file", class_files, exec_file_command, _("\
1130 Use FILE as program for getting contents of pure memory.\n\
1131 If FILE cannot be found as specified, your execution directory path\n\
1132 is searched for a command of that name.\n\
1133 No arg means have no executable file."), &cmdlist);
1134 set_cmd_completer (c, filename_completer);
1136 add_com ("section", class_files, set_section_command, _("\
1137 Change the base address of section SECTION of the exec file to ADDR.\n\
1138 This can be used if the exec file does not contain section addresses,\n\
1139 (such as in the a.out format), or when the addresses specified in the\n\
1140 file itself are wrong. Each section must be changed separately. The\n\
1141 ``info files'' command lists all the sections and their addresses."));
1143 add_setshow_boolean_cmd ("write", class_support, &write_files, _("\
1144 Set writing into executable and core files."), _("\
1145 Show writing into executable and core files."), NULL,
1148 &setlist, &showlist);
1150 add_target_with_completer (&exec_ops, filename_completer);