diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 5ef7e507b9564b0474cf2bf0789ef9a5ea1aa122..4720c619c045d53f6abd0712b5ef65d2232b8caf 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-12  Graham Stott  <grahams@redhat.com>
+
+	* config/pa/pa.c (compute_movstrsi_length): Fix typos.
+
 Tue Feb 12 10:12:56 2002  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
 	* alias.c (find_base_value, case ZERO_EXTEND, case SIGN_EXTEND):
diff --git a/gcc/config/pa/pa.c b/gcc/config/pa/pa.c
index 05a0fa629cc1b3f0dae410b57130ba43a9952765..2061145f51ba1d2ebc249b7541157c9e38639e86 100644
--- a/gcc/config/pa/pa.c
+++ b/gcc/config/pa/pa.c
@@ -2397,8 +2397,8 @@ compute_movstrsi_length (insn)
      rtx insn;
 {
   rtx pat = PATTERN (insn);
-  unsigned int align = INTVAL (XEXP (XVECEXP (pat, 0, 6), 0));
-  unsigned long n_bytes = INTVAL (XEXP (XVECEXP (pat, 0, 5), 0));
+  unsigned int align = INTVAL (XEXP (XVECEXP (pat, 0, 7), 0));
+  unsigned long n_bytes = INTVAL (XEXP (XVECEXP (pat, 0, 6), 0));
   unsigned int n_insns = 0;
 
   /* We can't move more than four bytes at a time because the PA