gas/output-file.c

   1 /* output-file.c -  Deal with the output file
   2    Copyright (C) 1987-2019 Free Software Foundation, Inc.
   3
   4    This file is part of GAS, the GNU Assembler.
   5
   6    GAS is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3, or (at your option)
   9    any later version.
  10
  11    GAS is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with GAS; see the file COPYING.  If not, write to
  18    the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
  19    02110-1301, USA.  */
  20
  21 #include "as.h"
  22 #include "output-file.h"
  23
  24 #ifndef TARGET_MACH
  25 #define TARGET_MACH 0
  26 #endif
  27
  28 bfd *stdoutput;
  29
  30 void
  31 output_file_create (const char *name)
  32 {
  33   if (name[0] == '-' && name[1] == '\0')
  34     as_fatal (_("can't open a bfd on stdout %s"), name);
  35
  36   else if (!(stdoutput = bfd_openw (name, TARGET_FORMAT)))
  37     {
  38       bfd_error_type err = bfd_get_error ();
  39
  40       if (err == bfd_error_invalid_target)
  41         as_fatal (_("selected target format '%s' unknown"), TARGET_FORMAT);
  42       else
  43         as_fatal (_("can't create %s: %s"), name, bfd_errmsg (err));
  44     }
  45
  46   bfd_set_format (stdoutput, bfd_object);
  47   bfd_set_arch_mach (stdoutput, TARGET_ARCH, TARGET_MACH);
  48   if (flag_traditional_format)
  49     stdoutput->flags |= BFD_TRADITIONAL_FORMAT;
  50 }
  51
  52 void
  53 output_file_close (const char *filename)
  54 {
  55   bfd_boolean res;
  56
  57   if (stdoutput == NULL)
  58     return;
  59
  60   /* Close the bfd.  */
  61   if (had_errors ())
  62     res = bfd_cache_close_all ();
  63   else
  64     res = bfd_close (stdoutput);
  65
  66   /* Prevent an infinite loop - if the close failed we will call as_fatal
  67      which will call xexit() which may call this function again...  */
  68   stdoutput = NULL;
  69
  70   if (! res)
  71     as_fatal (_("can't close %s: %s"), filename,
  72               bfd_errmsg (bfd_get_error ()));
  73 }