From: John David Anglin <dave@hiauly1.hia.nrc.ca>
Date: Wed, 11 Sep 2002 02:45:09 +0000 (+0000)
Subject: pa.md (extzv): Check predicates before emitting extzv_32.
X-Git-Tag: releases/gcc-3.3.0~2909
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=77de9af25184a81db2a552455bb811a961c71b6d;p=thirdparty%2Fgcc.git

pa.md (extzv): Check predicates before emitting extzv_32.

	* pa.md (extzv): Check predicates before emitting extzv_32.
	(insv): Likewise.

From-SVN: r57018
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6242b777d9e3..14fa46998cec 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-10  John David Anglin  <dave@hiauly1.hia.nrc.ca>
+
+	* pa.md (extzv): Check predicates before emitting extzv_32.
+	(insv): Likewise.
+
 2002-09-10  Ulrich Weigand  <uweigand@de.ibm.com>
 
 	* config/s390/s390.h (MOVE_MAX): Define to correct value.
diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md
index 5da3806eec72..bbd44fa3d044 100644
--- a/gcc/config/pa/pa.md
+++ b/gcc/config/pa/pa.md
@@ -6621,8 +6621,13 @@
     emit_insn (gen_extzv_64 (operands[0], operands[1],
 			     operands[2], operands[3]));
   else
-    emit_insn (gen_extzv_32 (operands[0], operands[1],
-			     operands[2], operands[3]));
+    {
+      if (! uint5_operand (operands[2], SImode)
+	  || ! uint5_operand (operands[3], SImode))
+	FAIL;
+      emit_insn (gen_extzv_32 (operands[0], operands[1],
+			       operands[2], operands[3]));
+    }
   DONE;
 }")
 
@@ -6741,8 +6746,13 @@
     emit_insn (gen_insv_64 (operands[0], operands[1],
 			    operands[2], operands[3]));
   else
-    emit_insn (gen_insv_32 (operands[0], operands[1],
-			    operands[2], operands[3]));
+    {
+      if (! uint5_operand (operands[2], SImode)
+	  || ! uint5_operand (operands[3], SImode))
+	FAIL;
+      emit_insn (gen_insv_32 (operands[0], operands[1],
+			      operands[2], operands[3]));
+    }
   DONE;
 }")