From: Jeff Law <law@redhat.com>
Date: Thu, 1 Jul 1999 14:37:29 +0000 (+0000)
Subject: h
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b1c5e0ee59631e37ca448958be4d3aa8dc34aec1;p=binutils-gdb.git

h
        * config/tc-hppa.c (pa_ip): Convert the opcode and all completers
        into lower case.
---

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 8307e206f87..f7f1fa9f88b 100644
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -1455,6 +1455,12 @@ pa_ip (str)
   pa_check_current_space_and_subspace ();
 #endif
 
+  /* Convert everything up to the first whitespace character into lower
+     case.  */
+  for (s = str; *s != ' ' && *s != '\t' && *s != '\n' && *s != '\0'; s++)
+    if (isupper (*s))
+      *s = tolower (*s);
+
   /* Skip to something interesting.  */
   for (s = str; isupper (*s) || islower (*s) || (*s >= '0' && *s <= '3'); ++s)
     ;
@@ -1480,14 +1486,6 @@ pa_ip (str)
 
   save_s = str;
 
-  /* Convert everything into lower case.  */
-  while (*save_s)
-    {
-      if (isupper (*save_s))
-	*save_s = tolower (*save_s);
-      save_s++;
-    }
-
   /* Look up the opcode in the has table.  */
   if ((insn = (struct pa_opcode *) hash_find (op_hash, str)) == NULL)
     {