PR gas/12390
[binutils.git] / gas / output-file.c
blobe993033f4812ed967572a25c4ec36acac222afda
1 /* output-file.c - Deal with the output file
2 Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1996, 1998, 1999, 2001,
3 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GAS, the GNU Assembler.
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 3, or (at your option)
10 any later version.
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.
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, 51 Franklin Street - Fifth Floor, Boston, MA
20 02110-1301, USA. */
22 #include "as.h"
23 #include "output-file.h"
25 #ifndef TARGET_MACH
26 #define TARGET_MACH 0
27 #endif
29 bfd *stdoutput;
31 void
32 output_file_create (char *name)
34 if (name[0] == '-' && name[1] == '\0')
35 as_fatal (_("can't open a bfd on stdout %s"), name);
37 else if (!(stdoutput = bfd_openw (name, TARGET_FORMAT)))
39 bfd_error_type err = bfd_get_error ();
41 if (err == bfd_error_invalid_target)
42 as_fatal (_("selected target format '%s' unknown"), TARGET_FORMAT);
43 else
44 as_fatal (_("can't create %s: %s"), name, bfd_errmsg (err));
47 bfd_set_format (stdoutput, bfd_object);
48 bfd_set_arch_mach (stdoutput, TARGET_ARCH, TARGET_MACH);
49 if (flag_traditional_format)
50 stdoutput->flags |= BFD_TRADITIONAL_FORMAT;
53 void
54 output_file_close (char *filename)
56 bfd_boolean res;
58 if (stdoutput == NULL)
59 return;
61 /* Close the bfd. */
62 res = bfd_close (stdoutput);
64 /* Prevent an infinite loop - if the close failed we will call as_fatal
65 which will call xexit() which may call this function again... */
66 stdoutput = NULL;
68 if (! res)
69 as_fatal (_("can't close %s: %s"), filename,
70 bfd_errmsg (bfd_get_error ()));