diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 707039a4036..cbfeb4e0df6 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-21  David S. Miller  <davem@redhat.com>
+
+	* config/sparc/sparc.md (set then compare DI mode peephole2): Fix
+	compare mode in output RTL.
+
 2002-04-22  David Edelsohn  <edelsohn@gnu.org>
 
 	* config/rs6000/rs6000.c (rs6000_override_options): Correct
diff --git a/gcc/config/sparc/sparc.md b/gcc/config/sparc/sparc.md
index d09f6487e84..eccfb7574b7 100644
--- a/gcc/config/sparc/sparc.md
+++ b/gcc/config/sparc/sparc.md
@@ -9183,7 +9183,7 @@
    && ! SPARC_FP_REG_P (REGNO (operands[1]))"
   [(parallel [(set (match_dup 0) (match_dup 1))
 	      (set (reg:CCX 100)
-		   (compare:CC (match_dup 1) (const_int 0)))])]
+		   (compare:CCX (match_dup 1) (const_int 0)))])]
   "")
 
 ;; Return peepholes.  These are generated by sparc_nonflat_function_epilogue