* config/tc-arm.c (create_register_alias): Return a boolean rather than an integer.

  Check the return value of insert_reg_alias and do not continue to create aliases once an insertion has failed.
  (s_unreq): Delete the all-upper-case and all-lower-case alternatives as well.
* testsuite/gas/arm/arm.s: Add tests for re-aliasing a previously removed alias.
* testsuite/gas/arm/arm.l: Add new expected warning message.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index d1a43a34c000ed8d5ae76d8bcb4e9974c9f8f6df..602c58c4c16435023d1349cb01b39d162b40797b 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,12 @@
+2007-07-14  Nick Clifton  <nickc@redhat.com>
+
+       * config/tc-arm.c (create_register_alias): Return a boolean rather
+       than an integer.
+       Check the return value of insert_reg_alias and do not continue to
+       create aliases once an insertion has failed.
+       (s_unreq): Delete the all-upper-case and all-lower-case
+       alternatives as well.
+
 2007-07-12  Kai Tietz   <kai.tietz@onevision.com>
 
        * symbols.c: Print bfd_hostptr_t to file via fprintf_vma.

diff --git a/gas/config/tc-arm.c b/gas/config/tc-arm.c
index fbb7ae2cb4ee7296c8c91c40c123c62db4ebc57b..82562d7e96fe0efe83b8431487aa2666f63ddb78 100644 (file)
--- a/gas/config/tc-arm.c
+++ b/gas/config/tc-arm.c
@@ -1971,7 +1971,7 @@ insert_reg_alias (char *str, int number, int type)
       else if (new->number != number || new->type != type)
        as_warn (_("ignoring redefinition of register alias '%s'"), str);
 
-      return 0;
+      return NULL;
     }
 
   name = xstrdup (str);
@@ -2013,9 +2013,9 @@ insert_neon_reg_alias (char *str, int number, int type,
        new_register_name .req existing_register_name
 
    If we find one, or if it looks sufficiently like one that we want to
-   handle any error here, return non-zero.  Otherwise return zero.  */
+   handle any error here, return TRUE.  Otherwise return FALSE.  */
 
-static int
+static bfd_boolean
 create_register_alias (char * newname, char *p)
 {
   struct reg_entry *old;
@@ -2026,17 +2026,17 @@ create_register_alias (char * newname, char *p)
      collapsed to single spaces.  */
   oldname = p;
   if (strncmp (oldname, " .req ", 6) != 0)
-    return 0;
+    return FALSE;
 
   oldname += 6;
   if (*oldname == '\0')
-    return 0;
+    return FALSE;
 
   old = hash_find (arm_reg_hsh, oldname);
   if (!old)
     {
       as_warn (_("unknown register '%s' -- .req ignored"), oldname);
-      return 1;
+      return TRUE;
     }
 
   /* If TC_CASE_SENSITIVE is defined, then newname already points to
@@ -2056,21 +2056,34 @@ create_register_alias (char * newname, char *p)
   /* Create aliases under the new name as stated; an all-lowercase
      version of the new name; and an all-uppercase version of the new
      name.  */
-  insert_reg_alias (nbuf, old->number, old->type);
-
-  for (p = nbuf; *p; p++)
-    *p = TOUPPER (*p);
+  if (insert_reg_alias (nbuf, old->number, old->type) != NULL)
+    {
+      for (p = nbuf; *p; p++)
+       *p = TOUPPER (*p);
 
-  if (strncmp (nbuf, newname, nlen))
-    insert_reg_alias (nbuf, old->number, old->type);
+      if (strncmp (nbuf, newname, nlen))
+       {
+         /* If this attempt to create an additional alias fails, do not bother
+            trying to create the all-lower case alias.  We will fail and issue
+            a second, duplicate error message.  This situation arises when the
+            programmer does something like:
+              foo .req r0
+              Foo .req r1
+            The second .req creates the "Foo" alias but then fails to create
+            the artifical FOO alias because it has already been created by the
+            first .req.  */
+         if (insert_reg_alias (nbuf, old->number, old->type) == NULL)
+           return TRUE;
+       }
 
-  for (p = nbuf; *p; p++)
-    *p = TOLOWER (*p);
+      for (p = nbuf; *p; p++)
+       *p = TOLOWER (*p);
 
-  if (strncmp (nbuf, newname, nlen))
-    insert_reg_alias (nbuf, old->number, old->type);
+      if (strncmp (nbuf, newname, nlen))
+       insert_reg_alias (nbuf, old->number, old->type);
+    }
 
-  return 1;
+  return TRUE;
 }
 
 /* Create a Neon typed/indexed register alias using directives, e.g.:
@@ -2270,11 +2283,45 @@ s_unreq (int a ATTRIBUTE_UNUSED)
                 name);
       else
        {
+         char * p;
+         char * nbuf;
+
          hash_delete (arm_reg_hsh, name);
          free ((char *) reg->name);
           if (reg->neon)
             free (reg->neon);
          free (reg);
+
+         /* Also locate the all upper case and all lower case versions.
+            Do not complain if we cannot find one or the other as it
+            was probably deleted above.  */
+         
+         nbuf = strdup (name);
+         for (p = nbuf; *p; p++)
+           *p = TOUPPER (*p);
+         reg = hash_find (arm_reg_hsh, nbuf);
+         if (reg)
+           {
+             hash_delete (arm_reg_hsh, nbuf);
+             free ((char *) reg->name);
+             if (reg->neon)
+               free (reg->neon);
+             free (reg);
+           }
+
+         for (p = nbuf; *p; p++)
+           *p = TOLOWER (*p);
+         reg = hash_find (arm_reg_hsh, nbuf);
+         if (reg)
+           {
+             hash_delete (arm_reg_hsh, nbuf);
+             free ((char *) reg->name);
+             if (reg->neon)
+               free (reg->neon);
+             free (reg);
+           }
+
+         free (nbuf);
        }
     }
 

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index b165e57765be7d2877b43bd06cfcfa249ca8541b..210e5f63bb257388781644b23ae5a32dc07f8700 100644 (file)
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-07-14  Nick Clifton  <nickc@redhat.com>
+
+       * gas/arm/arm.s: Add tests for re-aliasing a previously removed
+       alias.
+       * gas/arm/arm.l: Add new expected warning message.
+
 2007-07-04  H.J. Lu  <hongjiu.lu@intel.com>
 
        * gas/i386/ssemmx2.d: Ignore padding.

diff --git a/gas/testsuite/gas/arm/req.l b/gas/testsuite/gas/arm/req.l
index 165d1d81df3ab8db2282a1fd0d491037eccd7bf3..293db4da5c6aef95bc0cdfd549a5df3a241245aa 100644 (file)
--- a/gas/testsuite/gas/arm/req.l
+++ b/gas/testsuite/gas/arm/req.l
@@ -1,3 +1,4 @@
 [^:]*: Assembler messages:
 [^:]*:18: Error: ARM register expected -- `add foo,foo,foo'
 [^:]*:21: Warning: ignoring attempt to undefine built-in register 'r0'
+[^:]*:41: Warning: ignoring redefinition of register alias 'FOO'

diff --git a/gas/testsuite/gas/arm/req.s b/gas/testsuite/gas/arm/req.s
index 341f66d1bf4b9032bf849f69fcac882f07306ac3..1330e751eceda4d18a511e20750ed7dc5e826ac0 100644 (file)
--- a/gas/testsuite/gas/arm/req.s
+++ b/gas/testsuite/gas/arm/req.s
@@ -19,7 +19,23 @@ test_dot_req_and_unreq:
 
        # Attempt to remove the builtin alias for r0.
         .unreq r0
-
+       
        # That is ignored, so this should still work.
        add r0, r0, r0
-       
+
+       # Now attempt to re-alias foo.  There used to be a bug whereby the
+       # first creation of an alias called foo would also create an alias
+       # called FOO, but the .unreq of foo would not delete FOO.  Thus a
+       # second attempt at aliasing foo (to something different than
+       # before) would fail because the assembler would complain that FOO
+       # already existed.
+       foo .req r1
+
+       add foo, foo, foo
+
+       # Check that the upper case alias was also recreated.
+       add FOO, FOO, FOO
+
+       # Check that a second attempt to alias foo, using a mixed case
+       # verison of the name, will fail.
+       Foo .req r2