diff --git a/gas/ChangeLog b/gas/ChangeLog
index b07bb46dc5..2df90da091 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-29 Arati Dikey <aratid@kpit.com>
+
+	* tc-sh.c (parse_at): Removed case-sensitivity of index register
+	R8, R9.
+
 2001-11-28  Jakub Jelinek  <jakub@redhat.com>
 
 	* write.c (adjust_reloc_syms): Mark SEC_MERGE symbols as used
diff --git a/gas/config/tc-sh.c b/gas/config/tc-sh.c
index 654fc0f51d..935a287604 100644
--- a/gas/config/tc-sh.c
+++ b/gas/config/tc-sh.c
@@ -994,15 +994,20 @@ parse_at (src, op)
 	}
       if (src[0] == '+')
 	{
+	  char l0, l1;
+
 	  src++;
-	  if ((src[0] == 'r' && src[1] == '8')
-	      || (src[0] == 'i' && (src[1] == 'x' || src[1] == 's')))
+	  l0 = TOLOWER (src[0]);
+	  l1 = TOLOWER (src[1]);
+
+	  if ((l0 == 'r' && l1 == '8')
+	      || (l0 == 'i' && (l1 == 'x' || l1 == 's')))
 	    {
 	      src += 2;
 	      op->type = A_PMOD_N;
 	    }
-	  if ((src[0] == 'r' && src[1] == '9')
-	      || (src[0] == 'i' && src[1] == 'y'))
+	  if ((l0 == 'r' && l1 == '9')
+	      || (l0 == 'i' && l1 == 'y'))
 	    {
 	      src += 2;
 	      op->type = A_PMODY_N;