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 ((make_cleanup_func) freeargv, (char *) 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 #ifdef FIXME
 574 #ifdef REG_STACK_SEGMENT
 575 /* MOVE TO BFD... */
 576     /* Pyramids and AM29000s have an extra segment in the virtual address space
 577        for the (control) stack of register-window frames.  The AM29000 folk
 578        call it the "register stack" rather than the "memory stack".  */
 579     else if (memaddr >= reg_stack_start && memaddr < reg_stack_end)
 580       {
 581         i = min (len, reg_stack_end - memaddr);
 582         fileptr = memaddr - reg_stack_start + reg_stack_offset;
 583         wanna_xfer = coredata;
 584       }
 585 #endif                          /* REG_STACK_SEGMENT */
 586 #endif /* FIXME */
 587 \f
 588 void
 589 print_section_info (t, abfd)
 590   struct target_ops *t;
 591   bfd *abfd;
 592 {
 593   struct section_table *p;
 594
 595   printf_filtered ("\t`%s', ", bfd_get_filename(abfd));
 596   wrap_here ("        ");
 597   printf_filtered ("file type %s.\n", bfd_get_target(abfd));
 598   if (abfd == exec_bfd)
 599     {
 600       printf_filtered ("\tEntry point: ");
 601       print_address_numeric (bfd_get_start_address (abfd), 1, gdb_stdout);
 602       printf_filtered ("\n");
 603     }
 604   for (p = t->to_sections; p < t->to_sections_end; p++)
 605     {
 606       /* FIXME-32x64 need a print_address_numeric with field width */
 607       printf_filtered ("\t%s", local_hex_string_custom ((unsigned long) p->addr, "08l"));
 608       printf_filtered (" - %s", local_hex_string_custom ((unsigned long) p->endaddr, "08l"));
 609       if (info_verbose)
 610         printf_filtered (" @ %s",
 611                          local_hex_string_custom ((unsigned long) p->the_bfd_section->filepos, "08l"));
 612       printf_filtered (" is %s", bfd_section_name (p->bfd, p->the_bfd_section));
 613       if (p->bfd != abfd)
 614         {
 615           printf_filtered (" in %s", bfd_get_filename (p->bfd));
 616         }
 617       printf_filtered ("\n");
 618     }
 619 }
 620
 621 static void
 622 exec_files_info (t)
 623      struct target_ops *t;
 624 {
 625   print_section_info (t, exec_bfd);
 626
 627   if (vmap)
 628     {
 629       struct vmap *vp;
 630
 631       printf_unfiltered ("\tMapping info for file `%s'.\n", vmap->name);
 632       printf_unfiltered ("\t  %8.8s   %8.8s   %8.8s   %8.8s %8.8s %s\n",
 633                        "tstart", "tend", "dstart", "dend", "section",
 634                        "file(member)");
 635
 636     for (vp = vmap; vp; vp = vp->nxt)
 637       printf_unfiltered ("\t0x%8.8x 0x%8.8x 0x%8.8x 0x%8.8x %s%s%s%s\n",
 638                          vp->tstart, vp->tend, vp->dstart, vp->dend, vp->name,
 639                          *vp->member ? "(" : "", vp->member,
 640                          *vp->member ? ")" : "");
 641     }
 642 }
 643
 644 static void
 645 set_section_command (args, from_tty)
 646      char *args;
 647      int from_tty;
 648 {
 649   struct section_table *p;
 650   char *secname;
 651   unsigned seclen;
 652   unsigned long secaddr;
 653   char secprint[100];
 654   long offset;
 655
 656   if (args == 0)
 657     error ("Must specify section name and its virtual address");
 658
 659   /* Parse out section name */
 660   for (secname = args; !isspace(*args); args++) ;
 661   seclen = args - secname;
 662
 663   /* Parse out new virtual address */
 664   secaddr = parse_and_eval_address (args);
 665
 666   for (p = exec_ops.to_sections; p < exec_ops.to_sections_end; p++) {
 667     if (!strncmp (secname, bfd_section_name (exec_bfd, p->the_bfd_section), seclen)
 668         && bfd_section_name (exec_bfd, p->the_bfd_section)[seclen] == '\0') {
 669       offset = secaddr - p->addr;
 670       p->addr += offset;
 671       p->endaddr += offset;
 672       if (from_tty)
 673         exec_files_info(&exec_ops);
 674       return;
 675     }
 676   }
 677   if (seclen >= sizeof (secprint))
 678     seclen = sizeof (secprint) - 1;
 679   strncpy (secprint, secname, seclen);
 680   secprint[seclen] = '\0';
 681   error ("Section %s not found", secprint);
 682 }
 683
 684 /* If mourn is being called in all the right places, this could be say
 685    `gdb internal error' (since generic_mourn calls
 686    breakpoint_init_inferior).  */
 687
 688 static int
 689 ignore (addr, contents)
 690      CORE_ADDR addr;
 691      char *contents;
 692 {
 693   return 0;
 694 }
 695
 696 /* Fill in the exec file target vector.  Very few entries need to be
 697    defined.  */
 698
 699 void
 700 init_exec_ops ()
 701 {
 702   exec_ops.to_shortname = "exec";
 703   exec_ops.to_longname = "Local exec file";
 704   exec_ops.to_doc = "Use an executable file as a target.\n\
 705 Specify the filename of the executable file.";
 706   exec_ops.to_open = exec_file_command;
 707   exec_ops.to_close = exec_close;
 708   exec_ops.to_attach = find_default_attach;
 709   exec_ops.to_require_attach = find_default_require_attach;
 710   exec_ops.to_require_detach = find_default_require_detach;
 711   exec_ops.to_xfer_memory = xfer_memory;
 712   exec_ops.to_files_info = exec_files_info;
 713   exec_ops.to_insert_breakpoint = ignore;
 714   exec_ops.to_remove_breakpoint = ignore;
 715   exec_ops.to_create_inferior = find_default_create_inferior;
 716   exec_ops.to_clone_and_follow_inferior = find_default_clone_and_follow_inferior;
 717   exec_ops.to_stratum = file_stratum;
 718   exec_ops.to_has_memory = 1;
 719   exec_ops.to_magic = OPS_MAGIC;
 720 }
 721
 722 void
 723 _initialize_exec ()
 724 {
 725   struct cmd_list_element *c;
 726
 727   init_exec_ops ();
 728
 729   if (!dbx_commands)
 730     {
 731       c = add_cmd ("file", class_files, file_command,
 732                    "Use FILE as program to be debugged.\n\
 733 It is read for its symbols, for getting the contents of pure memory,\n\
 734 and it is the program executed when you use the `run' command.\n\
 735 If FILE cannot be found as specified, your execution directory path\n\
 736 ($PATH) is searched for a command of that name.\n\
 737 No arg means to have no executable file and no symbols.", &cmdlist);
 738       c->completer = filename_completer;
 739     }
 740
 741   c = add_cmd ("exec-file", class_files, exec_file_command,
 742            "Use FILE as program for getting contents of pure memory.\n\
 743 If FILE cannot be found as specified, your execution directory path\n\
 744 is searched for a command of that name.\n\
 745 No arg means have no executable file.", &cmdlist);
 746   c->completer = filename_completer;
 747
 748   add_com ("section", class_files, set_section_command,
 749    "Change the base address of section SECTION of the exec file to ADDR.\n\
 750 This can be used if the exec file does not contain section addresses,\n\
 751 (such as in the a.out format), or when the addresses specified in the\n\
 752 file itself are wrong.  Each section must be changed separately.  The\n\
 753 ``info files'' command lists all the sections and their addresses.");
 754
 755   add_show_from_set
 756     (add_set_cmd ("write", class_support, var_boolean, (char *)&write_files,
 757                   "Set writing into executable and core files.",
 758                   &setlist),
 759      &showlist);
 760
 761   add_target (&exec_ops);
 762 }