diff --git a/gas/ChangeLog b/gas/ChangeLog
index c67b49f790b..583adcf004f 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-15  Alexandre Oliva  <aoliva@redhat.com>
+
+	* config/tc-sh.c (parse_reg): Match capital MACH and MACL.
+
 2001-03-15  DJ Delorie  <dj@redhat.com>
 
 	* stabs.c (s_stab_generic): Don't corrupt the notes obstack by
diff --git a/gas/config/tc-sh.c b/gas/config/tc-sh.c
index 69dbf751672..b1a51e66ef4 100644
--- a/gas/config/tc-sh.c
+++ b/gas/config/tc-sh.c
@@ -694,12 +694,12 @@ parse_reg (src, mode, reg)
   if (l0 == 'm' && l1 == 'a' && tolower (src[2]) == 'c'
       && ! IDENT_CHAR ((unsigned char) src[4]))
     {
-      if (src[3] == 'l')
+      if (tolower (src[3]) == 'l')
 	{
 	  *mode = A_MACL;
 	  return 4;
 	}
-      if (src[3] == 'h')
+      if (tolower (src[3]) == 'h')
 	{
 	  *mode = A_MACH;
 	  return 4;