Merge GDB 7.5.1

gdb/exec.c

 /* Work with executable files, for GDB. 
 
    Copyright (C) 1988-2003, 2007-2012 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
@@ skipping 220 matching lines @@
         }
 #endif
       if (scratch_chan < 0)
         perror_with_name (filename);
       exec_bfd = bfd_fopen (scratch_pathname, gnutarget,
                             write_files ? FOPEN_RUB : FOPEN_RB,
                             scratch_chan);
 
       if (!exec_bfd)
         {
-          close (scratch_chan);
           error (_("\"%s\": could not open as an executable file: %s"),
                  scratch_pathname, bfd_errmsg (bfd_get_error ()));
         }
 
       /* At this point, scratch_pathname and exec_bfd->name both point to the
          same malloc'd string.  However exec_close() will attempt to free it
          via the exec_bfd->name pointer, so we need to make another copy and
          leave exec_bfd as the new owner of the original copy.  */
       scratch_pathname = xstrdup (scratch_pathname);
       cleanups = make_cleanup (xfree, scratch_pathname);
@@ skipping 405 matching lines @@
               if (writebuf)
                 res = bfd_set_section_contents (p->bfd, p->the_bfd_section,
                                                 writebuf, memaddr - p->addr,
                                                 len);
               else
                 res = bfd_get_section_contents (p->bfd, p->the_bfd_section,
                                                 readbuf, memaddr - p->addr,
                                                 len);
               return (res != 0) ? len : 0;
             }