1 /* Execute AIXcoff files, for GDB.
2 Copyright 1988, 1989, 1991, 1992 Free Software Foundation, Inc.
3 Derived from exec.c. Modified by IBM Corporation.
4 Donated by IBM Corporation and Cygnus Support.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
22 /* xcoff-exec - deal with executing XCOFF files. */
26 #include <sys/types.h>
27 #include <sys/param.h>
42 #include "libbfd.h" /* BFD internals (sigh!) FIXME */
43 #include "xcoffsolib.h"
45 /* Prototypes for local functions */
48 file_command
PARAMS ((char *, int));
51 exec_close
PARAMS ((int));
53 struct section_table
*exec_sections
, *exec_sections_end
;
55 /* Whether to open exec and core files read-only or read-write. */
59 extern int info_verbose
;
61 bfd
*exec_bfd
; /* needed by core.c */
63 extern char *getenv();
64 extern void add_syms_addr_command ();
65 extern void symbol_file_command ();
66 static void exec_files_info();
67 extern struct objfile
*lookup_objfile_bfd ();
71 * the vmap struct is used to describe the virtual address space of
72 * the target we are manipulating. The first entry is always the "exec"
73 * file. Subsequent entries correspond to other objects that are
74 * mapped into the address space of a process created from the "exec" file.
75 * These are either in response to exec()ing the file, in which case all
76 * shared libraries are loaded, or a "load" system call, followed by the
77 * user's issuance of a "load" command.
80 struct vmap
*nxt
; /* ^ to next in chain */
81 bfd
*bfd
; /* BFD for mappable object library */
82 char *name
; /* ^ to object file name */
83 char *member
; /* ^ to member name */
84 CORE_ADDR tstart
; /* virtual addr where member is mapped */
85 CORE_ADDR tend
; /* virtual upper bound of member */
86 CORE_ADDR tadj
; /* heuristically derived adjustment */
87 CORE_ADDR dstart
; /* virtual address of data start */
88 CORE_ADDR dend
; /* vitrual address of data end */
97 static struct vmap
*vmap
; /* current vmap */
100 struct vmap
*vmap
; /* current vmap */
102 extern struct target_ops exec_ops
;
105 /* exec_close - done with exec file, clean up all resources. */
110 register struct vmap
*vp
, *nxt
;
113 for (nxt
= vmap
; vp
= nxt
; )
117 /* if there is an objfile associated with this bfd,
118 free_objfile() will do proper cleanup of objfile *and* bfd. */
120 if (obj
= lookup_objfile_bfd (vp
->bfd
))
125 free_named_symtabs(vp
->name
);
132 bfd_close (exec_bfd
);
135 if (exec_ops
.to_sections
) {
136 free (exec_ops
.to_sections
);
137 exec_ops
.to_sections
= NULL
;
138 exec_ops
.to_sections_end
= NULL
;
143 * exec_file_command - handle the "exec" command, &c.
146 exec_file_command(filename
, from_tty
)
149 target_preopen(from_tty
);
151 /* Remove any previous exec file. */
152 unpush_target(&exec_ops
);
154 /* Now open and digest the file the user requested, if any. */
157 char *scratch_pathname
;
160 filename
= tilde_expand(filename
);
161 make_cleanup (free
, filename
);
163 scratch_chan
= openp(getenv("PATH"), 1, filename
,
164 write_files
? O_RDWR
: O_RDONLY
, 0,
166 if (scratch_chan
< 0)
167 perror_with_name(filename
);
169 exec_bfd
= bfd_fdopenr(scratch_pathname
, NULL
, scratch_chan
);
171 error("Could not open `%s' as an executable file: %s"
172 , scratch_pathname
, bfd_errmsg(bfd_error
));
174 /* make sure we have an object file */
176 if (!bfd_check_format(exec_bfd
, bfd_object
))
177 error("\"%s\": not in executable format: %s.",
178 scratch_pathname
, bfd_errmsg(bfd_error
));
181 /* setup initial vmap */
183 map_vmap (exec_bfd
, 0);
185 error("Can't find the file sections in `%s': %s",
186 exec_bfd
->filename
, bfd_errmsg(bfd_error
));
188 if (build_section_table (exec_bfd
, &exec_ops
.to_sections
,
189 &exec_ops
.to_sections_end
))
190 error ("Can't find the file sections in `%s': %s",
191 exec_bfd
->filename
, bfd_errmsg (bfd_error
));
193 /* make sure core, if present, matches */
196 push_target(&exec_ops
);
198 /* Tell display code(if any) about the changed file name. */
200 if (exec_file_display_hook
)
201 (*exec_file_display_hook
)(filename
);
204 exec_close(0); /* just in case */
206 printf("No exec file now.\n");
210 /* Set both the exec file and the symbol file, in one command. What a
211 * novelty. Why did GDB go through four major releases before this
215 file_command(arg
, from_tty
)
218 exec_file_command(arg
, from_tty
);
219 symbol_file_command(arg
, from_tty
);
222 /* Locate all mappable sections of a BFD file.
223 table_pp_char is a char * to get it through bfd_map_over_sections;
224 we cast it back to its proper type. */
227 add_to_section_table (abfd
, asect
, table_pp_char
)
232 struct section_table
**table_pp
= (struct section_table
**)table_pp_char
;
235 aflag
= bfd_get_section_flags (abfd
, asect
);
236 /* FIXME, we need to handle BSS segment here...it alloc's but doesn't load */
237 if (!(aflag
& SEC_LOAD
))
239 if (0 == bfd_section_size (abfd
, asect
))
241 (*table_pp
)->bfd
= abfd
;
242 (*table_pp
)->sec_ptr
= asect
;
243 (*table_pp
)->addr
= bfd_section_vma (abfd
, asect
);
244 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (abfd
, asect
);
249 build_section_table (some_bfd
, start
, end
)
251 struct section_table
**start
, **end
;
255 count
= bfd_count_sections (some_bfd
);
257 abort(); /* return 1? */
260 *start
= (struct section_table
*) xmalloc (count
* sizeof (**start
));
262 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *)end
);
263 if (*end
> *start
+ count
)
265 /* We could realloc the table, but it probably loses for most files. */
270 * lookup_symtab_bfd - find if we currently have any symbol tables from bfd
273 lookup_objfile_bfd(bfd
*bfd
) {
274 register struct objfile
*s
;
276 for (s
= object_files
; s
; s
= s
->next
)
284 sex_to_vmap(bfd
*bf
, sec_ptr sex
, struct vmap_and_bfd
*vmap_bfd
)
286 register struct vmap
*vp
, **vpp
;
287 register struct symtab
*syms
;
288 bfd
*arch
= vmap_bfd
->pbfd
;
289 vp
= vmap_bfd
->pvmap
;
291 if ((bfd_get_section_flags(bf
, sex
) & SEC_LOAD
) == 0)
294 if (STREQ(bfd_section_name(bf
, sex
), ".text")) {
296 vp
->tend
= vp
->tstart
+ bfd_section_size(bf
, sex
);
298 /* When it comes to this adjustment value, in contrast to our previous
299 belief shared objects should behave the same as the main load segment.
300 This is the offset from the beginning of text section to the first
303 vp
->tadj
= sex
->filepos
- bfd_section_vma(bf
, sex
);
306 else if (STREQ(bfd_section_name(bf
, sex
), ".data")) {
308 vp
->dend
= vp
->dstart
+ bfd_section_size(bf
, sex
);
311 else if (STREQ(bfd_section_name(bf
, sex
), ".bss")) /* FIXMEmgo */
312 printf ("bss section in exec! Don't know what the heck to do!\n");
315 /* Make a vmap for the BFD "bf", which might be a member of the archive
316 BFD "arch". If we have not yet read in symbols for this file, do so. */
318 map_vmap (bfd
*bf
, bfd
*arch
)
320 struct vmap_and_bfd vmap_bfd
;
321 struct vmap
*vp
, **vpp
;
324 vp
= (void*) xmalloc (sizeof (*vp
));
325 bzero (vp
, sizeof (*vp
));
328 vp
->name
= bfd_get_filename(arch
? arch
: bf
);
329 vp
->member
= arch
? bfd_get_filename(bf
) : "";
331 vmap_bfd
.pbfd
= arch
;
333 bfd_map_over_sections (bf
, sex_to_vmap
, &vmap_bfd
);
335 obj
= lookup_objfile_bfd (bf
);
336 if (exec_bfd
&& !obj
) {
337 obj
= allocate_objfile (bf
, 0);
340 /* This is only needed if we want to load shared libraries no matter what.
341 Since we provide the choice of incremental loading of shared objects
342 now, we do not have to load them as default anymore. */
344 syms_from_objfile (obj
, 0, 0, 0);
345 new_symfile_objfile (obj
, 0, 0);
349 /* find the end of the list, and append. */
350 for (vpp
= &vmap
; *vpp
; vpp
= &(*vpp
)->nxt
)
356 /* true, if symbol table and minimal symbol table are relocated. */
358 int symtab_relocated
= 0;
361 /* vmap_symtab - handle symbol translation on vmapping */
363 vmap_symtab(vp
, old_start
, vip
)
364 register struct vmap
*vp
;
368 register struct symtab
*s
;
369 register struct objfile
*objfile
;
370 register struct minimal_symbol
*msymbol
;
373 * for each symbol table generated from the vp->bfd
375 ALL_OBJFILES (objfile
)
377 for (s
= objfile
-> symtabs
; s
!= NULL
; s
= s
-> next
) {
379 /* skip over if this is not relocatable and doesn't have a line table */
380 if (s
->nonreloc
&& !LINETABLE (s
))
383 /* matching the symbol table's BFD and the *vp's BFD is hairy.
384 exec_file creates a seperate BFD for possibly the
385 same file as symbol_file.FIXME ALL THIS MUST BE RECTIFIED. */
387 if (objfile
->obfd
== vp
->bfd
) {
388 /* if they match, we luck out. */
390 } else if (vp
->member
[0]) {
391 /* no match, and member present, not this one. */
394 /* No match, and no member. need to be sure.
395 If we were given a stat structure, see if the open file
396 underlying this BFD matches. */
400 io
= bfd_cache_lookup(objfile
->obfd
);
402 fatal("cannot find BFD's iostream for sym");
404 /* see if we are referring to the same file */
405 if (fstat(fileno(io
), &si
) < 0)
406 fatal("cannot fstat BFD for sym");
408 if ((si
.st_dev
!= vip
->st_dev
409 || si
.st_ino
!= vip
->st_ino
))
412 continue; /* No stat struct: no way to match it */
415 if (vp
->tstart
!= old_start
) {
417 /* Once we find a relocation base address for one of the symtabs
418 in this objfile, it will be the same for all symtabs in this
419 objfile. Clean this algorithm. FIXME. */
421 for (; s
; s
= s
->next
)
422 if (!s
->nonreloc
|| LINETABLE(s
))
423 vmap_symtab_1(s
, vp
, old_start
);
426 Himm
.., recently we nullified trampoline entry names in order
not
427 to confuse them with real symbols
. Appearently
this turned into a
428 problem
, and msymbol vector did
not get relocated properly
. If
429 msymbols have to have non
-null names
, then we should name
430 trampoline entries with empty strings
.
432 ALL_MSYMBOLS (objfile
, msymbol
)
434 for (msymbol
= objfile
->msymbols
;
435 msymbol
->name
|| msymbol
->address
; (msymbol
)++)
437 if (msymbol
->address
< TEXT_SEGMENT_BASE
)
438 msymbol
-> address
+= vp
->tstart
- old_start
;
445 if (vp
->tstart
!= old_start
) {
446 /* breakpoints need to be relocated as well. */
447 fixup_breakpoints (0, TEXT_SEGMENT_BASE
, vp
->tstart
- old_start
);
450 symtab_relocated
= 1;
454 vmap_symtab_1(s
, vp
, old_start
)
455 register struct symtab
*s
;
456 register struct vmap
*vp
;
461 register struct linetable
*l
;
462 struct blockvector
*bv
;
463 register struct block
*b
;
465 register ulong reloc
, dreloc
;
467 if ((reloc
= vp
->tstart
- old_start
) == 0)
470 dreloc
= vp
->dstart
; /* data relocation */
473 * The line table must be relocated. This is only present for
474 * .text sections, so only vp->text type maps need be considered.
479 for (i
= 0; i
< len
; i
++)
480 l
->item
[i
].pc
+= reloc
;
483 /* if this symbol table is not relocatable, only line table should
484 be relocated and the rest ignored. */
489 len
= BLOCKVECTOR_NBLOCKS(bv
);
491 for (i
= 0; i
< len
; i
++) {
492 b
= BLOCKVECTOR_BLOCK(bv
, i
);
494 BLOCK_START(b
) += reloc
;
495 BLOCK_END(b
) += reloc
;
497 blen
= BLOCK_NSYMS(b
);
498 for (j
= 0; j
< blen
; j
++) {
499 register struct symbol
*sym
;
501 sym
= BLOCK_SYM(b
, j
);
502 switch (SYMBOL_NAMESPACE(sym
)) {
503 case STRUCT_NAMESPACE
:
504 case UNDEF_NAMESPACE
:
507 case LABEL_NAMESPACE
:
512 switch (SYMBOL_CLASS(sym
)) {
514 case LOC_CONST_BYTES
:
528 SYMBOL_VALUE_ADDRESS(sym
) += reloc
;
532 SYMBOL_VALUE_ADDRESS(sym
) += dreloc
;
539 fatal("botched symbol class %x"
540 , SYMBOL_CLASS(sym
));
548 * add_vmap - add a new vmap entry based on ldinfo() information
551 register struct ld_info
*ldi
; {
553 register char *mem
, *objname
;
555 /* This ldi structure was allocated using alloca() in
556 xcoff_relocate_symtab(). Now we need to have persistent object
557 and member names, so we should save them. */
559 mem
= ldi
->ldinfo_filename
+ strlen(ldi
->ldinfo_filename
) + 1;
560 mem
= savestring (mem
, strlen (mem
));
561 objname
= savestring (ldi
->ldinfo_filename
, strlen (ldi
->ldinfo_filename
));
563 bfd
= bfd_fdopenr(objname
, NULL
, ldi
->ldinfo_fd
);
565 error("Could not open `%s' as an executable file: %s",
566 objname
, bfd_errmsg(bfd_error
));
569 /* make sure we have an object file */
571 if (bfd_check_format(bfd
, bfd_object
))
574 else if (bfd_check_format(bfd
, bfd_archive
)) {
577 * FIXME??? am I tossing BFDs? bfd?
579 while (last
= bfd_openr_next_archived_file(bfd
, last
))
580 if (STREQ(mem
, last
->filename
))
585 /* FIXME -- should be error */
586 warning("\"%s\": member \"%s\" missing.", bfd
->filename
, mem
);
590 if (!bfd_check_format(last
, bfd_object
)) {
591 bfd_close(last
); /* XXX??? */
595 map_vmap (last
, bfd
);
600 /* FIXME -- should be error */
601 warning("\"%s\": not in executable format: %s."
602 , objname
, bfd_errmsg(bfd_error
));
608 /* As well as symbol tables, exec_sections need relocation. After
609 the inferior process' termination, there will be a relocated symbol
610 table exist with no corresponding inferior process. At that time, we
611 need to use `exec' bfd, rather than the inferior process's memory space
614 `exec_sections' need to be relocated only once, as long as the exec
615 file remains unchanged.
622 if (execbfd
== exec_bfd
)
627 if (!vmap
|| !exec_ops
.to_sections
)
628 error ("vmap_exec: vmap or exec_ops.to_sections == 0\n");
630 for (i
=0; &exec_ops
.to_sections
[i
] < exec_ops
.to_sections_end
; i
++)
632 if (STREQ(".text", exec_ops
.to_sections
[i
].sec_ptr
->name
))
634 exec_ops
.to_sections
[i
].addr
+= vmap
->tstart
;
635 exec_ops
.to_sections
[i
].endaddr
+= vmap
->tstart
;
637 else if (STREQ(".data", exec_ops
.to_sections
[i
].sec_ptr
->name
))
639 exec_ops
.to_sections
[i
].addr
+= vmap
->dstart
;
640 exec_ops
.to_sections
[i
].endaddr
+= vmap
->dstart
;
647 text_adjustment (abfd
)
651 static int adjustment
;
654 if (exec_bfd
== execbfd
)
657 sect
= bfd_get_section_by_name (abfd
, ".text");
659 adjustment
= sect
->filepos
- sect
->vma
;
661 adjustment
= 0x200; /* just a wild assumption */
668 * vmap_ldinfo - update VMAP info with ldinfo() information
671 * ldi - ^ to ldinfo() results.
674 register struct ld_info
*ldi
;
677 register struct vmap
*vp
;
678 register got_one
, retried
;
682 * for each *ldi, see if we have a corresponding *vp
683 * if so, update the mapping, and symbol table.
684 * if not, add an entry and symbol table.
687 char *name
= ldi
->ldinfo_filename
;
688 char *memb
= name
+ strlen(name
) + 1;
692 if (fstat(ldi
->ldinfo_fd
, &ii
) < 0)
693 fatal("cannot fstat(%d) on %s"
697 for (got_one
= 0, vp
= vmap
; vp
; vp
= vp
->nxt
) {
700 /* First try to find a `vp', which is the same as in ldinfo.
701 If not the same, just continue and grep the next `vp'. If same,
702 relocate its tstart, tend, dstart, dend values. If no such `vp'
703 found, get out of this for loop, add this ldi entry as a new vmap
704 (add_vmap) and come back, fins its `vp' and so on... */
706 /* The filenames are not always sufficient to match on. */
708 if ((name
[0] == "/" && !STREQ(name
, vp
->name
))
709 || (memb
[0] && !STREQ(memb
, vp
->member
)))
712 io
= bfd_cache_lookup(vp
->bfd
); /* totally opaque! */
714 fatal("cannot find BFD's iostream for %s", vp
->name
);
716 /* see if we are referring to the same file */
718 if (fstat(fileno(io
), &vi
) < 0)
719 fatal("cannot fstat BFD for %s", vp
->name
);
721 if (ii
.st_dev
!= vi
.st_dev
|| ii
.st_ino
!= vi
.st_ino
)
725 close(ldi
->ldinfo_fd
);
729 /* found a corresponding VMAP. remap! */
732 vp
->tstart
= ldi
->ldinfo_textorg
;
733 vp
->tend
= vp
->tstart
+ ldi
->ldinfo_textsize
;
734 vp
->dstart
= ldi
->ldinfo_dataorg
;
735 vp
->dend
= vp
->dstart
+ ldi
->ldinfo_datasize
;
738 vp
->tstart
+= vp
->tadj
;
739 vp
->tend
+= vp
->tadj
;
742 /* relocate symbol table(s). */
743 vmap_symtab(vp
, ostart
, &vi
);
745 /* there may be more, so we don't break out of the loop. */
748 /* if there was no matching *vp, we must perforce create the sucker(s) */
749 if (!got_one
&& !retried
) {
754 } while (ldi
->ldinfo_next
755 && (ldi
= (void *) (ldi
->ldinfo_next
+ (char *) ldi
)));
760 * vmap_inferior - print VMAP info for inferior
764 if (inferior_pid
== 0)
765 return 0; /* normal processing */
771 /* Read or write the exec file.
773 Args are address within exec file, address within gdb address-space,
774 length, and a flag indicating whether to read or write.
778 0: We cannot handle this address and length.
779 > 0: We have handled N bytes starting at this address.
780 (If N == length, we did it all.) We might be able
781 to handle more bytes beyond this length, but no
783 < 0: We cannot handle this address, but if somebody
784 else handles (-N) bytes, we can start from there.
786 The same routine is used to handle both core and exec files;
787 we just tail-call it with more arguments to select between them. */
790 xfer_memory (memaddr
, myaddr
, len
, write
, target
)
795 struct target_ops
*target
;
798 struct section_table
*p
;
799 CORE_ADDR nextsectaddr
, memend
;
800 boolean (*xfer_fn
) PARAMS ((bfd
*, sec_ptr
, PTR
, file_ptr
, bfd_size_type
));
805 memend
= memaddr
+ len
;
806 xfer_fn
= write
? bfd_set_section_contents
: bfd_get_section_contents
;
807 nextsectaddr
= memend
;
809 for (p
= target
->to_sections
; p
< target
->to_sections_end
; p
++)
811 if (p
->addr
<= memaddr
)
812 if (p
->endaddr
>= memend
)
814 /* Entire transfer is within this section. */
815 res
= xfer_fn (p
->bfd
, p
->sec_ptr
, myaddr
, memaddr
- p
->addr
, len
);
816 return (res
!= false)? len
: 0;
818 else if (p
->endaddr
<= memaddr
)
820 /* This section ends before the transfer starts. */
825 /* This section overlaps the transfer. Just do half. */
826 len
= p
->endaddr
- memaddr
;
827 res
= xfer_fn (p
->bfd
, p
->sec_ptr
, myaddr
, memaddr
- p
->addr
, len
);
828 return (res
!= false)? len
: 0;
830 else if (p
->addr
< nextsectaddr
)
831 nextsectaddr
= p
->addr
;
834 if (nextsectaddr
>= memend
)
835 return 0; /* We can't help */
837 return - (nextsectaddr
- memaddr
); /* Next boundary where we can help */
841 print_section_info (t
, abfd
)
842 struct target_ops
*t
;
845 struct section_table
*p
;
847 printf_filtered ("\t`%s', ", bfd_get_filename(abfd
));
849 printf_filtered ("file type %s.\n", bfd_get_target(abfd
));
851 for (p
= t
->to_sections
; p
< t
->to_sections_end
; p
++) {
852 printf_filtered ("\t%s", local_hex_string_custom (p
->addr
, "08"));
853 printf_filtered (" - %s", local_hex_string_custom (p
->endaddr
, "08"));
855 printf_filtered (" @ %s",
856 local_hex_string_custom (p
->sec_ptr
->filepos
, "08"));
857 printf_filtered (" is %s", bfd_section_name (p
->bfd
, p
->sec_ptr
));
858 if (p
->bfd
!= abfd
) {
859 printf_filtered (" in %s", bfd_get_filename (p
->bfd
));
861 printf_filtered ("\n");
868 struct target_ops
*t
;
870 register struct vmap
*vp
= vmap
;
872 print_section_info (t
, exec_bfd
);
877 printf("\tMapping info for file `%s'.\n", vp
->name
);
879 printf("\t %8.8s %8.8s %8.8s %8.8s %8.8s %s\n",
880 "tstart", "tend", "dstart", "dend", "section", "file(member)");
882 for (; vp
; vp
= vp
->nxt
)
883 printf("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n",
889 *vp
->member
? "(" : "",
891 *vp
->member
? ")" : "");
895 /* Damon's implementation of set_section_command! It is based on the sex member
896 (which is a section pointer from vmap) of vmap.
897 We will not have multiple vmap entries (one for each section), rather transmit
898 text and data base offsets and fix them at the same time. Elimination of sex
899 entry in vmap make this function obsolute, use the one from exec.c.
900 Need further testing!! FIXMEmgo. */
903 set_section_command(args
, from_tty
)
906 register struct vmap
*vp
= vmap
;
909 unsigned long secaddr
;
914 error("Must specify section name and its virtual address");
916 /* Parse out section name */
917 for (secname
= args
; !isspace(*args
); args
++)
919 seclen
= args
- secname
;
921 /* Parse out new virtual address */
922 secaddr
= parse_and_eval_address(args
);
924 for (vp
= vmap
; vp
; vp
= vp
->nxt
) {
926 , bfd_section_name(vp
->bfd
, vp
->sex
), seclen
)
927 && bfd_section_name(vp
->bfd
, vp
->sex
)[seclen
] == '\0') {
928 offset
= secaddr
- vp
->tstart
;
929 vp
->tstart
+= offset
;
936 if (seclen
>= sizeof(secprint
))
937 seclen
= sizeof(secprint
) - 1;
938 strncpy(secprint
, secname
, seclen
);
939 secprint
[seclen
] = '\0';
940 error("Section %s not found", secprint
);
944 set_section_command (args
, from_tty
)
948 struct section_table
*p
;
951 unsigned long secaddr
;
956 error ("Must specify section name and its virtual address");
958 /* Parse out section name */
959 for (secname
= args
; !isspace(*args
); args
++) ;
960 seclen
= args
- secname
;
962 /* Parse out new virtual address */
963 secaddr
= parse_and_eval_address (args
);
965 for (p
= exec_ops
.to_sections
; p
< exec_ops
.to_sections_end
; p
++) {
966 if (!strncmp (secname
, bfd_section_name (exec_bfd
, p
->sec_ptr
), seclen
)
967 && bfd_section_name (exec_bfd
, p
->sec_ptr
)[seclen
] == '\0') {
968 offset
= secaddr
- p
->addr
;
970 p
->endaddr
+= offset
;
972 exec_files_info(&exec_ops
);
976 if (seclen
>= sizeof (secprint
))
977 seclen
= sizeof (secprint
) - 1;
978 strncpy (secprint
, secname
, seclen
);
979 secprint
[seclen
] = '\0';
980 error ("Section %s not found", secprint
);
985 struct target_ops exec_ops
= {
986 "exec", "Local exec file",
987 "Use an executable file as a target.\n\
988 Specify the filename of the executable file.",
989 exec_file_command
, exec_close
, /* open, close */
990 find_default_attach
, 0, 0, 0, /* attach, detach, resume, wait, */
991 0, 0, /* fetch_registers, store_registers, */
992 0, /* prepare_to_store */
993 xfer_memory
, exec_files_info
,
994 0, 0, /* insert_breakpoint, remove_breakpoint, */
995 0, 0, 0, 0, 0, /* terminal stuff */
996 0, 0, /* kill, load */
998 find_default_create_inferior
,
999 0, /* mourn_inferior */
1001 0, /* notice_signals */
1002 file_stratum
, 0, /* next */
1003 0, 1, 0, 0, 0, /* all mem, mem, stack, regs, exec */
1004 0, 0, /* section pointers */
1005 OPS_MAGIC
, /* Always the last thing */
1013 add_com("file", class_files
, file_command
,
1014 "Use FILE as program to be debugged.\n\
1015 It is read for its symbols, for getting the contents of pure memory,\n\
1016 and it is the program executed when you use the `run' command.\n\
1017 If FILE cannot be found as specified, your execution directory path\n\
1018 ($PATH) is searched for a command of that name.\n\
1019 No arg means to have no executable file and no symbols.");
1021 add_com("exec-file", class_files
, exec_file_command
,
1022 "Use FILE as program for getting contents of pure memory.\n\
1023 If FILE cannot be found as specified, your execution directory path\n\
1024 is searched for a command of that name.\n\
1025 No arg means have no executable file.");
1027 add_com("section", class_files
, set_section_command
,
1028 "Change the base address of section SECTION of the exec file to ADDR.\n\
1029 This can be used if the exec file does not contain section addresses,\n\
1030 (such as in the a.out format), or when the addresses specified in the\n\
1031 file itself are wrong. Each section must be changed separately. The\n\
1032 ``info files'' command lists all the sections and their addresses.");
1034 add_target(&exec_ops
);