gdb/exec.c

   1 /* Work with executable files, for GDB.
   2    Copyright 1988, 1989, 1991, 1992, 1993, 1994, 1997, 1998
   3              Free Software Foundation, Inc.
   4
   5 This file is part of GDB.
   6
   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 2 of the License, or
  10 (at your option) any later version.
  11
  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.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  20
  21 #include "defs.h"
  22 #include "frame.h"
  23 #include "inferior.h"
  24 #include "target.h"
  25 #include "gdbcmd.h"
  26 #include "language.h"
  27 #include "symfile.h"
  28 #include "objfiles.h"
  29
  30 #ifdef USG
  31 #include <sys/types.h>
  32 #endif
  33
  34 #include <fcntl.h>
  35 #include "gdb_string.h"
  36
  37 #include "gdbcore.h"
  38
  39 #include <ctype.h>
  40 #include "gdb_stat.h"
  41 #ifndef O_BINARY
  42 #define O_BINARY 0
  43 #endif
  44
  45 #include "xcoffsolib.h"
  46
  47 struct vmap *map_vmap PARAMS ((bfd *, bfd *));
  48
  49 void (*file_changed_hook) PARAMS ((char *));
  50
  51 /* Prototypes for local functions */
  52
  53 static void add_to_section_table PARAMS ((bfd *, sec_ptr, PTR));
  54
  55 static void exec_close PARAMS ((int));
  56
  57 static void file_command PARAMS ((char *, int));
  58
  59 static void set_section_command PARAMS ((char *, int));
  60
  61 static void exec_files_info PARAMS ((struct target_ops *));
  62
  63 static void bfdsec_to_vmap PARAMS ((bfd *, sec_ptr, PTR));
  64
  65 static int ignore PARAMS ((CORE_ADDR, char *));
  66
  67 static void init_exec_ops PARAMS ((void));
  68
  69 void _initialize_exec PARAMS ((void));
  70
  71 extern int info_verbose;
  72
  73 /* The target vector for executable files.  */
  74
  75 struct target_ops exec_ops;
  76
  77 /* The Binary File Descriptor handle for the executable file.  */
  78
  79 bfd *exec_bfd = NULL;
  80
  81 /* Whether to open exec and core files read-only or read-write.  */
  82
  83 int write_files = 0;
  84
  85 /* Text start and end addresses (KLUDGE) if needed */
  86
  87 #ifndef NEED_TEXT_START_END
  88 #define NEED_TEXT_START_END (0)
  89 #endif
  90 CORE_ADDR text_start = 0;
  91 CORE_ADDR text_end   = 0;
  92
  93 struct vmap *vmap;
  94
  95 /* ARGSUSED */
  96 static void
  97 exec_close (quitting)
  98      int quitting;
  99 {
 100   int need_symtab_cleanup = 0;
 101   struct vmap *vp, *nxt;
 102
 103   for (nxt = vmap; nxt != NULL; )
 104     {
 105       vp = nxt;
 106       nxt = vp->nxt;
 107
 108       /* if there is an objfile associated with this bfd,
 109          free_objfile() will do proper cleanup of objfile *and* bfd. */
 110
 111       if (vp->objfile)
 112         {
 113           free_objfile (vp->objfile);
 114           need_symtab_cleanup = 1;
 115         }
 116       else if (vp->bfd != exec_bfd)
 117         /* FIXME-leak: We should be freeing vp->name too, I think.  */
 118         if (!bfd_close (vp->bfd))
 119           warning ("cannot close \"%s\": %s",
 120                    vp->name, bfd_errmsg (bfd_get_error ()));
 121
 122       /* FIXME: This routine is #if 0'd in symfile.c.  What should we
 123          be doing here?  Should we just free everything in
 124          vp->objfile->symtabs?  Should free_objfile do that?
 125          FIXME-as-well: free_objfile already free'd vp->name, so it isn't
 126          valid here.  */
 127       free_named_symtabs (vp->name);
 128       free (vp);
 129     }
 130
 131   vmap = NULL;
 132
 133   if (exec_bfd)
 134     {
 135       char *name = bfd_get_filename (exec_bfd);
 136
 137       if (!bfd_close (exec_bfd))
 138         warning ("cannot close \"%s\": %s",
 139                  name, bfd_errmsg (bfd_get_error ()));
 140       free (name);
 141       exec_bfd = NULL;
 142     }
 143
 144   if (exec_ops.to_sections)
 145     {
 146       free ((PTR)exec_ops.to_sections);
 147       exec_ops.to_sections = NULL;
 148       exec_ops.to_sections_end = NULL;
 149     }
 150 }
 151
 152 /*  Process the first arg in ARGS as the new exec file.
 153
 154     This function is intended to be behave essentially the same
 155     as exec_file_command, except that the latter will detect when
 156     a target is being debugged, and will ask the user whether it
 157     should be shut down first.  (If the answer is "no", then the
 158     new file is ignored.)
 159
 160     This file is used by exec_file_command, to do the work of opening
 161     and processing the exec file after any prompting has happened.
 162
 163     And, it is used by child_attach, when the attach command was
 164     given a pid but not a exec pathname, and the attach command could
 165     figure out the pathname from the pid.  (In this case, we shouldn't
 166     ask the user whether the current target should be shut down --
 167     we're supplying the exec pathname late for good reason.) */
 168
 169 void
 170 exec_file_attach (args, from_tty)
 171      char *args;
 172      int from_tty;
 173 {
 174   char **argv;
 175   char *filename;
 176
 177   /* Remove any previous exec file.  */
 178   unpush_target (&exec_ops);
 179
 180   /* Now open and digest the file the user requested, if any.  */
 181
 182   if (args)
 183     {
 184       char *scratch_pathname;
 185       int scratch_chan;
 186
 187       /* Scan through the args and pick up the first non option arg
 188          as the filename.  */
 189
 190       argv = buildargv (args);
 191       if (argv == NULL)
 192         nomem (0);
 193
 194       make_cleanup_freeargv (argv);
 195
 196       for (; (*argv != NULL) && (**argv == '-'); argv++) {;}
 197       if (*argv == NULL)
 198         error ("no exec file name was specified");
 199
 200       filename = tilde_expand (*argv);
 201       make_cleanup (free, filename);
 202
 203       scratch_chan = openp (getenv ("PATH"), 1, filename,
 204                             write_files? O_RDWR|O_BINARY: O_RDONLY|O_BINARY, 0,
 205                             &scratch_pathname);
 206 #if defined(__GO32__) || defined(_WIN32)
 207       if (scratch_chan < 0)
 208       {
 209         char *exename = alloca (strlen (filename) + 5);
 210         strcat (strcpy (exename, filename), ".exe");
 211         scratch_chan = openp (getenv ("PATH"), 1, exename, write_files ?
 212                 O_RDWR|O_BINARY : O_RDONLY|O_BINARY, 0, &scratch_pathname);
 213       }
 214 #endif
 215       if (scratch_chan < 0)
 216         perror_with_name (filename);
 217       exec_bfd = bfd_fdopenr (scratch_pathname, gnutarget, scratch_chan);
 218
 219       if (!exec_bfd)
 220         error ("\"%s\": could not open as an executable file: %s",
 221                scratch_pathname, bfd_errmsg (bfd_get_error ()));
 222
 223       /* At this point, scratch_pathname and exec_bfd->name both point to the
 224          same malloc'd string.  However exec_close() will attempt to free it
 225          via the exec_bfd->name pointer, so we need to make another copy and
 226          leave exec_bfd as the new owner of the original copy. */
 227       scratch_pathname = strdup (scratch_pathname);
 228       make_cleanup (free, scratch_pathname);
 229
 230       if (!bfd_check_format (exec_bfd, bfd_object))
 231         {
 232           /* Make sure to close exec_bfd, or else "run" might try to use
 233              it.  */
 234           exec_close (0);
 235           error ("\"%s\": not in executable format: %s",
 236                  scratch_pathname, bfd_errmsg (bfd_get_error ()));
 237         }
 238
 239       /* FIXME - This should only be run for RS6000, but the ifdef is a poor
 240          way to accomplish.  */
 241 #ifdef IBM6000_TARGET
 242       /* Setup initial vmap. */
 243
 244       map_vmap (exec_bfd, 0);
 245       if (vmap == NULL)
 246         {
 247           /* Make sure to close exec_bfd, or else "run" might try to use
 248              it.  */
 249           exec_close (0);
 250           error ("\"%s\": can't find the file sections: %s",
 251                  scratch_pathname, bfd_errmsg (bfd_get_error ()));
 252         }
 253 #endif /* IBM6000_TARGET */
 254
 255       if (build_section_table (exec_bfd, &exec_ops.to_sections,
 256                                 &exec_ops.to_sections_end))
 257         {
 258           /* Make sure to close exec_bfd, or else "run" might try to use
 259              it.  */
 260           exec_close (0);
 261           error ("\"%s\": can't find the file sections: %s",
 262                  scratch_pathname, bfd_errmsg (bfd_get_error ()));
 263         }
 264
 265       /* text_end is sometimes used for where to put call dummies.  A
 266          few ports use these for other purposes too.  */
 267       if (NEED_TEXT_START_END)
 268         {
 269           struct section_table *p;
 270
 271           /* Set text_start to the lowest address of the start of any
 272              readonly code section and set text_end to the highest
 273              address of the end of any readonly code section.  */
 274           /* FIXME: The comment above does not match the code.  The
 275              code checks for sections with are either code *or*
 276              readonly.  */
 277           text_start = ~(CORE_ADDR)0;
 278           text_end = (CORE_ADDR)0;
 279           for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++)
 280             if (bfd_get_section_flags (p->bfd, p->the_bfd_section)
 281                 & (SEC_CODE | SEC_READONLY))
 282               {
 283                 if (text_start > p->addr)
 284                   text_start = p->addr;
 285                 if (text_end < p->endaddr)
 286                   text_end = p->endaddr;
 287               }
 288         }
 289
 290       validate_files ();
 291
 292       set_gdbarch_from_file (exec_bfd);
 293
 294       push_target (&exec_ops);
 295
 296       /* Tell display code (if any) about the changed file name.  */
 297       if (exec_file_display_hook)
 298         (*exec_file_display_hook) (filename);
 299     }
 300   else if (from_tty)
 301     printf_unfiltered ("No executable file now.\n");
 302 }
 303
 304 /*  Process the first arg in ARGS as the new exec file.
 305
 306     Note that we have to explicitly ignore additional args, since we can
 307     be called from file_command(), which also calls symbol_file_command()
 308     which can take multiple args. */
 309
 310 void
 311 exec_file_command (args, from_tty)
 312      char *args;
 313      int from_tty;
 314 {
 315   char **argv;
 316   char *filename;
 317
 318   target_preopen (from_tty);
 319
 320   exec_file_attach (args, from_tty);
 321 }
 322
 323 /* Set both the exec file and the symbol file, in one command.
 324    What a novelty.  Why did GDB go through four major releases before this
 325    command was added?  */
 326
 327 static void
 328 file_command (arg, from_tty)
 329      char *arg;
 330      int from_tty;
 331 {
 332   /* FIXME, if we lose on reading the symbol file, we should revert
 333      the exec file, but that's rough.  */
 334   exec_file_command (arg, from_tty);
 335   symbol_file_command (arg, from_tty);
 336   if (file_changed_hook)
 337     file_changed_hook (arg);
 338 }
 339
 340 \f
 341 /* Locate all mappable sections of a BFD file.
 342    table_pp_char is a char * to get it through bfd_map_over_sections;
 343    we cast it back to its proper type.  */
 344
 345 static void
 346 add_to_section_table (abfd, asect, table_pp_char)
 347      bfd *abfd;
 348      sec_ptr asect;
 349      PTR table_pp_char;
 350 {
 351   struct section_table **table_pp = (struct section_table **)table_pp_char;
 352   flagword aflag;
 353
 354   aflag = bfd_get_section_flags (abfd, asect);
 355   if (!(aflag & SEC_ALLOC))
 356     return;
 357   if (0 == bfd_section_size (abfd, asect))
 358     return;
 359   (*table_pp)->bfd = abfd;
 360   (*table_pp)->the_bfd_section = asect;
 361   (*table_pp)->addr = bfd_section_vma (abfd, asect);
 362   (*table_pp)->endaddr = (*table_pp)->addr + bfd_section_size (abfd, asect);
 363   (*table_pp)++;
 364 }
 365
 366 /* Builds a section table, given args BFD, SECTABLE_PTR, SECEND_PTR.
 367    Returns 0 if OK, 1 on error.  */
 368
 369 int
 370 build_section_table (some_bfd, start, end)
 371      bfd *some_bfd;
 372      struct section_table **start, **end;
 373 {
 374   unsigned count;
 375
 376   count = bfd_count_sections (some_bfd);
 377   if (*start)
 378     free ((PTR)*start);
 379   *start = (struct section_table *) xmalloc (count * sizeof (**start));
 380   *end = *start;
 381   bfd_map_over_sections (some_bfd, add_to_section_table, (char *)end);
 382   if (*end > *start + count)
 383     abort();
 384   /* We could realloc the table, but it probably loses for most files.  */
 385   return 0;
 386 }
 387 \f
 388 static void
 389 bfdsec_to_vmap(abfd, sect, arg3)
 390      bfd *abfd;
 391      sec_ptr sect;
 392      PTR arg3;
 393 {
 394   struct vmap_and_bfd *vmap_bfd = (struct vmap_and_bfd *) arg3;
 395   struct vmap *vp;
 396
 397   vp = vmap_bfd->pvmap;
 398
 399   if ((bfd_get_section_flags (abfd, sect) & SEC_LOAD) == 0)
 400     return;
 401
 402   if (STREQ (bfd_section_name (abfd, sect), ".text"))
 403     {
 404       vp->tstart = bfd_section_vma (abfd, sect);
 405       vp->tend = vp->tstart + bfd_section_size (abfd, sect);
 406       vp->tvma = bfd_section_vma (abfd, sect);
 407       vp->toffs = sect->filepos;
 408     }
 409   else if (STREQ (bfd_section_name (abfd, sect), ".data"))
 410     {
 411       vp->dstart = bfd_section_vma (abfd, sect);
 412       vp->dend = vp->dstart + bfd_section_size (abfd, sect);
 413       vp->dvma = bfd_section_vma (abfd, sect);
 414     }
 415   /* Silently ignore other types of sections. (FIXME?)  */
 416 }
 417
 418 /* Make a vmap for ABFD which might be a member of the archive ARCH.
 419    Return the new vmap.  */
 420
 421 struct vmap *
 422 map_vmap (abfd, arch)
 423      bfd *abfd;
 424      bfd *arch;
 425 {
 426   struct vmap_and_bfd vmap_bfd;
 427   struct vmap *vp, **vpp;
 428
 429   vp = (struct vmap *) xmalloc (sizeof (*vp));
 430   memset ((char *) vp, '\0', sizeof (*vp));
 431   vp->nxt = 0;
 432   vp->bfd = abfd;
 433   vp->name = bfd_get_filename (arch ? arch : abfd);
 434   vp->member = arch ? bfd_get_filename (abfd) : "";
 435
 436   vmap_bfd.pbfd = arch;
 437   vmap_bfd.pvmap = vp;
 438   bfd_map_over_sections (abfd, bfdsec_to_vmap, &vmap_bfd);
 439
 440   /* Find the end of the list and append. */
 441   for (vpp = &vmap; *vpp; vpp = &(*vpp)->nxt)
 442     ;
 443   *vpp = vp;
 444
 445   return vp;
 446 }
 447 \f
 448 /* Read or write the exec file.
 449
 450    Args are address within a BFD file, address within gdb address-space,
 451    length, and a flag indicating whether to read or write.
 452
 453    Result is a length:
 454
 455         0:    We cannot handle this address and length.
 456         > 0:  We have handled N bytes starting at this address.
 457               (If N == length, we did it all.)  We might be able
 458               to handle more bytes beyond this length, but no
 459               promises.
 460         < 0:  We cannot handle this address, but if somebody
 461               else handles (-N) bytes, we can start from there.
 462
 463     The same routine is used to handle both core and exec files;
 464     we just tail-call it with more arguments to select between them.  */
 465
 466 int
 467 xfer_memory (memaddr, myaddr, len, write, target)
 468      CORE_ADDR memaddr;
 469      char *myaddr;
 470      int len;
 471      int write;
 472      struct target_ops *target;
 473 {
 474   boolean res;
 475   struct section_table *p;
 476   CORE_ADDR nextsectaddr, memend;
 477   boolean (*xfer_fn) PARAMS ((bfd *, sec_ptr, PTR, file_ptr, bfd_size_type));
 478   asection *section;
 479
 480   if (len <= 0)
 481     abort();
 482
 483   if (overlay_debugging)
 484     {
 485       section = find_pc_overlay (memaddr);
 486       if (pc_in_unmapped_range (memaddr, section))
 487         memaddr = overlay_mapped_address (memaddr, section);
 488     }
 489
 490   memend = memaddr + len;
 491   xfer_fn = write ? bfd_set_section_contents : bfd_get_section_contents;
 492   nextsectaddr = memend;
 493
 494 #if 0 /* Stu's implementation */
 495 /* If a section has been specified, try to use it.  Note that we cannot use the
 496    specified section directly.  This is because it usually comes from the
 497    symbol file, which may be different from the exec or core file.  Instead, we
 498    have to lookup the specified section by name in the bfd associated with
 499    to_sections.  */
 500
 501   if (target_memory_bfd_section)
 502     {
 503       asection *s;
 504       bfd *abfd;
 505       asection *target_section;
 506       bfd *target_bfd;
 507
 508       s = target_memory_bfd_section;
 509       abfd = s->owner;
 510
 511       target_bfd = target->to_sections->bfd;
 512       target_section = bfd_get_section_by_name (target_bfd, bfd_section_name (abfd, s));
 513
 514       if (target_section)
 515         {
 516           bfd_vma sec_addr;
 517           bfd_size_type sec_size;
 518
 519           sec_addr = bfd_section_vma (target_bfd, target_section);
 520           sec_size = target_section->_raw_size;
 521
 522           /* Make sure the requested memory starts inside the section.  */
 523
 524           if (memaddr >= sec_addr
 525               && memaddr < sec_addr + sec_size)
 526             {
 527               /* Cut back length in case request overflows the end of the section. */
 528               len = min (len, sec_addr + sec_size - memaddr);
 529
 530               res = xfer_fn (target_bfd, target_section, myaddr, memaddr - sec_addr, len);
 531
 532               return res ? len : 0;
 533             }
 534         }
 535     }
 536 #endif /* 0, Stu's implementation */
 537   for (p = target->to_sections; p < target->to_sections_end; p++)
 538     {
 539       if (overlay_debugging && section && p->the_bfd_section &&
 540           strcmp (section->name, p->the_bfd_section->name) != 0)
 541         continue;       /* not the section we need */
 542       if (memaddr >= p->addr)
 543         if (memend <= p->endaddr)
 544           {
 545             /* Entire transfer is within this section.  */
 546             res = xfer_fn (p->bfd, p->the_bfd_section, myaddr,
 547                            memaddr - p->addr, len);
 548             return (res != 0) ? len : 0;
 549           }
 550         else if (memaddr >= p->endaddr)
 551           {
 552             /* This section ends before the transfer starts.  */
 553             continue;
 554           }
 555         else
 556           {
 557             /* This section overlaps the transfer.  Just do half.  */
 558             len = p->endaddr - memaddr;
 559             res = xfer_fn (p->bfd, p->the_bfd_section, myaddr,
 560                            memaddr - p->addr, len);
 561             return (res != 0) ? len : 0;
 562           }
 563       else
 564         nextsectaddr = min (nextsectaddr, p->addr);
 565     }
 566
 567   if (nextsectaddr >= memend)
 568     return 0;                           /* We can't help */
 569   else
 570     return - (nextsectaddr - memaddr);  /* Next boundary where we can help */
 571 }
 572
 573 \f
 574 void
 575 print_section_info (t, abfd)
 576   struct target_ops *t;
 577   bfd *abfd;
 578 {
 579   struct section_table *p;
 580
 581   printf_filtered ("\t`%s', ", bfd_get_filename(abfd));
 582   wrap_here ("        ");
 583   printf_filtered ("file type %s.\n", bfd_get_target(abfd));
 584   if (abfd == exec_bfd)
 585     {
 586       printf_filtered ("\tEntry point: ");
 587       print_address_numeric (bfd_get_start_address (abfd), 1, gdb_stdout);
 588       printf_filtered ("\n");
 589     }
 590   for (p = t->to_sections; p < t->to_sections_end; p++)
 591     {
 592       /* FIXME-32x64 need a print_address_numeric with field width */
 593       printf_filtered ("\t%s", local_hex_string_custom ((unsigned long) p->addr, "08l"));
 594       printf_filtered (" - %s", local_hex_string_custom ((unsigned long) p->endaddr, "08l"));
 595       if (info_verbose)
 596         printf_filtered (" @ %s",
 597                          local_hex_string_custom ((unsigned long) p->the_bfd_section->filepos, "08l"));
 598       printf_filtered (" is %s", bfd_section_name (p->bfd, p->the_bfd_section));
 599       if (p->bfd != abfd)
 600         {
 601           printf_filtered (" in %s", bfd_get_filename (p->bfd));
 602         }
 603       printf_filtered ("\n");
 604     }
 605 }
 606
 607 static void
 608 exec_files_info (t)
 609      struct target_ops *t;
 610 {
 611   print_section_info (t, exec_bfd);
 612
 613   if (vmap)
 614     {
 615       struct vmap *vp;
 616
 617       printf_unfiltered ("\tMapping info for file `%s'.\n", vmap->name);
 618       printf_unfiltered ("\t  %8.8s   %8.8s   %8.8s   %8.8s %8.8s %s\n",
 619                        "tstart", "tend", "dstart", "dend", "section",
 620                        "file(member)");
 621
 622     for (vp = vmap; vp; vp = vp->nxt)
 623       printf_unfiltered ("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n",
 624                          vp->tstart, vp->tend, vp->dstart, vp->dend, vp->name,
 625                          *vp->member ? "(" : "", vp->member,
 626                          *vp->member ? ")" : "");
 627     }
 628 }
 629
 630 /* msnyder 5/21/99:
 631    exec_set_section_offsets sets the offsets of all the sections
 632    in the exec objfile.  */
 633
 634 void
 635 exec_set_section_offsets (text_off, data_off, bss_off)
 636      bfd_signed_vma text_off;
 637      bfd_signed_vma data_off;
 638      bfd_signed_vma bss_off;
 639 {
 640   struct section_table *sect;
 641
 642   for (sect = exec_ops.to_sections;
 643        sect < exec_ops.to_sections_end;
 644        sect++)
 645     {
 646       flagword flags;
 647
 648       flags = bfd_get_section_flags (exec_bfd, sect->the_bfd_section);
 649
 650       if (flags & SEC_CODE)
 651         {
 652           sect->addr    += text_off;
 653           sect->endaddr += text_off;
 654         }
 655       else if (flags & (SEC_DATA | SEC_LOAD))
 656         {
 657           sect->addr    += data_off;
 658           sect->endaddr += data_off;
 659         }
 660       else if (flags & SEC_ALLOC)
 661         {
 662           sect->addr    += bss_off;
 663           sect->endaddr += bss_off;
 664         }
 665     }
 666 }
 667
 668 static void
 669 set_section_command (args, from_tty)
 670      char *args;
 671      int from_tty;
 672 {
 673   struct section_table *p;
 674   char *secname;
 675   unsigned seclen;
 676   unsigned long secaddr;
 677   char secprint[100];
 678   long offset;
 679
 680   if (args == 0)
 681     error ("Must specify section name and its virtual address");
 682
 683   /* Parse out section name */
 684   for (secname = args; !isspace(*args); args++) ;
 685   seclen = args - secname;
 686
 687   /* Parse out new virtual address */
 688   secaddr = parse_and_eval_address (args);
 689
 690   for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++) {
 691     if (!strncmp (secname, bfd_section_name (exec_bfd, p->the_bfd_section), seclen)
 692         && bfd_section_name (exec_bfd, p->the_bfd_section)[seclen] == '\0') {
 693       offset = secaddr - p->addr;
 694       p->addr += offset;
 695       p->endaddr += offset;
 696       if (from_tty)
 697         exec_files_info(&exec_ops);
 698       return;
 699     }
 700   }
 701   if (seclen >= sizeof (secprint))
 702     seclen = sizeof (secprint) - 1;
 703   strncpy (secprint, secname, seclen);
 704   secprint[seclen] = '\0';
 705   error ("Section %s not found", secprint);
 706 }
 707
 708 /* If mourn is being called in all the right places, this could be say
 709    `gdb internal error' (since generic_mourn calls
 710    breakpoint_init_inferior).  */
 711
 712 static int
 713 ignore (addr, contents)
 714      CORE_ADDR addr;
 715      char *contents;
 716 {
 717   return 0;
 718 }
 719
 720 /* Fill in the exec file target vector.  Very few entries need to be
 721    defined.  */
 722
 723 void
 724 init_exec_ops ()
 725 {
 726   exec_ops.to_shortname = "exec";
 727   exec_ops.to_longname = "Local exec file";
 728   exec_ops.to_doc = "Use an executable file as a target.\n\
 729 Specify the filename of the executable file.";
 730   exec_ops.to_open = exec_file_command;
 731   exec_ops.to_close = exec_close;
 732   exec_ops.to_attach = find_default_attach;
 733   exec_ops.to_require_attach = find_default_require_attach;
 734   exec_ops.to_require_detach = find_default_require_detach;
 735   exec_ops.to_xfer_memory = xfer_memory;
 736   exec_ops.to_files_info = exec_files_info;
 737   exec_ops.to_insert_breakpoint = ignore;
 738   exec_ops.to_remove_breakpoint = ignore;
 739   exec_ops.to_create_inferior = find_default_create_inferior;
 740   exec_ops.to_clone_and_follow_inferior = find_default_clone_and_follow_inferior;
 741   exec_ops.to_stratum = file_stratum;
 742   exec_ops.to_has_memory = 1;
 743   exec_ops.to_magic = OPS_MAGIC;
 744 }
 745
 746 void
 747 _initialize_exec ()
 748 {
 749   struct cmd_list_element *c;
 750
 751   init_exec_ops ();
 752
 753   if (!dbx_commands)
 754     {
 755       c = add_cmd ("file", class_files, file_command,
 756                    "Use FILE as program to be debugged.\n\
 757 It is read for its symbols, for getting the contents of pure memory,\n\
 758 and it is the program executed when you use the `run' command.\n\
 759 If FILE cannot be found as specified, your execution directory path\n\
 760 ($PATH) is searched for a command of that name.\n\
 761 No arg means to have no executable file and no symbols.", &cmdlist);
 762       c->completer = filename_completer;
 763     }
 764
 765   c = add_cmd ("exec-file", class_files, exec_file_command,
 766            "Use FILE as program for getting contents of pure memory.\n\
 767 If FILE cannot be found as specified, your execution directory path\n\
 768 is searched for a command of that name.\n\
 769 No arg means have no executable file.", &cmdlist);
 770   c->completer = filename_completer;
 771
 772   add_com ("section", class_files, set_section_command,
 773    "Change the base address of section SECTION of the exec file to ADDR.\n\
 774 This can be used if the exec file does not contain section addresses,\n\
 775 (such as in the a.out format), or when the addresses specified in the\n\
 776 file itself are wrong.  Each section must be changed separately.  The\n\
 777 ``info files'' command lists all the sections and their addresses.");
 778
 779   add_show_from_set
 780     (add_set_cmd ("write", class_support, var_boolean, (char *)&write_files,
 781                   "Set writing into executable and core files.",
 782                   &setlist),
 783      &showlist);
 784
 785   add_target (&exec_ops);
 786 }