contrib/binutils-2.15/gas/output-file.c

   1 /* output-file.c -  Deal with the output file
   2    Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1996, 1998, 1999, 2001, 2003
   3    Free Software Foundation, Inc.
   4
   5    This file is part of GAS, the GNU Assembler.
   6
   7    GAS 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, or (at your option)
  10    any later version.
  11
  12    GAS 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 GAS; see the file COPYING.  If not, write to
  19    the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  20    02111-1307, USA.  */
  21
  22 #include <stdio.h>
  23
  24 #include "as.h"
  25
  26 #include "output-file.h"
  27
  28 #ifdef BFD_HEADERS
  29 #define USE_BFD
  30 #endif
  31
  32 #ifdef BFD_ASSEMBLER
  33 #define USE_BFD
  34 #ifndef TARGET_MACH
  35 #define TARGET_MACH 0
  36 #endif
  37 #endif
  38
  39 #ifdef USE_BFD
  40 #include "bfd.h"
  41 bfd *stdoutput;
  42
  43 void
  44 output_file_create (char *name)
  45 {
  46   if (name[0] == '-' && name[1] == '\0')
  47     as_fatal (_("can't open a bfd on stdout %s"), name);
  48
  49   else if (!(stdoutput = bfd_openw (name, TARGET_FORMAT)))
  50     {
  51       as_perror (_("FATAL: can't create %s"), name);
  52       exit (EXIT_FAILURE);
  53     }
  54
  55   bfd_set_format (stdoutput, bfd_object);
  56 #ifdef BFD_ASSEMBLER
  57   bfd_set_arch_mach (stdoutput, TARGET_ARCH, TARGET_MACH);
  58 #endif
  59   if (flag_traditional_format)
  60     stdoutput->flags |= BFD_TRADITIONAL_FORMAT;
  61 }
  62
  63 void
  64 output_file_close (char *filename)
  65 {
  66 #ifdef BFD_ASSEMBLER
  67   /* Close the bfd.  */
  68   if (bfd_close (stdoutput) == 0)
  69     {
  70       bfd_perror (filename);
  71       as_perror (_("FATAL: can't close %s\n"), filename);
  72       exit (EXIT_FAILURE);
  73     }
  74 #else
  75   /* Close the bfd without getting bfd to write out anything by itself.  */
  76   if (bfd_close_all_done (stdoutput) == 0)
  77     {
  78       as_perror (_("FATAL: can't close %s\n"), filename);
  79       exit (EXIT_FAILURE);
  80     }
  81 #endif
  82   stdoutput = NULL;             /* Trust nobody!  */
  83 }
  84
  85 #ifndef BFD_ASSEMBLER
  86 void
  87 output_file_append (char *where ATTRIBUTE_UNUSED,
  88                     long length ATTRIBUTE_UNUSED,
  89                     char *filename ATTRIBUTE_UNUSED)
  90 {
  91   abort ();
  92 }
  93 #endif
  94
  95 #else
  96
  97 static FILE *stdoutput;
  98
  99 void
 100 output_file_create (char *name)
 101 {
 102   if (name[0] == '-' && name[1] == '\0')
 103     {
 104       stdoutput = stdout;
 105       return;
 106     }
 107
 108   stdoutput = fopen (name, FOPEN_WB);
 109   if (stdoutput == NULL)
 110     {
 111 #ifdef BFD_ASSEMBLER
 112       bfd_set_error (bfd_error_system_call);
 113 #endif
 114       as_perror (_("FATAL: can't create %s"), name);
 115       exit (EXIT_FAILURE);
 116     }
 117 }
 118
 119 void
 120 output_file_close (char *filename)
 121 {
 122   if (EOF == fclose (stdoutput))
 123     {
 124 #ifdef BFD_ASSEMBLER
 125       bfd_set_error (bfd_error_system_call);
 126 #endif
 127       as_perror (_("FATAL: can't close %s"), filename);
 128       exit (EXIT_FAILURE);
 129     }
 130
 131   /* Trust nobody!  */
 132   stdoutput = NULL;
 133 }
 134
 135 void
 136 output_file_append (char * where, long length, char * filename)
 137 {
 138   for (; length; length--, where++)
 139     {
 140       (void) putc (*where, stdoutput);
 141
 142       if (ferror (stdoutput))
 143         {
 144 #ifdef BFD_ASSEMBLER
 145           bfd_set_error (bfd_error_system_call);
 146 #endif
 147           as_perror (_("Failed to emit an object byte"), filename);
 148           as_fatal (_("can't continue"));
 149         }
 150     }
 151 }
 152
 153 #endif
 154