diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index ffed7636123..61cfc8eed6a 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jul 26 23:00:13 2002  J"orn Rennecke <joern.rennecke@superh.com>
+
+	* pa.md (extv): Check predicates before emitting extv_32.
+
 2002-07-27  Alan Modra  <amodra@bigpond.net.au>
 
 	* config/rs6000/rs6000.c (rs6000_traceback_name): New var.
diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md
index 73f2831c12d..7632beba83c 100644
--- a/gcc/config/pa/pa.md
+++ b/gcc/config/pa/pa.md
@@ -6658,8 +6658,13 @@
     emit_insn (gen_extv_64 (operands[0], operands[1],
 			    operands[2], operands[3]));
   else
-    emit_insn (gen_extv_32 (operands[0], operands[1],
-			    operands[2], operands[3]));
+    {
+      if (! uint5_operand (operands[2], SImode)
+	  || ! uint5_operand (operands[3], SImode))
+	FAIL;
+      emit_insn (gen_extv_32 (operands[0], operands[1],
+			      operands[2], operands[3]));
+    }
   DONE;
 }")