Changeset 609 for branches/GNU/src/binutils/gas/ecoff.c

Timestamp:

Aug 16, 2003, 6:59:22 PM (22 years ago)

Author:

bird

Message:

binutils v2.14 - offical sources.

File:

• branches/GNU/src/binutils/gas/ecoff.c (modified) (37 diffs, 1 prop)

branches/GNU/src/binutils/gas/ecoff.c

@@ -1 +1 @@
 /* ECOFF debugging support.
-   Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+   Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
    Free Software Foundation, Inc.
    Contributed by Cygnus Support.
@@ -38 +38 @@
 #include "aout/stab_gnu.h"
 
-#include <ctype.h>
+#include "safe-ctype.h"
 
 /* Why isn't this in coff/sym.h?  */
@@ -1561 +1561 @@
 
   if (len >= PAGE_USIZE)
-    as_fatal (_("String too big (%lu bytes)"), len);
+    as_fatal (_("string too big (%lu bytes)"), len);
 
   hash_ptr = (shash_t *) hash_find (hash_tbl, str);
@@ -1587 +1587 @@
       err = hash_insert (hash_tbl, str, (char *) hash_ptr);
       if (err)
-        as_fatal (_("Inserting \"%s\" into string hash table: %s"),
+        as_fatal (_("inserting \"%s\" into string hash table: %s"),
                   str, err);
     }
@@ -2049 +2049 @@
       char *perm;
 
-      perm = xmalloc ((unsigned long) (strlen (tag) + 1));
-      strcpy (perm, tag);
+      perm = xstrdup (tag);
       hash_ptr = allocate_shash ();
       err = hash_insert (tag_hash, perm, (char *) hash_ptr);
       if (err)
-        as_fatal (_("Inserting \"%s\" into tag hash table: %s"),
+        as_fatal (_("inserting \"%s\" into tag hash table: %s"),
                   tag, err);
       hash_ptr->string = perm;
@@ -2235 +2234 @@
         debug_type = DEBUG_ECOFF;
     }
-  else
+  else if (debug_type == DEBUG_UNSPECIFIED)
     debug_type = DEBUG_NONE;
 
@@ -2313 +2312 @@
 
       if (strlen (file_name) > PAGE_USIZE - 2)
-        as_fatal (_("Filename goes over one page boundary."));
+        as_fatal (_("filename goes over one page boundary"));
 
       /* Push the start of the filename. We assume that the filename
@@ -2558 +2557 @@
     as_warn (_(".def pseudo-op used inside of .def/.endef; ignored"));
   else if (*name == '\0')
-    as_warn (_("Empty symbol name in .def; ignored"));
+    as_warn (_("empty symbol name in .def; ignored"));
   else
     {
@@ -2565 +2564 @@
       if (coff_tag != (char *) NULL)
         free (coff_tag);
-      coff_sym_name = (char *) xmalloc ((unsigned long) (strlen (name) + 1));
-      strcpy (coff_sym_name, name);
+      
+      coff_sym_name = xstrdup (name);
       coff_type = type_info_init;
       coff_storage_class = sc_Nil;
@@ -2611 +2610 @@
           if (*input_line_pointer != '\n'
               && *input_line_pointer != ';')
-            as_warn (_("Badly formed .dim directive"));
+            as_warn (_("badly formed .dim directive"));
           break;
         }
@@ -2624 +2623 @@
       if (coff_type.num_dims >= N_TQ)
         {
-          as_warn (_("Too many .dim entries"));
+          as_warn (_("too many .dim entries"));
           break;
         }
@@ -2686 +2685 @@
           if (*input_line_pointer != '\n'
               && *input_line_pointer != ';')
-            as_warn (_("Badly formed .size directive"));
+            as_warn (_("badly formed .size directive"));
           break;
         }
@@ -2699 +2698 @@
       if (coff_type.num_sizes >= N_TQ)
         {
-          as_warn (_("Too many .size entries"));
+          as_warn (_("too many .size entries"));
           break;
         }
@@ -2740 +2739 @@
              There would still be a limit: the .type argument can not
              be infinite.  */
-          as_warn (_("The type of %s is too complex; it will be simplified"),
+          as_warn (_("the type of %s is too complex; it will be simplified"),
                    coff_sym_name);
           break;
@@ -2798 +2797 @@
   name_end = get_symbol_end ();
 
-  coff_tag = (char *) xmalloc ((unsigned long) (strlen (name) + 1));
-  strcpy (coff_tag, name);
+  coff_tag = xstrdup (name);
 
   *input_line_pointer = name_end;
@@ -2882 +2880 @@
       if (coff_type.num_sizes != 1 || diff < 0)
         {
-          as_warn (_("Bad COFF debugging info"));
+          as_warn (_("bad COFF debugging information"));
           return;
         }
@@ -2931 +2929 @@
           if (coff_tag == (char *) NULL)
             {
-              as_warn (_("No tag specified for %s"), name);
+              as_warn (_("no tag specified for %s"), name);
               return;
             }
@@ -2963 +2961 @@
           != 1)
         {
-          as_warn (_("Bad COFF debugging information"));
+          as_warn (_("bad COFF debugging information"));
           return;
         }
@@ -3031 +3029 @@
   char *name;
   char name_end;
-  register int ch;
   symbolS *ent;
 
@@ -3051 +3048 @@
   name_end = get_symbol_end ();
 
-  ch = *name;
-  if (! is_name_beginner (ch))
+  if (name == input_line_pointer)
     {
       as_warn (_(".end directive has no name"));
@@ -3089 +3085 @@
   char *name;
   char name_end;
-  register int ch;
 
   if (cur_file_ptr == (efdr_t *) NULL)
@@ -3104 +3099 @@
   name_end = get_symbol_end ();
 
-  ch = *name;
-  if (! is_name_beginner (ch))
+  if (name == input_line_pointer)
     {
       as_warn (_(".ent directive has no name"));
@@ -3127 +3121 @@
       SKIP_WHITESPACE ();
     }
-  if (isdigit ((unsigned char) *input_line_pointer)
+  if (ISDIGIT (*input_line_pointer)
       || *input_line_pointer == '-')
     (void) get_absolute_expression ();
@@ -3173 +3167 @@
   if (cur_proc_ptr != (proc_t *) NULL)
     {
-      as_warn (_("No way to handle .file within .ent/.end section"));
+      as_warn (_("no way to handle .file within .ent/.end section"));
       demand_empty_rest_of_line ();
       return;
@@ -3206 +3200 @@
   if (get_absolute_expression_and_terminator (&val) != ',')
     {
-      as_warn (_("Bad .fmask directive"));
+      as_warn (_("bad .fmask directive"));
       --input_line_pointer;
       demand_empty_rest_of_line ();
@@ -3240 +3234 @@
       || get_absolute_expression_and_terminator (&val) != ',')
     {
-      as_warn (_("Bad .frame directive"));
+      as_warn (_("bad .frame directive"));
       --input_line_pointer;
       demand_empty_rest_of_line ();
@@ -3278 +3272 @@
   if (get_absolute_expression_and_terminator (&val) != ',')
     {
-      as_warn (_("Bad .mask directive"));
+      as_warn (_("bad .mask directive"));
       --input_line_pointer;
       demand_empty_rest_of_line ();
@@ -3412 +3406 @@
 void
 ecoff_directive_weakext (ignore)
-     int ignore;
+     int ignore ATTRIBUTE_UNUSED;
 {
   char *name;
@@ -3430 +3424 @@
       if (S_IS_DEFINED (symbolP))
         {
-          as_bad (_("Ignoring attempt to redefine symbol `%s'."),
+          as_bad (_("symbol `%s' is already defined"),
                   S_GET_NAME (symbolP));
           ignore_rest_of_line ();
@@ -3557 +3551 @@
       if (dummy_symr.index != desc)
         {
-          as_warn (_("Line number (%d) for .stab%c directive cannot fit in index field (20 bits)"),
+          as_warn (_("line number (%d) for .stab%c directive cannot fit in index field (20 bits)"),
                    desc, what);
           return;
@@ -3581 +3575 @@
 #endif
 
-      if (isdigit ((unsigned char) *input_line_pointer)
+      if (ISDIGIT (*input_line_pointer)
           || *input_line_pointer == '-'
           || *input_line_pointer == '+')
@@ -3593 +3587 @@
       else if (! is_name_beginner ((unsigned char) *input_line_pointer))
         {
-          as_warn (_("Illegal .stab%c directive, bad character"), what);
+          as_warn (_("illegal .stab%c directive, bad character"), what);
           return;
         }
@@ -3652 +3646 @@
   if (S_IS_COMMON (sym)
       && S_GET_VALUE (sym) > 0
-      && S_GET_VALUE (sym) <= (unsigned) bfd_get_gp_size (stdoutput))
+      && S_GET_VALUE (sym) <= bfd_get_gp_size (stdoutput))
     {
       static asection scom_section;
@@ -3677 +3671 @@
     {
       if (S_IS_COMMON (sym))
-        as_bad (_("Symbol `%s' can not be both weak and common"),
+        as_bad (_("symbol `%s' can not be both weak and common"),
                 S_GET_NAME (sym));
     }
@@ -4118 +4112 @@
                               s = symbol_get_obj (as_sym)->ecoff_extern_size;
                               if (s == 0
-                                  || s > (unsigned) bfd_get_gp_size (stdoutput))
+                                  || s > bfd_get_gp_size (stdoutput))
                                 sc = sc_Undefined;
                               else
@@ -4133 +4127 @@
                               if (S_GET_VALUE (as_sym) > 0
                                   && (S_GET_VALUE (as_sym)
-                                      <= (unsigned) bfd_get_gp_size (stdoutput)))
+                                      <= bfd_get_gp_size (stdoutput)))
                                 sc = sc_SCommon;
                               else
@@ -4773 +4767 @@
           if (! end_warning && ! cur_file_ptr->fake)
             {
-              as_warn (_("Missing .end or .bend at end of file"));
+              as_warn (_("missing .end or .bend at end of file"));
               end_warning = 1;
             }