Subversion Repositories Kolibri OS

Rev

Rev 5222 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5222 serge 1
/* output-file.c -  Deal with the output file
6324 serge 2
   Copyright (C) 1987-2015 Free Software Foundation, Inc.
5222 serge 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 (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 (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
}