1 /* Execute AIXcoff files, for GDB.
2 Copyright 1988, 1989, 1991, 1992, 1994 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>
43 #include "xcoffsolib.h"
45 /* Prototypes for local functions */
48 file_command
PARAMS ((char *, int));
51 exec_close
PARAMS ((int));
54 map_vmap
PARAMS ((bfd
*, bfd
*));
56 struct section_table
*exec_sections
, *exec_sections_end
;
58 /* Whether to open exec and core files read-only or read-write. */
62 extern int info_verbose
;
64 bfd
*exec_bfd
; /* needed by core.c */
66 extern char *getenv();
67 extern void add_syms_addr_command ();
68 extern void symbol_file_command ();
69 static void exec_files_info();
71 struct vmap
*vmap
; /* current vmap */
73 extern struct target_ops exec_ops
;
75 /* exec_close - done with exec file, clean up all resources. */
81 register struct vmap
*vp
, *nxt
;
82 int need_symtab_cleanup
= 0;
84 for (nxt
= vmap
; nxt
; )
89 /* if there is an objfile associated with this bfd,
90 free_objfile() will do proper cleanup of objfile *and* bfd. */
94 free_objfile (vp
->objfile
);
95 need_symtab_cleanup
= 1;
100 /* FIXME: This routine is #if 0'd in symfile.c. What should we
101 be doing here? Should we just free everything in
102 vp->objfile->symtabs? Should free_objfile do that? */
103 free_named_symtabs (vp
->name
);
109 /* exec_bfd was already closed (the exec file has a vmap entry). */
112 if (exec_ops
.to_sections
)
114 free (exec_ops
.to_sections
);
115 exec_ops
.to_sections
= NULL
;
116 exec_ops
.to_sections_end
= NULL
;
119 /* If we are quitting, we don't want to call breakpoint_re_set which may
120 output messages which would just be confusing in this context. */
121 if (!quitting
&& need_symtab_cleanup
)
122 clear_symtab_users ();
125 /* Process the first arg in ARGS as the new exec file.
127 Note that we have to explicitly ignore additional args, since we can
128 be called from file_command(), which also calls symbol_file_command()
129 which can take multiple args. */
132 exec_file_command (filename
, from_tty
)
136 target_preopen (from_tty
);
138 /* Remove any previous exec file. */
139 unpush_target (&exec_ops
);
141 /* Now open and digest the file the user requested, if any. */
145 char *scratch_pathname
;
148 filename
= tilde_expand (filename
);
149 make_cleanup (free
, filename
);
151 scratch_chan
= openp (getenv ("PATH"), 1, filename
,
152 write_files
? O_RDWR
: O_RDONLY
, 0,
154 if (scratch_chan
< 0)
155 perror_with_name (filename
);
157 exec_bfd
= bfd_fdopenr (scratch_pathname
, gnutarget
, scratch_chan
);
159 error ("Could not open `%s' as an executable file: %s",
160 scratch_pathname
, bfd_errmsg(bfd_get_error ()));
162 /* make sure we have an object file */
164 if (!bfd_check_format (exec_bfd
, bfd_object
))
165 error ("\"%s\": not in executable format: %s.", scratch_pathname
,
166 bfd_errmsg (bfd_get_error ()));
168 /* setup initial vmap */
170 map_vmap (exec_bfd
, 0);
172 error ("Can't find the file sections in `%s': %s", exec_bfd
->filename
,
173 bfd_errmsg(bfd_get_error ()));
175 if (build_section_table (exec_bfd
, &exec_ops
.to_sections
,
176 &exec_ops
.to_sections_end
))
177 error ("Can't find the file sections in `%s': %s", exec_bfd
->filename
,
178 bfd_errmsg (bfd_get_error ()));
180 /* make sure core, if present, matches */
183 push_target(&exec_ops
);
185 /* Tell display code (if any) about the changed file name. */
186 if (exec_file_display_hook
)
187 (*exec_file_display_hook
) (filename
);
191 exec_close (0); /* just in case */
193 printf_unfiltered ("No exec file now.\n");
197 /* Set both the exec file and the symbol file, in one command. What a
198 novelty. Why did GDB go through four major releases before this
199 command was added? */
202 file_command (arg
, from_tty
)
206 /* FIXME, if we lose on reading the symbol file, we should revert
207 the exec file, but that's rough. */
208 exec_file_command (arg
, from_tty
);
209 symbol_file_command (arg
, from_tty
);
212 /* Locate all mappable sections of a BFD file.
213 table_pp_char is a char * to get it through bfd_map_over_sections;
214 we cast it back to its proper type. */
217 add_to_section_table (abfd
, asect
, table_pp_char
)
222 struct section_table
**table_pp
= (struct section_table
**)table_pp_char
;
225 aflag
= bfd_get_section_flags (abfd
, asect
);
226 /* FIXME, we need to handle BSS segment here...it alloc's but doesn't load */
227 if (!(aflag
& SEC_LOAD
))
229 if (0 == bfd_section_size (abfd
, asect
))
231 (*table_pp
)->bfd
= abfd
;
232 (*table_pp
)->the_bfd_section
= asect
;
233 (*table_pp
)->addr
= bfd_section_vma (abfd
, asect
);
234 (*table_pp
)->endaddr
= (*table_pp
)->addr
+ bfd_section_size (abfd
, asect
);
239 build_section_table (some_bfd
, start
, end
)
241 struct section_table
**start
, **end
;
245 count
= bfd_count_sections (some_bfd
);
247 fatal ("aborting"); /* return 1? */
250 *start
= (struct section_table
*) xmalloc (count
* sizeof (**start
));
252 bfd_map_over_sections (some_bfd
, add_to_section_table
, (char *) end
);
253 if (*end
> *start
+ count
)
255 /* We could realloc the table, but it probably loses for most files. */
260 bfdsec_to_vmap(bf
, sect
, arg3
)
265 struct vmap_and_bfd
*vmap_bfd
= (struct vmap_and_bfd
*) arg3
;
266 register struct vmap
*vp
;
267 vp
= vmap_bfd
->pvmap
;
269 if ((bfd_get_section_flags (bf
, sect
) & SEC_LOAD
) == 0)
272 if (STREQ(bfd_section_name (bf
, sect
), ".text"))
275 vp
->tend
= vp
->tstart
+ bfd_section_size (bf
, sect
);
277 /* When it comes to this adjustment value, in contrast to our previous
278 belief shared objects should behave the same as the main load segment.
279 This is the offset from the beginning of text section to the first
282 vp
->tadj
= sect
->filepos
- bfd_section_vma (bf
, sect
);
284 else if (STREQ(bfd_section_name (bf
, sect
), ".data"))
287 vp
->dend
= vp
->dstart
+ bfd_section_size (bf
, sect
);
289 else if (STREQ(bfd_section_name(bf
, sect
), ".bss")) /* FIXMEmgo */
290 printf_unfiltered ("bss section in exec! Don't know what the heck to do!\n");
293 /* Make a vmap for the BFD "bf", which might be a member of the archive
294 BFD "arch". Return the new vmap. */
301 struct vmap_and_bfd vmap_bfd
;
302 struct vmap
*vp
, **vpp
;
304 vp
= (PTR
) xmalloc (sizeof (*vp
));
305 memset (vp
, '\0', sizeof (*vp
));
308 vp
->name
= bfd_get_filename (arch
? arch
: bf
);
309 vp
->member
= arch
? bfd_get_filename (bf
) : "";
311 vmap_bfd
.pbfd
= arch
;
313 bfd_map_over_sections (bf
, bfdsec_to_vmap
, &vmap_bfd
);
315 /* find the end of the list, and append. */
316 for (vpp
= &vmap
; *vpp
; vpp
= &(*vpp
)->nxt
)
323 /* Read or write the exec file.
325 Args are address within exec file, address within gdb address-space,
326 length, and a flag indicating whether to read or write.
330 0: We cannot handle this address and length.
331 > 0: We have handled N bytes starting at this address.
332 (If N == length, we did it all.) We might be able
333 to handle more bytes beyond this length, but no
335 < 0: We cannot handle this address, but if somebody
336 else handles (-N) bytes, we can start from there.
338 The same routine is used to handle both core and exec files;
339 we just tail-call it with more arguments to select between them. */
342 xfer_memory (memaddr
, myaddr
, len
, write
, target
)
347 struct target_ops
*target
;
350 struct section_table
*p
;
351 CORE_ADDR nextsectaddr
, memend
;
352 boolean (*xfer_fn
) PARAMS ((bfd
*, sec_ptr
, PTR
, file_ptr
, bfd_size_type
));
357 memend
= memaddr
+ len
;
358 xfer_fn
= write
? bfd_set_section_contents
: bfd_get_section_contents
;
359 nextsectaddr
= memend
;
361 for (p
= target
->to_sections
; p
< target
->to_sections_end
; p
++)
363 if (p
->addr
<= memaddr
)
364 if (p
->endaddr
>= memend
)
366 /* Entire transfer is within this section. */
367 res
= xfer_fn (p
->bfd
, p
->the_bfd_section
, myaddr
, memaddr
- p
->addr
, len
);
368 return (res
!= 0) ? len
: 0;
370 else if (p
->endaddr
<= memaddr
)
372 /* This section ends before the transfer starts. */
377 /* This section overlaps the transfer. Just do half. */
378 len
= p
->endaddr
- memaddr
;
379 res
= xfer_fn (p
->bfd
, p
->the_bfd_section
, myaddr
, memaddr
- p
->addr
, len
);
380 return (res
!= 0) ? len
: 0;
382 else if (p
->addr
< nextsectaddr
)
383 nextsectaddr
= p
->addr
;
386 if (nextsectaddr
>= memend
)
387 return 0; /* We can't help */
389 return - (nextsectaddr
- memaddr
); /* Next boundary where we can help */
393 print_section_info (t
, abfd
)
394 struct target_ops
*t
;
397 struct section_table
*p
;
399 /* FIXME-32x64: Need a version of print_address_numeric with field width. */
400 printf_filtered ("\t`%s', ", bfd_get_filename(abfd
));
402 printf_filtered ("file type %s.\n", bfd_get_target(abfd
));
404 for (p
= t
->to_sections
; p
< t
->to_sections_end
; p
++) {
405 printf_filtered ("\t%s",
406 local_hex_string_custom ((unsigned long) p
->addr
, "08l"));
407 printf_filtered (" - %s",
408 local_hex_string_custom ((unsigned long) p
->endaddr
, "08l"));
410 printf_filtered (" @ %s",
411 local_hex_string_custom ((unsigned long) p
->the_bfd_section
->filepos
, "08l"));
412 printf_filtered (" is %s", bfd_section_name (p
->bfd
, p
->the_bfd_section
));
413 if (p
->bfd
!= abfd
) {
414 printf_filtered (" in %s", bfd_get_filename (p
->bfd
));
416 printf_filtered ("\n");
423 struct target_ops
*t
;
425 register struct vmap
*vp
= vmap
;
427 print_section_info (t
, exec_bfd
);
432 printf_unfiltered ("\tMapping info for file `%s'.\n", vp
->name
);
434 printf_unfiltered ("\t %8.8s %8.8s %8.8s %8.8s %8.8s %s\n",
435 "tstart", "tend", "dstart", "dend", "section", "file(member)");
437 for (; vp
; vp
= vp
->nxt
)
438 printf_unfiltered ("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n",
444 *vp
->member
? "(" : "",
446 *vp
->member
? ")" : "");
450 /* Damon's implementation of set_section_command! It is based on the sex member
451 (which is a section pointer from vmap) of vmap.
452 We will not have multiple vmap entries (one for each section), rather transmit
453 text and data base offsets and fix them at the same time. Elimination of sex
454 entry in vmap make this function obsolute, use the one from exec.c.
455 Need further testing!! FIXMEmgo. */
458 set_section_command(args
, from_tty
)
461 register struct vmap
*vp
= vmap
;
464 unsigned long secaddr
;
469 error("Must specify section name and its virtual address");
471 /* Parse out section name */
472 for (secname
= args
; !isspace(*args
); args
++)
474 seclen
= args
- secname
;
476 /* Parse out new virtual address */
477 secaddr
= parse_and_eval_address(args
);
479 for (vp
= vmap
; vp
; vp
= vp
->nxt
) {
481 , bfd_section_name(vp
->bfd
, vp
->sex
), seclen
)
482 && bfd_section_name(vp
->bfd
, vp
->sex
)[seclen
] == '\0') {
483 offset
= secaddr
- vp
->tstart
;
484 vp
->tstart
+= offset
;
491 if (seclen
>= sizeof(secprint
))
492 seclen
= sizeof(secprint
) - 1;
493 strncpy(secprint
, secname
, seclen
);
494 secprint
[seclen
] = '\0';
495 error("Section %s not found", secprint
);
499 set_section_command (args
, from_tty
)
503 struct section_table
*p
;
506 unsigned long secaddr
;
511 error ("Must specify section name and its virtual address");
513 /* Parse out section name */
514 for (secname
= args
; !isspace(*args
); args
++) ;
515 seclen
= args
- secname
;
517 /* Parse out new virtual address */
518 secaddr
= parse_and_eval_address (args
);
520 for (p
= exec_ops
.to_sections
; p
< exec_ops
.to_sections_end
; p
++)
521 if (!strncmp (secname
, bfd_section_name (exec_bfd
, p
->the_bfd_section
), seclen
)
522 && bfd_section_name (exec_bfd
, p
->the_bfd_section
)[seclen
] == '\0')
524 offset
= secaddr
- p
->addr
;
526 p
->endaddr
+= offset
;
528 exec_files_info (&exec_ops
);
532 if (seclen
>= sizeof (secprint
))
533 seclen
= sizeof (secprint
) - 1;
534 strncpy (secprint
, secname
, seclen
);
535 secprint
[seclen
] = '\0';
536 error ("Section %s not found", secprint
);
541 struct target_ops exec_ops
= {
542 "exec", "Local exec file",
543 "Use an executable file as a target.\n\
544 Specify the filename of the executable file.",
545 exec_file_command
, exec_close
, /* open, close */
546 find_default_attach
, 0, 0, 0, /* attach, detach, resume, wait, */
547 0, 0, /* fetch_registers, store_registers, */
548 0, /* prepare_to_store */
549 xfer_memory
, exec_files_info
,
550 0, 0, /* insert_breakpoint, remove_breakpoint, */
551 0, 0, 0, 0, 0, /* terminal stuff */
552 0, 0, /* kill, load */
554 find_default_create_inferior
,
555 0, /* mourn_inferior */
557 0, /* notice_signals */
558 file_stratum
, 0, /* next */
559 0, 1, 0, 0, 0, /* all mem, mem, stack, regs, exec */
560 0, 0, /* section pointers */
561 OPS_MAGIC
, /* Always the last thing */
568 add_com("file", class_files
, file_command
,
569 "Use FILE as program to be debugged.\n\
570 It is read for its symbols, for getting the contents of pure memory,\n\
571 and it is the program executed when you use the `run' command.\n\
572 If FILE cannot be found as specified, your execution directory path\n\
573 ($PATH) is searched for a command of that name.\n\
574 No arg means to have no executable file and no symbols.");
576 add_com("exec-file", class_files
, exec_file_command
,
577 "Use FILE as program for getting contents of pure memory.\n\
578 If FILE cannot be found as specified, your execution directory path\n\
579 is searched for a command of that name.\n\
580 No arg means have no executable file.");
582 add_com("section", class_files
, set_section_command
,
583 "Change the base address of section SECTION of the exec file to ADDR.\n\
584 This can be used if the exec file does not contain section addresses,\n\
585 (such as in the a.out format), or when the addresses specified in the\n\
586 file itself are wrong. Each section must be changed separately. The\n\
587 ``info files'' command lists all the sections and their addresses.");
589 add_target(&exec_ops
);