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"
47 void (*deprecated_file_changed_hook
) (char *);
49 /* Prototypes for local functions */
51 static void file_command (char *, int);
53 static void set_section_command (char *, int);
55 static void exec_files_info (struct target_ops
*);
57 static void init_exec_ops (void);
59 void _initialize_exec (void);
61 /* The target vector for executable files. */
63 static struct target_ops exec_ops
;
65 /* Whether to open exec and core files read-only or read-write. */
69 show_write_files (struct ui_file
*file
, int from_tty
,
70 struct cmd_list_element
*c
, const char *value
)
72 fprintf_filtered (file
, _("Writing into executable and core files is %s.\n"),
78 exec_open (const char *args
, int from_tty
)
80 target_preopen (from_tty
);
81 exec_file_attach (args
, from_tty
);
84 /* Close and clear exec_bfd. If we end up with no target sections to
85 read memory from, this unpushes the exec_ops target. */
96 /* Removing target sections may close the exec_ops target.
97 Clear exec_bfd before doing so to prevent recursion. */
101 remove_target_sections (&exec_bfd
);
103 xfree (exec_filename
);
104 exec_filename
= NULL
;
108 /* This is the target_close implementation. Clears all target
109 sections and closes all executable bfds from all program spaces. */
112 exec_close_1 (struct target_ops
*self
)
114 struct program_space
*ss
;
115 struct cleanup
*old_chain
;
117 old_chain
= save_current_program_space ();
120 set_current_program_space (ss
);
121 clear_section_table (current_target_sections
);
125 do_cleanups (old_chain
);
129 exec_file_clear (int from_tty
)
131 /* Remove exec file. */
135 printf_unfiltered (_("No executable file now.\n"));
141 exec_file_locate_attach (int pid
, int from_tty
)
143 char *exec_file
, *full_exec_path
= NULL
;
144 struct cleanup
*old_chain
;
146 /* Do nothing if we already have an executable filename. */
147 exec_file
= (char *) get_exec_file (0);
148 if (exec_file
!= NULL
)
151 /* Try to determine a filename from the process itself. */
152 exec_file
= target_pid_to_exec_file (pid
);
153 if (exec_file
== NULL
)
155 warning (_("No executable has been specified and target does not "
157 "determining executable automatically. "
158 "Try using the \"file\" command."));
162 /* If gdb_sysroot is not empty and the discovered filename
163 is absolute then prefix the filename with gdb_sysroot. */
164 if (*gdb_sysroot
!= '\0' && IS_ABSOLUTE_PATH (exec_file
))
166 full_exec_path
= exec_file_find (exec_file
, NULL
);
167 if (full_exec_path
== NULL
)
172 /* It's possible we don't have a full path, but rather just a
173 filename. Some targets, such as HP-UX, don't provide the
176 Attempt to qualify the filename against the source path.
177 (If that fails, we'll just fall back on the original
178 filename. Not much more we can do...) */
179 if (!source_full_path_of (exec_file
, &full_exec_path
))
180 full_exec_path
= xstrdup (exec_file
);
183 old_chain
= make_cleanup (xfree
, full_exec_path
);
185 exec_file_attach (full_exec_path
, from_tty
);
186 symbol_file_add_main (full_exec_path
, from_tty
);
188 do_cleanups (old_chain
);
191 /* Set FILENAME as the new exec file.
193 This function is intended to be behave essentially the same
194 as exec_file_command, except that the latter will detect when
195 a target is being debugged, and will ask the user whether it
196 should be shut down first. (If the answer is "no", then the
197 new file is ignored.)
199 This file is used by exec_file_command, to do the work of opening
200 and processing the exec file after any prompting has happened.
202 And, it is used by child_attach, when the attach command was
203 given a pid but not a exec pathname, and the attach command could
204 figure out the pathname from the pid. (In this case, we shouldn't
205 ask the user whether the current target should be shut down --
206 we're supplying the exec pathname late for good reason.) */
209 exec_file_attach (const char *filename
, int from_tty
)
211 struct cleanup
*cleanups
;
213 /* First, acquire a reference to the current exec_bfd. We release
214 this at the end of the function; but acquiring it now lets the
215 BFD cache return it if this call refers to the same file. */
216 gdb_bfd_ref (exec_bfd
);
217 cleanups
= make_cleanup_bfd_unref (exec_bfd
);
219 /* Remove any previous exec file. */
222 /* Now open and digest the file the user requested, if any. */
227 printf_unfiltered (_("No executable file now.\n"));
229 set_gdbarch_from_file (NULL
);
233 int load_via_target
= 0;
234 char *scratch_pathname
, *canonical_pathname
;
236 struct target_section
*sections
= NULL
, *sections_end
= NULL
;
239 if (is_target_filename (filename
))
241 if (target_filesystem_is_local ())
242 filename
+= strlen (TARGET_SYSROOT_PREFIX
);
249 /* gdb_bfd_fopen does not support "target:" filenames. */
251 warning (_("writing into executable files is "
252 "not supported for %s sysroots"),
253 TARGET_SYSROOT_PREFIX
);
255 scratch_pathname
= xstrdup (filename
);
256 make_cleanup (xfree
, scratch_pathname
);
260 canonical_pathname
= scratch_pathname
;
264 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
265 filename
, write_files
?
266 O_RDWR
| O_BINARY
: O_RDONLY
| O_BINARY
,
268 #if defined(__GO32__) || defined(_WIN32) || defined(__CYGWIN__)
269 if (scratch_chan
< 0)
271 char *exename
= (char *) alloca (strlen (filename
) + 5);
273 strcat (strcpy (exename
, filename
), ".exe");
274 scratch_chan
= openp (getenv ("PATH"), OPF_TRY_CWD_FIRST
,
275 exename
, write_files
?
277 : O_RDONLY
| O_BINARY
,
281 if (scratch_chan
< 0)
282 perror_with_name (filename
);
284 make_cleanup (xfree
, scratch_pathname
);
286 /* gdb_bfd_open (and its variants) prefers canonicalized
287 pathname for better BFD caching. */
288 canonical_pathname
= gdb_realpath (scratch_pathname
);
289 make_cleanup (xfree
, canonical_pathname
);
292 if (write_files
&& !load_via_target
)
293 exec_bfd
= gdb_bfd_fopen (canonical_pathname
, gnutarget
,
294 FOPEN_RUB
, scratch_chan
);
296 exec_bfd
= gdb_bfd_open (canonical_pathname
, gnutarget
, scratch_chan
);
300 error (_("\"%s\": could not open as an executable file: %s."),
301 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
304 /* gdb_realpath_keepfile resolves symlinks on the local
305 filesystem and so cannot be used for "target:" files. */
306 gdb_assert (exec_filename
== NULL
);
308 exec_filename
= xstrdup (bfd_get_filename (exec_bfd
));
310 exec_filename
= gdb_realpath_keepfile (scratch_pathname
);
312 if (!bfd_check_format_matches (exec_bfd
, bfd_object
, &matching
))
314 /* Make sure to close exec_bfd, or else "run" might try to use
317 error (_("\"%s\": not in executable format: %s"),
319 gdb_bfd_errmsg (bfd_get_error (), matching
));
322 if (build_section_table (exec_bfd
, §ions
, §ions_end
))
324 /* Make sure to close exec_bfd, or else "run" might try to use
327 error (_("\"%s\": can't find the file sections: %s"),
328 scratch_pathname
, bfd_errmsg (bfd_get_error ()));
331 exec_bfd_mtime
= bfd_get_mtime (exec_bfd
);
335 set_gdbarch_from_file (exec_bfd
);
337 /* Add the executable's sections to the current address spaces'
338 list of sections. This possibly pushes the exec_ops
340 add_target_sections (&exec_bfd
, sections
, sections_end
);
343 /* Tell display code (if any) about the changed file name. */
344 if (deprecated_exec_file_display_hook
)
345 (*deprecated_exec_file_display_hook
) (filename
);
348 do_cleanups (cleanups
);
350 bfd_cache_close_all ();
351 observer_notify_executable_changed ();
354 /* Process the first arg in ARGS as the new exec file.
356 Note that we have to explicitly ignore additional args, since we can
357 be called from file_command(), which also calls symbol_file_command()
358 which can take multiple args.
360 If ARGS is NULL, we just want to close the exec file. */
363 exec_file_command (char *args
, int from_tty
)
368 if (from_tty
&& target_has_execution
369 && !query (_("A program is being debugged already.\n"
370 "Are you sure you want to change the file? ")))
371 error (_("File not changed."));
375 struct cleanup
*cleanups
;
377 /* Scan through the args and pick up the first non option arg
380 argv
= gdb_buildargv (args
);
381 cleanups
= make_cleanup_freeargv (argv
);
383 for (; (*argv
!= NULL
) && (**argv
== '-'); argv
++)
387 error (_("No executable file name was specified"));
389 filename
= tilde_expand (*argv
);
390 make_cleanup (xfree
, filename
);
391 exec_file_attach (filename
, from_tty
);
393 do_cleanups (cleanups
);
396 exec_file_attach (NULL
, from_tty
);
399 /* Set both the exec file and the symbol file, in one command.
400 What a novelty. Why did GDB go through four major releases before this
401 command was added? */
404 file_command (char *arg
, int from_tty
)
406 /* FIXME, if we lose on reading the symbol file, we should revert
407 the exec file, but that's rough. */
408 exec_file_command (arg
, from_tty
);
409 symbol_file_command (arg
, from_tty
);
410 if (deprecated_file_changed_hook
)
411 deprecated_file_changed_hook (arg
);
415 /* Locate all mappable sections of a BFD file.
416 table_pp_char is a char * to get it through bfd_map_over_sections;
417 we cast it back to its proper type. */
420 add_to_section_table (bfd
*abfd
, struct bfd_section
*asect
,
423 struct target_section
**table_pp
= (struct target_section
**) table_pp_char
;
426 gdb_assert (abfd
== asect
->owner
);
428 /* Check the section flags, but do not discard zero-length sections, since
429 some symbols may still be attached to this section. For instance, we
430 encountered on sparc-solaris 2.10 a shared library with an empty .bss
431 section to which a symbol named "_end" was attached. The address
432 of this symbol still needs to be relocated. */
433 aflag
= bfd_get_section_flags (abfd
, asect
);
434 if (!(aflag
& SEC_ALLOC
))
437 (*table_pp
)->owner
= NULL
;
438 (*table_pp
)->the_bfd_section
= asect
;
439 (*table_pp
)->addr
= bfd_section_vma (abfd
, asect
);
440 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (abfd
, asect
);
447 clear_section_table (struct target_section_table
*table
)
449 xfree (table
->sections
);
450 table
->sections
= table
->sections_end
= NULL
;
453 /* Resize section table TABLE by ADJUSTMENT.
454 ADJUSTMENT may be negative, in which case the caller must have already
455 removed the sections being deleted.
456 Returns the old size. */
459 resize_section_table (struct target_section_table
*table
, int adjustment
)
464 old_count
= table
->sections_end
- table
->sections
;
466 new_count
= adjustment
+ old_count
;
470 table
->sections
= XRESIZEVEC (struct target_section
, table
->sections
,
472 table
->sections_end
= table
->sections
+ new_count
;
475 clear_section_table (table
);
480 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
481 Returns 0 if OK, 1 on error. */
484 build_section_table (struct bfd
*some_bfd
, struct target_section
**start
,
485 struct target_section
**end
)
489 count
= bfd_count_sections (some_bfd
);
492 *start
= XNEWVEC (struct target_section
, count
);
494 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *) end
);
495 if (*end
> *start
+ count
)
496 internal_error (__FILE__
, __LINE__
,
497 _("failed internal consistency check"));
498 /* We could realloc the table, but it probably loses for most files. */
502 /* Add the sections array defined by [SECTIONS..SECTIONS_END[ to the
503 current set of target sections. */
506 add_target_sections (void *owner
,
507 struct target_section
*sections
,
508 struct target_section
*sections_end
)
511 struct target_section_table
*table
= current_target_sections
;
513 count
= sections_end
- sections
;
517 int space
= resize_section_table (table
, count
);
520 for (i
= 0; i
< count
; ++i
)
522 table
->sections
[space
+ i
] = sections
[i
];
523 table
->sections
[space
+ i
].owner
= owner
;
526 /* If these are the first file sections we can provide memory
527 from, push the file_stratum target. */
528 if (!target_is_pushed (&exec_ops
))
529 push_target (&exec_ops
);
533 /* Add the sections of OBJFILE to the current set of target sections. */
536 add_target_sections_of_objfile (struct objfile
*objfile
)
538 struct target_section_table
*table
= current_target_sections
;
539 struct obj_section
*osect
;
542 struct target_section
*ts
;
547 /* Compute the number of sections to add. */
548 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
550 if (bfd_get_section_size (osect
->the_bfd_section
) == 0)
558 space
= resize_section_table (table
, count
);
560 ts
= table
->sections
+ space
;
562 ALL_OBJFILE_OSECTIONS (objfile
, osect
)
564 if (bfd_get_section_size (osect
->the_bfd_section
) == 0)
567 gdb_assert (ts
< table
->sections
+ space
+ count
);
569 ts
->addr
= obj_section_addr (osect
);
570 ts
->endaddr
= obj_section_endaddr (osect
);
571 ts
->the_bfd_section
= osect
->the_bfd_section
;
572 ts
->owner
= (void *) objfile
;
578 /* Remove all target sections owned by OWNER.
579 OWNER must be the same value passed to add_target_sections. */
582 remove_target_sections (void *owner
)
584 struct target_section
*src
, *dest
;
585 struct target_section_table
*table
= current_target_sections
;
587 gdb_assert (owner
!= NULL
);
589 dest
= table
->sections
;
590 for (src
= table
->sections
; src
< table
->sections_end
; src
++)
591 if (src
->owner
!= owner
)
593 /* Keep this section. */
599 /* If we've dropped any sections, resize the section table. */
604 old_count
= resize_section_table (table
, dest
- src
);
606 /* If we don't have any more sections to read memory from,
607 remove the file_stratum target from the stack. */
608 if (old_count
+ (dest
- src
) == 0)
610 struct program_space
*pspace
;
613 if (pspace
->target_sections
.sections
614 != pspace
->target_sections
.sections_end
)
617 unpush_target (&exec_ops
);
624 enum target_xfer_status
625 exec_read_partial_read_only (gdb_byte
*readbuf
, ULONGEST offset
,
626 ULONGEST len
, ULONGEST
*xfered_len
)
628 /* It's unduly pedantic to refuse to look at the executable for
629 read-only pieces; so do the equivalent of readonly regions aka
631 if (exec_bfd
!= NULL
)
637 for (s
= exec_bfd
->sections
; s
; s
= s
->next
)
639 if ((s
->flags
& SEC_LOAD
) == 0
640 || (s
->flags
& SEC_READONLY
) == 0)
644 size
= bfd_get_section_size (s
);
645 if (vma
<= offset
&& offset
< (vma
+ size
))
649 amt
= (vma
+ size
) - offset
;
653 amt
= bfd_get_section_contents (exec_bfd
, s
,
654 readbuf
, offset
- vma
, amt
);
657 return TARGET_XFER_EOF
;
661 return TARGET_XFER_OK
;
667 /* Indicate failure to find the requested memory block. */
668 return TARGET_XFER_E_IO
;
671 /* Appends all read-only memory ranges found in the target section
672 table defined by SECTIONS and SECTIONS_END, starting at (and
673 intersected with) MEMADDR for LEN bytes. Returns the augmented
676 static VEC(mem_range_s
) *
677 section_table_available_memory (VEC(mem_range_s
) *memory
,
678 CORE_ADDR memaddr
, ULONGEST len
,
679 struct target_section
*sections
,
680 struct target_section
*sections_end
)
682 struct target_section
*p
;
684 for (p
= sections
; p
< sections_end
; p
++)
686 if ((bfd_get_section_flags (p
->the_bfd_section
->owner
,
688 & SEC_READONLY
) == 0)
691 /* Copy the meta-data, adjusted. */
692 if (mem_ranges_overlap (p
->addr
, p
->endaddr
- p
->addr
, memaddr
, len
))
694 ULONGEST lo1
, hi1
, lo2
, hi2
;
703 r
= VEC_safe_push (mem_range_s
, memory
, NULL
);
705 r
->start
= max (lo1
, lo2
);
706 r
->length
= min (hi1
, hi2
) - r
->start
;
713 enum target_xfer_status
714 section_table_read_available_memory (gdb_byte
*readbuf
, ULONGEST offset
,
715 ULONGEST len
, ULONGEST
*xfered_len
)
717 VEC(mem_range_s
) *available_memory
= NULL
;
718 struct target_section_table
*table
;
719 struct cleanup
*old_chain
;
723 table
= target_get_section_table (&exec_ops
);
724 available_memory
= section_table_available_memory (available_memory
,
727 table
->sections_end
);
729 old_chain
= make_cleanup (VEC_cleanup(mem_range_s
),
732 normalize_mem_ranges (available_memory
);
735 VEC_iterate (mem_range_s
, available_memory
, i
, r
);
738 if (mem_ranges_overlap (r
->start
, r
->length
, offset
, len
))
741 enum target_xfer_status status
;
743 /* Get the intersection window. */
744 end
= min (offset
+ len
, r
->start
+ r
->length
);
746 gdb_assert (end
- offset
<= len
);
748 if (offset
>= r
->start
)
749 status
= exec_read_partial_read_only (readbuf
, offset
,
754 *xfered_len
= r
->start
- offset
;
755 status
= TARGET_XFER_UNAVAILABLE
;
757 do_cleanups (old_chain
);
761 do_cleanups (old_chain
);
764 return TARGET_XFER_UNAVAILABLE
;
767 enum target_xfer_status
768 section_table_xfer_memory_partial (gdb_byte
*readbuf
, const gdb_byte
*writebuf
,
769 ULONGEST offset
, ULONGEST len
,
770 ULONGEST
*xfered_len
,
771 struct target_section
*sections
,
772 struct target_section
*sections_end
,
773 const char *section_name
)
776 struct target_section
*p
;
777 ULONGEST memaddr
= offset
;
778 ULONGEST memend
= memaddr
+ len
;
781 internal_error (__FILE__
, __LINE__
,
782 _("failed internal consistency check"));
784 for (p
= sections
; p
< sections_end
; p
++)
786 struct bfd_section
*asect
= p
->the_bfd_section
;
787 bfd
*abfd
= asect
->owner
;
789 if (section_name
&& strcmp (section_name
, asect
->name
) != 0)
790 continue; /* not the section we need. */
791 if (memaddr
>= p
->addr
)
793 if (memend
<= p
->endaddr
)
795 /* Entire transfer is within this section. */
797 res
= bfd_set_section_contents (abfd
, asect
,
798 writebuf
, memaddr
- p
->addr
,
801 res
= bfd_get_section_contents (abfd
, asect
,
802 readbuf
, memaddr
- p
->addr
,
808 return TARGET_XFER_OK
;
811 return TARGET_XFER_EOF
;
813 else if (memaddr
>= p
->endaddr
)
815 /* This section ends before the transfer starts. */
820 /* This section overlaps the transfer. Just do half. */
821 len
= p
->endaddr
- memaddr
;
823 res
= bfd_set_section_contents (abfd
, asect
,
824 writebuf
, memaddr
- p
->addr
,
827 res
= bfd_get_section_contents (abfd
, asect
,
828 readbuf
, memaddr
- p
->addr
,
833 return TARGET_XFER_OK
;
836 return TARGET_XFER_EOF
;
841 return TARGET_XFER_EOF
; /* We can't help. */
844 static struct target_section_table
*
845 exec_get_section_table (struct target_ops
*ops
)
847 return current_target_sections
;
850 static enum target_xfer_status
851 exec_xfer_partial (struct target_ops
*ops
, enum target_object object
,
852 const char *annex
, gdb_byte
*readbuf
,
853 const gdb_byte
*writebuf
,
854 ULONGEST offset
, ULONGEST len
, ULONGEST
*xfered_len
)
856 struct target_section_table
*table
= target_get_section_table (ops
);
858 if (object
== TARGET_OBJECT_MEMORY
)
859 return section_table_xfer_memory_partial (readbuf
, writebuf
,
860 offset
, len
, xfered_len
,
865 return TARGET_XFER_E_IO
;
870 print_section_info (struct target_section_table
*t
, bfd
*abfd
)
872 struct gdbarch
*gdbarch
= gdbarch_from_bfd (abfd
);
873 struct target_section
*p
;
874 /* FIXME: 16 is not wide enough when gdbarch_addr_bit > 64. */
875 int wid
= gdbarch_addr_bit (gdbarch
) <= 32 ? 8 : 16;
877 printf_filtered ("\t`%s', ", bfd_get_filename (abfd
));
879 printf_filtered (_("file type %s.\n"), bfd_get_target (abfd
));
880 if (abfd
== exec_bfd
)
882 /* gcc-3.4 does not like the initialization in
883 <p == t->sections_end>. */
884 bfd_vma displacement
= 0;
887 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
889 struct bfd_section
*psect
= p
->the_bfd_section
;
890 bfd
*pbfd
= psect
->owner
;
892 if ((bfd_get_section_flags (pbfd
, psect
) & (SEC_ALLOC
| SEC_LOAD
))
893 != (SEC_ALLOC
| SEC_LOAD
))
896 if (bfd_get_section_vma (pbfd
, psect
) <= abfd
->start_address
897 && abfd
->start_address
< (bfd_get_section_vma (pbfd
, psect
)
898 + bfd_get_section_size (psect
)))
900 displacement
= p
->addr
- bfd_get_section_vma (pbfd
, psect
);
904 if (p
== t
->sections_end
)
905 warning (_("Cannot find section for the entry point of %s."),
906 bfd_get_filename (abfd
));
908 entry_point
= gdbarch_addr_bits_remove (gdbarch
,
909 bfd_get_start_address (abfd
)
911 printf_filtered (_("\tEntry point: %s\n"),
912 paddress (gdbarch
, entry_point
));
914 for (p
= t
->sections
; p
< t
->sections_end
; p
++)
916 struct bfd_section
*psect
= p
->the_bfd_section
;
917 bfd
*pbfd
= psect
->owner
;
919 printf_filtered ("\t%s", hex_string_custom (p
->addr
, wid
));
920 printf_filtered (" - %s", hex_string_custom (p
->endaddr
, wid
));
922 /* FIXME: A format of "08l" is not wide enough for file offsets
923 larger than 4GB. OTOH, making it "016l" isn't desirable either
924 since most output will then be much wider than necessary. It
925 may make sense to test the size of the file and choose the
926 format string accordingly. */
927 /* FIXME: i18n: Need to rewrite this sentence. */
929 printf_filtered (" @ %s",
930 hex_string_custom (psect
->filepos
, 8));
931 printf_filtered (" is %s", bfd_section_name (pbfd
, psect
));
933 printf_filtered (" in %s", bfd_get_filename (pbfd
));
934 printf_filtered ("\n");
939 exec_files_info (struct target_ops
*t
)
942 print_section_info (current_target_sections
, exec_bfd
);
944 puts_filtered (_("\t<no file loaded>\n"));
948 set_section_command (char *args
, int from_tty
)
950 struct target_section
*p
;
953 unsigned long secaddr
;
956 struct target_section_table
*table
;
959 error (_("Must specify section name and its virtual address"));
961 /* Parse out section name. */
962 for (secname
= args
; !isspace (*args
); args
++);
963 seclen
= args
- secname
;
965 /* Parse out new virtual address. */
966 secaddr
= parse_and_eval_address (args
);
968 table
= current_target_sections
;
969 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
971 if (!strncmp (secname
, bfd_section_name (p
->bfd
,
972 p
->the_bfd_section
), seclen
)
973 && bfd_section_name (p
->bfd
, p
->the_bfd_section
)[seclen
] == '\0')
975 offset
= secaddr
- p
->addr
;
977 p
->endaddr
+= offset
;
979 exec_files_info (&exec_ops
);
983 if (seclen
>= sizeof (secprint
))
984 seclen
= sizeof (secprint
) - 1;
985 strncpy (secprint
, secname
, seclen
);
986 secprint
[seclen
] = '\0';
987 error (_("Section %s not found"), secprint
);
990 /* If we can find a section in FILENAME with BFD index INDEX, adjust
994 exec_set_section_address (const char *filename
, int index
, CORE_ADDR address
)
996 struct target_section
*p
;
997 struct target_section_table
*table
;
999 table
= current_target_sections
;
1000 for (p
= table
->sections
; p
< table
->sections_end
; p
++)
1002 if (filename_cmp (filename
, p
->the_bfd_section
->owner
->filename
) == 0
1003 && index
== p
->the_bfd_section
->index
)
1005 p
->endaddr
+= address
- p
->addr
;
1011 /* If mourn is being called in all the right places, this could be say
1012 `gdb internal error' (since generic_mourn calls
1013 breakpoint_init_inferior). */
1016 ignore (struct target_ops
*ops
, struct gdbarch
*gdbarch
,
1017 struct bp_target_info
*bp_tgt
)
1023 exec_has_memory (struct target_ops
*ops
)
1025 /* We can provide memory if we have any file/target sections to read
1027 return (current_target_sections
->sections
1028 != current_target_sections
->sections_end
);
1032 exec_make_note_section (struct target_ops
*self
, bfd
*obfd
, int *note_size
)
1034 error (_("Can't create a corefile"));
1037 /* Fill in the exec file target vector. Very few entries need to be
1041 init_exec_ops (void)
1043 exec_ops
.to_shortname
= "exec";
1044 exec_ops
.to_longname
= "Local exec file";
1045 exec_ops
.to_doc
= "Use an executable file as a target.\n\
1046 Specify the filename of the executable file.";
1047 exec_ops
.to_open
= exec_open
;
1048 exec_ops
.to_close
= exec_close_1
;
1049 exec_ops
.to_xfer_partial
= exec_xfer_partial
;
1050 exec_ops
.to_get_section_table
= exec_get_section_table
;
1051 exec_ops
.to_files_info
= exec_files_info
;
1052 exec_ops
.to_insert_breakpoint
= ignore
;
1053 exec_ops
.to_remove_breakpoint
= ignore
;
1054 exec_ops
.to_stratum
= file_stratum
;
1055 exec_ops
.to_has_memory
= exec_has_memory
;
1056 exec_ops
.to_make_corefile_notes
= exec_make_note_section
;
1057 exec_ops
.to_find_memory_regions
= objfile_find_memory_regions
;
1058 exec_ops
.to_magic
= OPS_MAGIC
;
1062 _initialize_exec (void)
1064 struct cmd_list_element
*c
;
1070 c
= add_cmd ("file", class_files
, file_command
, _("\
1071 Use FILE as program to be debugged.\n\
1072 It is read for its symbols, for getting the contents of pure memory,\n\
1073 and it is the program executed when you use the `run' command.\n\
1074 If FILE cannot be found as specified, your execution directory path\n\
1075 ($PATH) is searched for a command of that name.\n\
1076 No arg means to have no executable file and no symbols."), &cmdlist
);
1077 set_cmd_completer (c
, filename_completer
);
1080 c
= add_cmd ("exec-file", class_files
, exec_file_command
, _("\
1081 Use FILE as program for getting contents of pure memory.\n\
1082 If FILE cannot be found as specified, your execution directory path\n\
1083 is searched for a command of that name.\n\
1084 No arg means have no executable file."), &cmdlist
);
1085 set_cmd_completer (c
, filename_completer
);
1087 add_com ("section", class_files
, set_section_command
, _("\
1088 Change the base address of section SECTION of the exec file to ADDR.\n\
1089 This can be used if the exec file does not contain section addresses,\n\
1090 (such as in the a.out format), or when the addresses specified in the\n\
1091 file itself are wrong. Each section must be changed separately. The\n\
1092 ``info files'' command lists all the sections and their addresses."));
1094 add_setshow_boolean_cmd ("write", class_support
, &write_files
, _("\
1095 Set writing into executable and core files."), _("\
1096 Show writing into executable and core files."), NULL
,
1099 &setlist
, &showlist
);
1101 add_target_with_completer (&exec_ops
, filename_completer
);