OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [gas/] [output-file.c] - Blame information for rev 179

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
/* 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.
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 3, 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, 51 Franklin Street - Fifth Floor, Boston, MA
20
   02110-1301, USA.  */
21
 
22
#include "as.h"
23
#include "output-file.h"
24
 
25
#ifndef TARGET_MACH
26
#define TARGET_MACH 0
27
#endif
28
 
29
bfd *stdoutput;
30
 
31
void
32
output_file_create (char *name)
33
{
34
  if (name[0] == '-' && name[1] == '\0')
35
    as_fatal (_("can't open a bfd on stdout %s"), name);
36
 
37
  else if (!(stdoutput = bfd_openw (name, TARGET_FORMAT)))
38
    {
39
      bfd_error_type err = bfd_get_error ();
40
 
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));
45
    }
46
 
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;
51
}
52
 
53
void
54
output_file_close (char *filename)
55
{
56
  bfd_boolean res;
57
 
58
  if (stdoutput == NULL)
59
    return;
60
 
61
  /* Close the bfd.  */
62
  res = bfd_close (stdoutput);
63
 
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;
67
 
68
  if (! res)
69
    as_fatal (_("can't close %s: %s"), filename,
70
              bfd_errmsg (bfd_get_error ()));
71
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.