/* opncls.c -- open and close a BFD.

   Copyright (C) 1990-2023 Free Software Foundation, Inc.

   Written by Cygnus Support.

   This file is part of BFD, the Binary File Descriptor library.

   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.

   This program is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License

   along with this program; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,

   MA 02110-1301, USA.  */

#include "sysdep.h"

#include "bfd.h"

#include "objalloc.h"

#include "libbfd.h"

#include "libiberty.h"

#include "elf-bfd.h"

#ifndef S_IXUSR

#define S_IXUSR 0100  /* Execute by owner.  */

#endif

#ifndef S_IXGRP

#define S_IXGRP 0010  /* Execute by group.  */

#endif

#ifndef S_IXOTH

#define S_IXOTH 0001  /* Execute by others.  */

#endif

/*

SECTION

  Opening and closing BFDs

SUBSECTION

  Functions for opening and closing

*/

/* Counters used to initialize the bfd identifier.  */

static unsigned int bfd_id_counter = 0;

static unsigned int bfd_reserved_id_counter = 0;

/*

EXTERNAL

.{* Set to N to open the next N BFDs using an alternate id space.  *}

.extern unsigned int bfd_use_reserved_id;

.

*/

unsigned int bfd_use_reserved_id = 0;

/* fdopen is a loser -- we should use stdio exclusively.  Unfortunately

   if we do that we can't use fcntl.  */

/*

INTERNAL_FUNCTION

  _bfd_new_bfd

SYNOPSIS

  bfd *_bfd_new_bfd (void);

DESCRIPTION

  Return a new BFD.  All BFD's are allocated through this routine.

*/

bfd *

_bfd_new_bfd (void)

{

  bfd *nbfd;

  nbfd = (bfd *) bfd_zmalloc (sizeof (bfd));

  if (nbfd == NULL)

    return NULL;

  if (bfd_use_reserved_id)

    {

      nbfd->id = --bfd_reserved_id_counter;

      --bfd_use_reserved_id;

    }

  else

    nbfd->id = bfd_id_counter++;

  nbfd->memory = objalloc_create ();

  if (nbfd->memory == NULL)

    {

      bfd_set_error (bfd_error_no_memory);

      free (nbfd);

      return NULL;

    }

  nbfd->arch_info = &bfd_default_arch_struct;

  if (!bfd_hash_table_init_n (& nbfd->section_htab, bfd_section_hash_newfunc,

            sizeof (struct section_hash_entry), 13))

    {

      objalloc_free ((struct objalloc *) nbfd->memory);

      free (nbfd);

      return NULL;

    }

  nbfd->archive_plugin_fd = -1;

  return nbfd;

}

static const struct bfd_iovec opncls_iovec;

/*

INTERNAL_FUNCTION

  _bfd_new_bfd_contained_in

SYNOPSIS

  bfd *_bfd_new_bfd_contained_in (bfd *);

DESCRIPTION

  Allocate a new BFD as a member of archive OBFD.

*/

bfd *

_bfd_new_bfd_contained_in (bfd *obfd)

{

  bfd *nbfd;

  /* Nested archives in bims are unsupported.  */

  if ((obfd->flags & BFD_IN_MEMORY) != 0)

    {

      bfd_set_error (bfd_error_malformed_archive);

      return NULL;

    }

  nbfd = _bfd_new_bfd ();

  if (nbfd == NULL)

    return NULL;

  nbfd->xvec = obfd->xvec;

  nbfd->iovec = obfd->iovec;

  if (obfd->iovec == &opncls_iovec)

    nbfd->iostream = obfd->iostream;

  nbfd->my_archive = obfd;

  nbfd->direction = read_direction;

  nbfd->target_defaulted = obfd->target_defaulted;

  nbfd->lto_output = obfd->lto_output;

  nbfd->no_export = obfd->no_export;

  return nbfd;

}

/* Delete a BFD.  */

static void

_bfd_delete_bfd (bfd *abfd)

{

  /* Give the target _bfd_free_cached_info a chance to free memory.  */

  if (abfd->memory && abfd->xvec)

    bfd_free_cached_info (abfd);

  /* The target _bfd_free_cached_info may not have done anything..  */

  if (abfd->memory)

    {

      bfd_hash_table_free (&abfd->section_htab);

      objalloc_free ((struct objalloc *) abfd->memory);

    }

  else

    free ((char *) bfd_get_filename (abfd));

  free (abfd->arelt_data);

  free (abfd);

}

/*

INTERNAL_FUNCTION

  _bfd_free_cached_info

SYNOPSIS

  bool _bfd_free_cached_info (bfd *);

DESCRIPTION

  Free objalloc memory.

*/

bool

_bfd_free_cached_info (bfd *abfd)

{

  if (abfd->memory)

    {

      const char *filename = bfd_get_filename (abfd);

      if (filename)

  {

    /* We can't afford to lose the bfd filename when freeing

       abfd->memory, because that would kill the cache.c scheme

       of closing and reopening files in order to limit the

       number of open files.  To reopen, you need the filename.

       And indeed _bfd_compute_and_write_armap calls

       _bfd_free_cached_info to free up space used by symbols

       and by check_format_matches.  Which we want to continue

       doing to handle very large archives.  Later the archive

       elements are copied, which might require reopening files.

       We also want to keep using objalloc memory for the

       filename since that allows the name to be updated

       without either leaking memory or implementing some sort

       of reference counted string for copies of the filename.  */

    size_t len = strlen (filename) + 1;

    char *copy = bfd_malloc (len);

    if (copy == NULL)

      return false;

    memcpy (copy, filename, len);

    abfd->filename = copy;

  }

      bfd_hash_table_free (&abfd->section_htab);

      objalloc_free ((struct objalloc *) abfd->memory);

      abfd->sections = NULL;

      abfd->section_last = NULL;

      abfd->outsymbols = NULL;

      abfd->tdata.any = NULL;

      abfd->usrdata = NULL;

      abfd->memory = NULL;

    }

  return true;

}

/*

FUNCTION

  bfd_fopen

SYNOPSIS

  bfd *bfd_fopen (const char *filename, const char *target,

      const char *mode, int fd);

DESCRIPTION

  Open the file @var{filename} with the target @var{target}.

  Return a pointer to the created BFD.  If @var{fd} is not -1,

  then <<fdopen>> is used to open the file; otherwise, <<fopen>>

  is used.  @var{mode} is passed directly to <<fopen>> or

  <<fdopen>>.

  Calls <<bfd_find_target>>, so @var{target} is interpreted as by

  that function.

  The new BFD is marked as cacheable iff @var{fd} is -1.

  If <<NULL>> is returned then an error has occured.   Possible errors

  are <<bfd_error_no_memory>>, <<bfd_error_invalid_target>> or

  <<system_call>> error.

  On error, @var{fd} is always closed.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

bfd *

bfd_fopen (const char *filename, const char *target, const char *mode, int fd)

{

  bfd *nbfd;

  const bfd_target *target_vec;

  nbfd = _bfd_new_bfd ();

  if (nbfd == NULL)

    {

      if (fd != -1)

  close (fd);

      return NULL;

    }

  target_vec = bfd_find_target (target, nbfd);

  if (target_vec == NULL)

    {

      if (fd != -1)

  close (fd);

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

#ifdef HAVE_FDOPEN

  if (fd != -1)

    nbfd->iostream = fdopen (fd, mode);

  else

#endif

    nbfd->iostream = _bfd_real_fopen (filename, mode);

  if (nbfd->iostream == NULL)

    {

      bfd_set_error (bfd_error_system_call);

      if (fd != -1)

  close (fd);

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  /* OK, put everything where it belongs.  */

  /* PR 11983: Do not cache the original filename, but

     rather make a copy - the original might go away.  */

  if (!bfd_set_filename (nbfd, filename))

    {

      fclose (nbfd->iostream);

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  /* Figure out whether the user is opening the file for reading,

     writing, or both, by looking at the MODE argument.  */

  if ((mode[0] == 'r' || mode[0] == 'w' || mode[0] == 'a')

      && mode[1] == '+')

    nbfd->direction = both_direction;

  else if (mode[0] == 'r')

    nbfd->direction = read_direction;

  else

    nbfd->direction = write_direction;

  if (!bfd_cache_init (nbfd))

    {

      fclose (nbfd->iostream);

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  nbfd->opened_once = true;

  /* If we opened the file by name, mark it cacheable; we can close it

     and reopen it later.  However, if a file descriptor was provided,

     then it may have been opened with special flags that make it

     unsafe to close and reopen the file.  */

  if (fd == -1)

    (void) bfd_set_cacheable (nbfd, true);

  return nbfd;

}

/*

FUNCTION

  bfd_openr

SYNOPSIS

  bfd *bfd_openr (const char *filename, const char *target);

DESCRIPTION

  Open the file @var{filename} (using <<fopen>>) with the target

  @var{target}.  Return a pointer to the created BFD.

  Calls <<bfd_find_target>>, so @var{target} is interpreted as by

  that function.

  If <<NULL>> is returned then an error has occured.   Possible errors

  are <<bfd_error_no_memory>>, <<bfd_error_invalid_target>> or

  <<system_call>> error.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

bfd *

bfd_openr (const char *filename, const char *target)

{

  return bfd_fopen (filename, target, FOPEN_RB, -1);

}

/* Don't try to `optimize' this function:

   o - We lock using stack space so that interrupting the locking

       won't cause a storage leak.

   o - We open the file stream last, since we don't want to have to

       close it if anything goes wrong.  Closing the stream means closing

       the file descriptor too, even though we didn't open it.  */

/*

FUNCTION

  bfd_fdopenr

SYNOPSIS

  bfd *bfd_fdopenr (const char *filename, const char *target, int fd);

DESCRIPTION

  <<bfd_fdopenr>> is to <<bfd_fopenr>> much like <<fdopen>> is to

  <<fopen>>.  It opens a BFD on a file already described by the

  @var{fd} supplied.

  When the file is later <<bfd_close>>d, the file descriptor will

  be closed.  If the caller desires that this file descriptor be

  cached by BFD (opened as needed, closed as needed to free

  descriptors for other opens), with the supplied @var{fd} used as

  an initial file descriptor (but subject to closure at any time),

  call bfd_set_cacheable(bfd, 1) on the returned BFD.  The default

  is to assume no caching; the file descriptor will remain open

  until <<bfd_close>>, and will not be affected by BFD operations

  on other files.

  Possible errors are <<bfd_error_no_memory>>,

  <<bfd_error_invalid_target>> and <<bfd_error_system_call>>.

  On error, @var{fd} is closed.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

bfd *

bfd_fdopenr (const char *filename, const char *target, int fd)

{

  const char *mode;

#if defined(HAVE_FCNTL) && defined(F_GETFL)

  int fdflags;

#endif

#if ! defined(HAVE_FCNTL) || ! defined(F_GETFL)

  mode = FOPEN_RUB; /* Assume full access.  */

#else

  fdflags = fcntl (fd, F_GETFL, NULL);

  if (fdflags == -1)

    {

      int save = errno;

      close (fd);

      errno = save;

      bfd_set_error (bfd_error_system_call);

      return NULL;

    }

  /* (O_ACCMODE) parens are to avoid Ultrix header file bug.  */

  switch (fdflags & (O_ACCMODE))

    {

    case O_RDONLY: mode = FOPEN_RB; break;

    case O_WRONLY: mode = FOPEN_RUB; break;

    case O_RDWR:   mode = FOPEN_RUB; break;

    default: abort ();

    }

#endif

  return bfd_fopen (filename, target, mode, fd);

}

/*

FUNCTION

  bfd_fdopenw

SYNOPSIS

  bfd *bfd_fdopenw (const char *filename, const char *target, int fd);

DESCRIPTION

  <<bfd_fdopenw>> is exactly like <<bfd_fdopenr>> with the exception that

  the resulting BFD is suitable for output.

*/

bfd *

bfd_fdopenw (const char *filename, const char *target, int fd)

{

  bfd *out = bfd_fdopenr (filename, target, fd);

  if (out != NULL)

    {

      if (!bfd_write_p (out))

  {

    close (fd);

    _bfd_delete_bfd (out);

    out = NULL;

    bfd_set_error (bfd_error_invalid_operation);

  }

      else

  out->direction = write_direction;

    }

  return out;

}

/*

FUNCTION

  bfd_openstreamr

SYNOPSIS

  bfd *bfd_openstreamr (const char * filename, const char * target,

            void * stream);

DESCRIPTION

  Open a BFD for read access on an existing stdio stream.  When

  the BFD is passed to <<bfd_close>>, the stream will be closed.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

bfd *

bfd_openstreamr (const char *filename, const char *target, void *streamarg)

{

  FILE *stream = (FILE *) streamarg;

  bfd *nbfd;

  const bfd_target *target_vec;

  nbfd = _bfd_new_bfd ();

  if (nbfd == NULL)

    return NULL;

  target_vec = bfd_find_target (target, nbfd);

  if (target_vec == NULL)

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  nbfd->iostream = stream;

  /* PR 11983: Do not cache the original filename, but

     rather make a copy - the original might go away.  */

  if (!bfd_set_filename (nbfd, filename))

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  nbfd->direction = read_direction;

  if (! bfd_cache_init (nbfd))

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  return nbfd;

}

/*

FUNCTION

  bfd_openr_iovec

SYNOPSIS

  bfd *bfd_openr_iovec (const char *filename, const char *target,

            void *(*open_func) (struct bfd *nbfd,

              void *open_closure),

            void *open_closure,

            file_ptr (*pread_func) (struct bfd *nbfd,

                  void *stream,

                  void *buf,

                  file_ptr nbytes,

                  file_ptr offset),

            int (*close_func) (struct bfd *nbfd,

             void *stream),

            int (*stat_func) (struct bfd *abfd,

            void *stream,

            struct stat *sb));

DESCRIPTION

  Create and return a BFD backed by a read-only @var{stream}.

  The @var{stream} is created using @var{open_func}, accessed using

  @var{pread_func} and destroyed using @var{close_func}.

  Calls <<bfd_find_target>>, so @var{target} is interpreted as by

  that function.

  Calls @var{open_func} (which can call <<bfd_zalloc>> and

  <<bfd_get_filename>>) to obtain the read-only stream backing

  the BFD.  @var{open_func} either succeeds returning the

  non-<<NULL>> @var{stream}, or fails returning <<NULL>>

  (setting <<bfd_error>>).

  Calls @var{pread_func} to request @var{nbytes} of data from

  @var{stream} starting at @var{offset} (e.g., via a call to

  <<bfd_read>>).  @var{pread_func} either succeeds returning the

  number of bytes read (which can be less than @var{nbytes} when

  end-of-file), or fails returning -1 (setting <<bfd_error>>).

  Calls @var{close_func} when the BFD is later closed using

  <<bfd_close>>.  @var{close_func} either succeeds returning 0, or

  fails returning -1 (setting <<bfd_error>>).

  Calls @var{stat_func} to fill in a stat structure for bfd_stat,

  bfd_get_size, and bfd_get_mtime calls.  @var{stat_func} returns 0

  on success, or returns -1 on failure (setting <<bfd_error>>).

  If <<bfd_openr_iovec>> returns <<NULL>> then an error has

  occurred.  Possible errors are <<bfd_error_no_memory>>,

  <<bfd_error_invalid_target>> and <<bfd_error_system_call>>.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

struct opncls

{

  void *stream;

  file_ptr (*pread) (struct bfd *abfd, void *stream, void *buf,

         file_ptr nbytes, file_ptr offset);

  int (*close) (struct bfd *abfd, void *stream);

  int (*stat) (struct bfd *abfd, void *stream, struct stat *sb);

  file_ptr where;

};

static file_ptr

opncls_btell (struct bfd *abfd)

{

  struct opncls *vec = (struct opncls *) abfd->iostream;

  return vec->where;

}

static int

opncls_bseek (struct bfd *abfd, file_ptr offset, int whence)

{

  struct opncls *vec = (struct opncls *) abfd->iostream;

  switch (whence)

    {

    case SEEK_SET: vec->where = offset; break;

    case SEEK_CUR: vec->where += offset; break;

    case SEEK_END: return -1;

    }

  return 0;

}

static file_ptr

opncls_bread (struct bfd *abfd, void *buf, file_ptr nbytes)

{

  struct opncls *vec = (struct opncls *) abfd->iostream;

  file_ptr nread = (vec->pread) (abfd, vec->stream, buf, nbytes, vec->where);

  if (nread < 0)

    return nread;

  vec->where += nread;

  return nread;

}

static file_ptr

opncls_bwrite (struct bfd *abfd ATTRIBUTE_UNUSED,

        const void *where ATTRIBUTE_UNUSED,

        file_ptr nbytes ATTRIBUTE_UNUSED)

{

  return -1;

}

static int

opncls_bclose (struct bfd *abfd)

{

  struct opncls *vec = (struct opncls *) abfd->iostream;

  /* Since the VEC's memory is bound to the bfd deleting the bfd will

     free it.  */

  int status = 0;

  if (vec->close != NULL)

    status = (vec->close) (abfd, vec->stream);

  abfd->iostream = NULL;

  return status;

}

static int

opncls_bflush (struct bfd *abfd ATTRIBUTE_UNUSED)

{

  return 0;

}

static int

opncls_bstat (struct bfd *abfd, struct stat *sb)

{

  struct opncls *vec = (struct opncls *) abfd->iostream;

  memset (sb, 0, sizeof (*sb));

  if (vec->stat == NULL)

    return 0;

  return (vec->stat) (abfd, vec->stream, sb);

}

static void *

opncls_bmmap (struct bfd *abfd ATTRIBUTE_UNUSED,

        void *addr ATTRIBUTE_UNUSED,

        bfd_size_type len ATTRIBUTE_UNUSED,

        int prot ATTRIBUTE_UNUSED,

        int flags ATTRIBUTE_UNUSED,

        file_ptr offset ATTRIBUTE_UNUSED,

        void **map_addr ATTRIBUTE_UNUSED,

        bfd_size_type *map_len ATTRIBUTE_UNUSED)

{

  return (void *) -1;

}

static const struct bfd_iovec opncls_iovec =

{

  &opncls_bread, &opncls_bwrite, &opncls_btell, &opncls_bseek,

  &opncls_bclose, &opncls_bflush, &opncls_bstat, &opncls_bmmap

};

bfd *

bfd_openr_iovec (const char *filename, const char *target,

     void *(*open_p) (struct bfd *, void *),

     void *open_closure,

     file_ptr (*pread_p) (struct bfd *, void *, void *,

              file_ptr, file_ptr),

     int (*close_p) (struct bfd *, void *),

     int (*stat_p) (struct bfd *, void *, struct stat *))

{

  bfd *nbfd;

  const bfd_target *target_vec;

  struct opncls *vec;

  void *stream;

  nbfd = _bfd_new_bfd ();

  if (nbfd == NULL)

    return NULL;

  target_vec = bfd_find_target (target, nbfd);

  if (target_vec == NULL)

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  /* PR 11983: Do not cache the original filename, but

     rather make a copy - the original might go away.  */

  if (!bfd_set_filename (nbfd, filename))

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  nbfd->direction = read_direction;

  /* `open_p (...)' would get expanded by an the open(2) syscall macro.  */

  stream = (*open_p) (nbfd, open_closure);

  if (stream == NULL)

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  vec = (struct opncls *) bfd_zalloc (nbfd, sizeof (struct opncls));

  vec->stream = stream;

  vec->pread = pread_p;

  vec->close = close_p;

  vec->stat = stat_p;

  nbfd->iovec = &opncls_iovec;

  nbfd->iostream = vec;

  return nbfd;

}

/* bfd_openw -- open for writing.

   Returns a pointer to a freshly-allocated BFD on success, or NULL.

   See comment by bfd_fdopenr before you try to modify this function.  */

/*

FUNCTION

  bfd_openw

SYNOPSIS

  bfd *bfd_openw (const char *filename, const char *target);

DESCRIPTION

  Create a BFD, associated with file @var{filename}, using the

  file format @var{target}, and return a pointer to it.

  Possible errors are <<bfd_error_system_call>>, <<bfd_error_no_memory>>,

  <<bfd_error_invalid_target>>.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

bfd *

bfd_openw (const char *filename, const char *target)

{

  bfd *nbfd;

  const bfd_target *target_vec;

  /* nbfd has to point to head of malloc'ed block so that bfd_close may

     reclaim it correctly.  */

  nbfd = _bfd_new_bfd ();

  if (nbfd == NULL)

    return NULL;

  target_vec = bfd_find_target (target, nbfd);

  if (target_vec == NULL)

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  /* PR 11983: Do not cache the original filename, but

     rather make a copy - the original might go away.  */

  if (!bfd_set_filename (nbfd, filename))

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  nbfd->direction = write_direction;

  if (bfd_open_file (nbfd) == NULL)

    {

      /* File not writeable, etc.  */

      bfd_set_error (bfd_error_system_call);

      _bfd_delete_bfd (nbfd);

      return NULL;

  }

  return nbfd;

}

/*

FUNCTION

  bfd_elf_bfd_from_remote_memory

SYNOPSIS

  bfd *bfd_elf_bfd_from_remote_memory

    (bfd *templ, bfd_vma ehdr_vma, bfd_size_type size, bfd_vma *loadbasep,

     int (*target_read_memory)

       (bfd_vma vma, bfd_byte *myaddr, bfd_size_type len));

DESCRIPTION

  Create a new BFD as if by bfd_openr.  Rather than opening a

  file, reconstruct an ELF file by reading the segments out of

  remote memory based on the ELF file header at EHDR_VMA and the

  ELF program headers it points to.  If non-zero, SIZE is the

  known extent of the object.  If not null, *LOADBASEP is filled

  in with the difference between the VMAs from which the

  segments were read, and the VMAs the file headers (and hence

  BFD's idea of each section's VMA) put them at.

  The function TARGET_READ_MEMORY is called to copy LEN bytes

  from the remote memory at target address VMA into the local

  buffer at MYADDR; it should return zero on success or an

  errno code on failure.  TEMPL must be a BFD for an ELF

  target with the word size and byte order found in the remote

  memory.

*/

bfd *

bfd_elf_bfd_from_remote_memory

  (bfd *templ,

   bfd_vma ehdr_vma,

   bfd_size_type size,

   bfd_vma *loadbasep,

   int (*target_read_memory) (bfd_vma, bfd_byte *, bfd_size_type))

{

  if (bfd_get_flavour (templ) != bfd_target_elf_flavour)

    {

      bfd_set_error (bfd_error_invalid_operation);

      return NULL;

    }

  return (*get_elf_backend_data (templ)->elf_backend_bfd_from_remote_memory)

    (templ, ehdr_vma, size, loadbasep, target_read_memory);

}

static inline void

_maybe_make_executable (bfd * abfd)

{

  /* If the file was open for writing and is now executable,

     make it so.  */

  if (abfd->direction == write_direction

      && (abfd->flags & (EXEC_P | DYNAMIC)) != 0)

    {

      struct stat buf;

      if (stat (bfd_get_filename (abfd), &buf) == 0

    /* Do not attempt to change non-regular files.  This is

       here especially for configure scripts and kernel builds

       which run tests with "ld [...] -o /dev/null".  */

    && S_ISREG(buf.st_mode))

  {

    unsigned int mask = umask (0);

    umask (mask);

    chmod (bfd_get_filename (abfd),

     (0777

      & (buf.st_mode | ((S_IXUSR | S_IXGRP | S_IXOTH) &~ mask))));

  }

    }

}

/*

FUNCTION

  bfd_close

SYNOPSIS

  bool bfd_close (bfd *abfd);

DESCRIPTION

  Close a BFD. If the BFD was open for writing, then pending

  operations are completed and the file written out and closed.

  If the created file is executable, then <<chmod>> is called

  to mark it as such.

  All memory attached to the BFD is released.

  The file descriptor associated with the BFD is closed (even

  if it was passed in to BFD by <<bfd_fdopenr>>).

  <<TRUE>> is returned if all is ok, otherwise <<FALSE>>.

*/

bool

bfd_close (bfd *abfd)

{

  bool ret = (!bfd_write_p (abfd)

        || BFD_SEND_FMT (abfd, _bfd_write_contents, (abfd)));

  return bfd_close_all_done (abfd) && ret;

}

/*

FUNCTION

  bfd_close_all_done

SYNOPSIS

  bool bfd_close_all_done (bfd *);

DESCRIPTION

  Close a BFD.  Differs from <<bfd_close>> since it does not

  complete any pending operations.  This routine would be used

  if the application had just used BFD for swapping and didn't

  want to use any of the writing code.

  If the created file is executable, then <<chmod>> is called

  to mark it as such.

  All memory attached to the BFD is released.

  <<TRUE>> is returned if all is ok, otherwise <<FALSE>>.

*/

bool

bfd_close_all_done (bfd *abfd)

{

  bool ret = BFD_SEND (abfd, _close_and_cleanup, (abfd));

  if (abfd->iovec != NULL)

    ret &= abfd->iovec->bclose (abfd) == 0;

  if (ret)

    _maybe_make_executable (abfd);

  _bfd_delete_bfd (abfd);

  free (_bfd_error_buf);

  _bfd_error_buf = NULL;

  return ret;

}

/*

FUNCTION

  bfd_create

SYNOPSIS

  bfd *bfd_create (const char *filename, bfd *templ);

DESCRIPTION

  Create a new BFD in the manner of <<bfd_openw>>, but without

  opening a file. The new BFD takes the target from the target

  used by @var{templ}. The format is always set to <<bfd_object>>.

  A copy of the @var{filename} argument is stored in the newly created

  BFD.  It can be accessed via the bfd_get_filename() macro.

*/

bfd *

bfd_create (const char *filename, bfd *templ)

{

  bfd *nbfd;

  nbfd = _bfd_new_bfd ();

  if (nbfd == NULL)

    return NULL;

  /* PR 11983: Do not cache the original filename, but

     rather make a copy - the original might go away.  */

  if (!bfd_set_filename (nbfd, filename))

    {

      _bfd_delete_bfd (nbfd);

      return NULL;

    }

  if (templ)

    nbfd->xvec = templ->xvec;

  nbfd->direction = no_direction;

  bfd_set_format (nbfd, bfd_object);

  return nbfd;

}

/*

FUNCTION

  bfd_make_writable

SYNOPSIS

  bool bfd_make_writable (bfd *abfd);

DESCRIPTION

  Takes a BFD as created by <<bfd_create>> and converts it

  into one like as returned by <<bfd_openw>>.  It does this

  by converting the BFD to BFD_IN_MEMORY.  It's assumed that

  you will call <<bfd_make_readable>> on this bfd later.

  <<TRUE>> is returned if all is ok, otherwise <<FALSE>>.

*/

bool

bfd_make_writable (bfd *abfd)

{

  struct bfd_in_memory *bim;

  if (abfd->direction != no_direction)

    {

      bfd_set_error (bfd_error_invalid_operation);

      return false;

    }