19990502 sourceware importbinu_ss_19990502

1 files changed, 156 insertions, 0 deletions

diff --git a/gas/output-file.c b/gas/output-file.c
new file mode 100644
index 0000000..b05af48
--- /dev/null
+++ b/gas/output-file.c
@@ -0,0 +1,156 @@
+/* output-file.c -  Deal with the output file
+   Copyright (C) 1987, 90, 91, 93, 92, 94, 95, 96, 1998
+   Free Software Foundation, Inc.
+
+   This file is part of GAS, the GNU Assembler.
+
+   GAS is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   GAS is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GAS; see the file COPYING.  If not, write to
+   the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+
+#include <stdio.h>
+
+#include "as.h"
+
+#include "output-file.h"
+
+#ifdef BFD_HEADERS
+#define USE_BFD
+#endif
+
+#ifdef BFD_ASSEMBLER
+#define USE_BFD
+#ifndef TARGET_MACH
+#define TARGET_MACH 0
+#endif
+#endif
+
+#ifdef USE_BFD
+#include "bfd.h"
+bfd *stdoutput;
+
+void
+output_file_create (name)
+     char *name;
+{
+  if (name[0] == '-' && name[1] == '\0')
+    {
+      as_fatal (_("Can't open a bfd on stdout %s "), name);
+    }
+  else if (!(stdoutput = bfd_openw (name, TARGET_FORMAT)))
+    {
+      as_perror (_("FATAL: Can't create %s"), name);
+      exit (EXIT_FAILURE);
+    }
+  bfd_set_format (stdoutput, bfd_object);
+#ifdef BFD_ASSEMBLER
+  bfd_set_arch_mach (stdoutput, TARGET_ARCH, TARGET_MACH);
+#endif
+  if (flag_traditional_format)
+    stdoutput->flags |= BFD_TRADITIONAL_FORMAT;
+}
+
+void
+output_file_close (filename)
+     char *filename;
+{
+#ifdef BFD_ASSEMBLER
+  /* Close the bfd.  */
+  if (bfd_close (stdoutput) == 0)
+    {
+      bfd_perror (filename);
+      as_perror (_("FATAL: Can't close %s\n"), filename);
+      exit (EXIT_FAILURE);
+    }
+#else
+  /* Close the bfd without getting bfd to write out anything by itself */
+  if (bfd_close_all_done (stdoutput) == 0)
+    {
+      as_perror (_("FATAL: Can't close %s\n"), filename);
+      exit (EXIT_FAILURE);
+    }
+#endif
+  stdoutput = NULL;		/* Trust nobody! */
+}
+
+#ifndef BFD_ASSEMBLER
+void
+output_file_append (where, length, filename)
+     char *where;
+     long length;
+     char *filename;
+{
+  abort ();
+}
+#endif
+
+#else
+
+static FILE *stdoutput;
+
+void
+output_file_create (name)
+     char *name;
+{
+  if (name[0] == '-' && name[1] == '\0')
+    {
+      stdoutput = stdout;
+      return;
+    }
+
+  stdoutput = fopen (name, "wb");
+
+  /* Some systems don't grok "b" in fopen modes.  */
+  if (stdoutput == NULL)
+    stdoutput = fopen (name, "w");
+
+  if (stdoutput == NULL)
+    {
+      as_perror (_("FATAL: Can't create %s"), name);
+      exit (EXIT_FAILURE);
+    }
+}
+
+void
+output_file_close (filename)
+     char *filename;
+{
+  if (EOF == fclose (stdoutput))
+    {
+      as_perror (_("FATAL: Can't close %s"), filename);
+      exit (EXIT_FAILURE);
+    }
+  stdoutput = NULL;		/* Trust nobody! */
+}
+
+void
+output_file_append (where, length, filename)
+     char *where;
+     long length;
+     char *filename;
+{
+  for (; length; length--, where++)
+    {
+      (void) putc (*where, stdoutput);
+      if (ferror (stdoutput))
+	/* if ( EOF == (putc( *where, stdoutput )) ) */
+	{
+	  as_perror (_("Failed to emit an object byte"), filename);
+	  as_fatal (_("Can't continue"));
+	}
+    }
+}
+
+#endif
+
+/* end of output-file.c */