xref: /openbsd/gnu/usr.bin/binutils/gas/output-file.c (revision 3d8817e4)
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 
155