Use sigsetjmp/siglongjmp in opcodes

[deliverable/binutils-gdb.git] / binutils / bucomm.c

diff --git a/binutils/bucomm.c b/binutils/bucomm.c
index 3ba60416a8dd5cdc901c3676daca7bbf494975ad..fd73070623f740245ea3a990b796360a31f64f86 100644 (file)
--- a/binutils/bucomm.c
+++ b/binutils/bucomm.c
@@ -1,13 +1,11 @@
 /* bucomm.c -- Bin Utils COMmon code.
 /* bucomm.c -- Bin Utils COMmon code.

-   Copyright 1991, 1992, 1993, 1994, 1995, 1997, 1998, 2000, 2001, 2002,
-   2003, 2006
-   Free Software Foundation, Inc.
+   Copyright (C) 1991-2014 Free Software Foundation, Inc.

 
    This file is part of GNU Binutils.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
 
    This file is part of GNU Binutils.
 
    This program 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 of the License, or
+   the Free Software Foundation; either version 3 of the License, or

    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,


@@ -23,15 +21,15 @@
 /* We might put this in a library someday so it could be dynamically
    loaded, but for now it's not necessary.  */
 
 /* We might put this in a library someday so it could be dynamically
    loaded, but for now it's not necessary.  */
 

+#include "sysdep.h"

 #include "bfd.h"
 #include "libiberty.h"
 #include "bfd.h"
 #include "libiberty.h"

-#include "bucomm.h"

 #include "filenames.h"
 #include "libbfd.h"
 
 #include "filenames.h"
 #include "libbfd.h"
 

-#include <sys/stat.h>

 #include <time.h>              /* ctime, maybe time_t */
 #include <assert.h>
 #include <time.h>              /* ctime, maybe time_t */
 #include <assert.h>

+#include "bucomm.h"

 
 #ifndef HAVE_TIME_T_IN_TIME_H
 #ifndef HAVE_TIME_T_IN_TYPES_H
 
 #ifndef HAVE_TIME_T_IN_TIME_H
 #ifndef HAVE_TIME_T_IN_TYPES_H


@@ -51,14 +49,65 @@ char *program_name;
 void
 bfd_nonfatal (const char *string)
 {
 void
 bfd_nonfatal (const char *string)
 {

-  const char *errmsg = bfd_errmsg (bfd_get_error ());
+  const char *errmsg;

 
 

+  errmsg = bfd_errmsg (bfd_get_error ());
+  fflush (stdout);

   if (string)
     fprintf (stderr, "%s: %s: %s\n", program_name, string, errmsg);
   else
     fprintf (stderr, "%s: %s\n", program_name, errmsg);
 }
 
   if (string)
     fprintf (stderr, "%s: %s: %s\n", program_name, string, errmsg);
   else
     fprintf (stderr, "%s: %s\n", program_name, errmsg);
 }
 

+/* Issue a non fatal error message.  FILENAME, or if NULL then BFD,
+   are used to indicate the problematic file.  SECTION, if non NULL,
+   is used to provide a section name.  If FORMAT is non-null, then it
+   is used to print additional information via vfprintf.  Finally the
+   bfd error message is printed.  In summary, error messages are of
+   one of the following forms:
+
+   PROGRAM:file: bfd-error-message
+   PROGRAM:file[section]: bfd-error-message
+   PROGRAM:file: printf-message: bfd-error-message
+   PROGRAM:file[section]: printf-message: bfd-error-message.  */
+
+void
+bfd_nonfatal_message (const char *filename,
+                     const bfd *abfd,
+                     const asection *section,
+                     const char *format, ...)
+{
+  const char *errmsg;
+  const char *section_name;
+  va_list args;
+
+  errmsg = bfd_errmsg (bfd_get_error ());
+  fflush (stdout);
+  section_name = NULL;
+  va_start (args, format);
+  fprintf (stderr, "%s", program_name);
+  
+  if (abfd)
+    {
+      if (!filename)
+       filename = bfd_get_archive_filename (abfd);
+      if (section)
+       section_name = bfd_get_section_name (abfd, section);
+    }
+  if (section_name)
+    fprintf (stderr, ":%s[%s]", filename, section_name);
+  else
+    fprintf (stderr, ":%s", filename);
+
+  if (format)
+    {
+      fprintf (stderr, ": ");
+      vfprintf (stderr, format, args);
+    }
+  fprintf (stderr, ": %s\n", errmsg);
+  va_end (args);
+}
+

 void
 bfd_fatal (const char *string)
 {
 void
 bfd_fatal (const char *string)
 {


@@ -69,30 +118,33 @@ bfd_fatal (const char *string)
 void
 report (const char * format, va_list args)
 {
 void
 report (const char * format, va_list args)
 {

+  fflush (stdout);

   fprintf (stderr, "%s: ", program_name);
   vfprintf (stderr, format, args);
   putc ('\n', stderr);
 }
 
 void
   fprintf (stderr, "%s: ", program_name);
   vfprintf (stderr, format, args);
   putc ('\n', stderr);
 }
 
 void

-fatal VPARAMS ((const char *format, ...))
+fatal (const char *format, ...)

 {
 {

-  VA_OPEN (args, format);
-  VA_FIXEDARG (args, const char *, format);
+  va_list args;
+
+  va_start (args, format);

 
   report (format, args);
 
   report (format, args);

-  VA_CLOSE (args);
+  va_end (args);

   xexit (1);
 }
 
 void
   xexit (1);
 }
 
 void

-non_fatal VPARAMS ((const char *format, ...))
+non_fatal (const char *format, ...)

 {
 {

-  VA_OPEN (args, format);
-  VA_FIXEDARG (args, const char *, format);
+  va_list args;
+
+  va_start (args, format);

 
   report (format, args);
 
   report (format, args);

-  VA_CLOSE (args);
+  va_end (args);

 }
 
 /* Set the default BFD target based on the configured target.  Doing
 }
 
 /* Set the default BFD target based on the configured target.  Doing


@@ -118,6 +170,7 @@ set_default_bfd_target (void)
 void
 list_matching_formats (char **p)
 {
 void
 list_matching_formats (char **p)
 {

+  fflush (stdout);

   fprintf (stderr, _("%s: Matching formats:"), program_name);
   while (*p)
     fprintf (stderr, " %s", *p++);
   fprintf (stderr, _("%s: Matching formats:"), program_name);
   while (*p)
     fprintf (stderr, " %s", *p++);


@@ -130,13 +183,14 @@ void
 list_supported_targets (const char *name, FILE *f)
 {
   int t;
 list_supported_targets (const char *name, FILE *f)
 {
   int t;

-  const char **targ_names = bfd_target_list ();
+  const char **targ_names;

 
   if (name == NULL)
     fprintf (f, _("Supported targets:"));
   else
     fprintf (f, _("%s: supported targets:"), name);
 
 
   if (name == NULL)
     fprintf (f, _("Supported targets:"));
   else
     fprintf (f, _("%s: supported targets:"), name);
 

+  targ_names = bfd_target_list ();

   for (t = 0; targ_names[t] != NULL; t++)
     fprintf (f, " %s", targ_names[t]);
   fprintf (f, "\n");
   for (t = 0; targ_names[t] != NULL; t++)
     fprintf (f, " %s", targ_names[t]);
   fprintf (f, "\n");


@@ -148,16 +202,18 @@ list_supported_targets (const char *name, FILE *f)
 void
 list_supported_architectures (const char *name, FILE *f)
 {
 void
 list_supported_architectures (const char *name, FILE *f)
 {

-  const char **arch;
+  const char ** arch;
+  const char ** arches;

 
   if (name == NULL)
     fprintf (f, _("Supported architectures:"));
   else
     fprintf (f, _("%s: supported architectures:"), name);
 
 
   if (name == NULL)
     fprintf (f, _("Supported architectures:"));
   else
     fprintf (f, _("%s: supported architectures:"), name);
 

-  for (arch = bfd_arch_list (); *arch; arch++)
+  for (arch = arches = bfd_arch_list (); *arch; arch++)

     fprintf (f, " %s", *arch);
   fprintf (f, "\n");
     fprintf (f, " %s", *arch);
   fprintf (f, "\n");

+  free (arches);

 }
 \f
 /* The length of the longest architecture name + 1.  */
 }
 \f
 /* The length of the longest architecture name + 1.  */


@@ -168,9 +224,9 @@ endian_string (enum bfd_endian endian)
 {
   switch (endian)
     {
 {
   switch (endian)
     {

-    case BFD_ENDIAN_BIG: return "big endian";
-    case BFD_ENDIAN_LITTLE: return "little endian";
-    default: return "endianness unknown";
+    case BFD_ENDIAN_BIG: return _("big endian");
+    case BFD_ENDIAN_LITTLE: return _("little endian");
+    default: return _("endianness unknown");

     }
 }
 
     }
 }
 


@@ -189,9 +245,9 @@ display_target_list (void)
     {
       const bfd_target *p = bfd_target_vector[t];
       bfd *abfd = bfd_openw (dummy_name, p->name);
     {
       const bfd_target *p = bfd_target_vector[t];
       bfd *abfd = bfd_openw (dummy_name, p->name);

-      enum bfd_architecture a;
+      int a;

 
 

-      printf ("%s\n (header %s, data %s)\n", p->name,
+      printf (_("%s\n (header %s, data %s)\n"), p->name,

              endian_string (p->header_byteorder),
              endian_string (p->byteorder));
 
              endian_string (p->header_byteorder),
              endian_string (p->byteorder));
 


@@ -235,7 +291,7 @@ display_info_table (int first, int last)
   int t;
   int ret = 1;
   char *dummy_name;
   int t;
   int ret = 1;
   char *dummy_name;

-  enum bfd_architecture a;
+  int a;

 
   /* Print heading of target names.  */
   printf ("\n%*s", (int) LONGEST_ARCH, " ");
 
   /* Print heading of target names.  */
   printf ("\n%*s", (int) LONGEST_ARCH, " ");


@@ -245,10 +301,11 @@ display_info_table (int first, int last)
 
   dummy_name = make_temp_file (NULL);
   for (a = bfd_arch_obscure + 1; a < bfd_arch_last; a++)
 
   dummy_name = make_temp_file (NULL);
   for (a = bfd_arch_obscure + 1; a < bfd_arch_last; a++)

-    if (strcmp (bfd_printable_arch_mach (a, 0), "UNKNOWN!") != 0)
+    if (strcmp (bfd_printable_arch_mach ((enum bfd_architecture) a, 0),
+                "UNKNOWN!") != 0)

       {
        printf ("%*s ", (int) LONGEST_ARCH - 1,
       {
        printf ("%*s ", (int) LONGEST_ARCH - 1,

-               bfd_printable_arch_mach (a, 0));
+               bfd_printable_arch_mach ((enum bfd_architecture) a, 0));

        for (t = first; t < last && bfd_target_vector[t]; t++)
          {
            const bfd_target *p = bfd_target_vector[t];
        for (t = first; t < last && bfd_target_vector[t]; t++)
          {
            const bfd_target *p = bfd_target_vector[t];


@@ -277,7 +334,7 @@ display_info_table (int first, int last)
 
            if (ok)
              {
 
            if (ok)
              {

-               if (! bfd_set_arch_mach (abfd, a, 0))
+               if (! bfd_set_arch_mach (abfd, (enum bfd_architecture) a, 0))

                  ok = FALSE;
              }
 
                  ok = FALSE;
              }
 


@@ -370,16 +427,18 @@ print_arelt_descr (FILE *file, bfd *abfd, bfd_boolean verbose)
          char timebuf[40];
          time_t when = buf.st_mtime;
          const char *ctime_result = (const char *) ctime (&when);
          char timebuf[40];
          time_t when = buf.st_mtime;
          const char *ctime_result = (const char *) ctime (&when);

+         bfd_size_type size;

 
          /* POSIX format:  skip weekday and seconds from ctime output.  */
          sprintf (timebuf, "%.12s %.4s", ctime_result + 4, ctime_result + 20);
 
          mode_string (buf.st_mode, modebuf);
          modebuf[10] = '\0';
 
          /* POSIX format:  skip weekday and seconds from ctime output.  */
          sprintf (timebuf, "%.12s %.4s", ctime_result + 4, ctime_result + 20);
 
          mode_string (buf.st_mode, modebuf);
          modebuf[10] = '\0';

+         size = buf.st_size;

          /* POSIX 1003.2/D11 says to skip first character (entry type).  */
          /* POSIX 1003.2/D11 says to skip first character (entry type).  */

-         fprintf (file, "%s %ld/%ld %6ld %s ", modebuf + 1,
+         fprintf (file, "%s %ld/%ld %6" BFD_VMA_FMT "u %s ", modebuf + 1,

                   (long) buf.st_uid, (long) buf.st_gid,
                   (long) buf.st_uid, (long) buf.st_gid,

-                  (long) buf.st_size, timebuf);
+                  size, timebuf);

        }
     }
 
        }
     }
 


@@ -412,7 +471,7 @@ template_in_dir (const char *path)
   if (slash != (char *) NULL)
     {
       len = slash - path;
   if (slash != (char *) NULL)
     {
       len = slash - path;

-      tmpname = xmalloc (len + sizeof (template) + 2);
+      tmpname = (char *) xmalloc (len + sizeof (template) + 2);

       memcpy (tmpname, path, len);
 
 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
       memcpy (tmpname, path, len);
 
 #ifdef HAVE_DOS_BASED_FILE_SYSTEM


@@ -426,7 +485,7 @@ template_in_dir (const char *path)
     }
   else
     {
     }
   else
     {

-      tmpname = xmalloc (sizeof (template));
+      tmpname = (char *) xmalloc (sizeof (template));

       len = 0;
     }
 
       len = 0;
     }
 


@@ -453,7 +512,10 @@ make_tempname (char *filename)
   fd = open (tmpname, O_RDWR | O_CREAT | O_EXCL, 0600);
 #endif
   if (fd == -1)
   fd = open (tmpname, O_RDWR | O_CREAT | O_EXCL, 0600);
 #endif
   if (fd == -1)

-    return NULL;
+    {
+      free (tmpname);
+      return NULL;
+    }

   close (fd);
   return tmpname;
 }
   close (fd);
   return tmpname;
 }


@@ -502,7 +564,7 @@ parse_vma (const char *s, const char *arg)
 
 /* Returns the size of the named file.  If the file does not
    exist, or if it is not a real file, then a suitable non-fatal
 
 /* Returns the size of the named file.  If the file does not
    exist, or if it is not a real file, then a suitable non-fatal

-   error message is printed and zero is returned.  */
+   error message is printed and (off_t) -1 is returned.  */

 
 off_t
 get_file_size (const char * file_name)
 
 off_t
 get_file_size (const char * file_name)


@@ -519,16 +581,19 @@ get_file_size (const char * file_name)
     }  
   else if (! S_ISREG (statbuf.st_mode))
     non_fatal (_("Warning: '%s' is not an ordinary file"), file_name);
     }  
   else if (! S_ISREG (statbuf.st_mode))
     non_fatal (_("Warning: '%s' is not an ordinary file"), file_name);

+  else if (statbuf.st_size < 0)
+    non_fatal (_("Warning: '%s' has negative size, probably it is too large"),
+               file_name);

   else
     return statbuf.st_size;
 
   else
     return statbuf.st_size;
 

-  return 0;
+  return (off_t) -1;

 }
 
 /* Return the filename in a static buffer.  */
 
 const char *
 }
 
 /* Return the filename in a static buffer.  */
 
 const char *

-bfd_get_archive_filename (bfd *abfd)
+bfd_get_archive_filename (const bfd *abfd)

 {
   static size_t curr = 0;
   static char *buf;
 {
   static size_t curr = 0;
   static char *buf;


@@ -546,7 +611,7 @@ bfd_get_archive_filename (bfd *abfd)
       if (curr)
        free (buf);
       curr = needed + (needed >> 1);
       if (curr)
        free (buf);
       curr = needed + (needed >> 1);

-      buf = bfd_malloc (curr);
+      buf = (char *) bfd_malloc (curr);

       /* If we can't malloc, fail safe by returning just the file name.
         This function is only used when building error messages.  */
       if (!buf)
       /* If we can't malloc, fail safe by returning just the file name.
         This function is only used when building error messages.  */
       if (!buf)