diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 3f38c2edc5e..3b71ed42a70 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Wed Apr  1 22:26:22 1998  Jeffrey A Law  (law@cygnus.com)
+
+	* pa.md (reload peepholes): Remove unused variable "mode".
+
 Wed Apr  1 17:06:19 1998  Nick Clifton  <nickc@cygnus.com>
 
 	* config/arm/thumb.h: Add super interworking support.
diff --git a/gcc/config/pa/pa.md b/gcc/config/pa/pa.md
index 053d0081678..ddaf34bd045 100644
--- a/gcc/config/pa/pa.md
+++ b/gcc/config/pa/pa.md
@@ -4856,7 +4856,6 @@
       == REGNO_REG_CLASS (REGNO (operands[2]))"
   "*
 {
-  enum machine_mode mode = GET_MODE (operands[0]);
   rtx xoperands[2];
 
   if (FP_REG_P (operands[1]))
@@ -4896,7 +4895,6 @@
       == REGNO_REG_CLASS (REGNO (operands[2]))"
   "*
 {
-  enum machine_mode mode = GET_MODE (operands[0]);
   rtx xoperands[2];
 
   if (FP_REG_P (operands[0]))