Remove unused old-style peepholes from pa.md

[Zack Weinberg <zack at codesourcery dot com>]

Eric Botcazou was talking about the pa backend and old-style text
peepholes, and I got curious.  It turns out that there are only two of
them, and guess what?  They never trigger.  I've empirically verified
this by doing a complete bootstrap and testsuite run, on
hppa2.0w-hp-hpux11.11, with the output templates replaced with
"*abort();" - not one hit.  I am not particularly surprised, because
they are labeled "clean up turds left by reload", and the cleanups
they perform address problems that reload-CSE and reload-inheritance
allow us to get right in the first place, these days.  This is also
consistent with the observation that that part of the machine
description hasn't seen more than trivial modifications in the
lifetime of the CVS repository.

Accordingly I propose to delete them entirely.  I'll wait a while
before checking this in, though, because maybe they're still relevant
to some other PA variant or something.

zw

        * config/pa/pa.md: Delete the two remaining define_peephole
        patterns.

===================================================================
Index: config/pa/pa.md
--- config/pa/pa.md	8 Jul 2004 20:21:00 -0000	1.153
+++ config/pa/pa.md	18 Jul 2004 04:00:26 -0000
@@ -8959,82 +8959,6 @@ add,l %2,%3,%3\;bv,n %%r0(%3)"
   [(set_attr "type" "fpalu")
    (set_attr "length" "4")])
 
-;; Clean up turds left by reload.
-(define_peephole
-  [(set (match_operand 0 "move_dest_operand" "")
-	(match_operand 1 "register_operand" "fr"))
-   (set (match_operand 2 "register_operand" "fr")
-	(match_dup 0))]
-  "!TARGET_SOFT_FLOAT
-   && GET_CODE (operands[0]) == MEM
-   && ! MEM_VOLATILE_P (operands[0])
-   && GET_MODE (operands[0]) == GET_MODE (operands[1])
-   && GET_MODE (operands[0]) == GET_MODE (operands[2])
-   && GET_MODE (operands[0]) == DFmode
-   && GET_CODE (operands[1]) == REG
-   && GET_CODE (operands[2]) == REG
-   && ! side_effects_p (XEXP (operands[0], 0))
-   && REGNO_REG_CLASS (REGNO (operands[1]))
-      == REGNO_REG_CLASS (REGNO (operands[2]))"
-  "*
-{
-  rtx xoperands[2];
-
-  if (FP_REG_P (operands[1]))
-    output_asm_insn (output_fp_move_double (operands), operands);
-  else
-    output_asm_insn (output_move_double (operands), operands);
-
-  if (rtx_equal_p (operands[1], operands[2]))
-    return \"\";
-
-  xoperands[0] = operands[2];
-  xoperands[1] = operands[1];
-      
-  if (FP_REG_P (xoperands[1]))
-    output_asm_insn (output_fp_move_double (xoperands), xoperands);
-  else
-    output_asm_insn (output_move_double (xoperands), xoperands);
-
-  return \"\";
-}")
-
-(define_peephole
-  [(set (match_operand 0 "register_operand" "fr")
-	(match_operand 1 "move_src_operand" ""))
-   (set (match_operand 2 "register_operand" "fr")
-	(match_dup 1))]
-  "!TARGET_SOFT_FLOAT
-   && GET_CODE (operands[1]) == MEM
-   && ! MEM_VOLATILE_P (operands[1])
-   && GET_MODE (operands[0]) == GET_MODE (operands[1])
-   && GET_MODE (operands[0]) == GET_MODE (operands[2])
-   && GET_MODE (operands[0]) == DFmode
-   && GET_CODE (operands[0]) == REG
-   && GET_CODE (operands[2]) == REG
-   && ! side_effects_p (XEXP (operands[1], 0))
-   && REGNO_REG_CLASS (REGNO (operands[0]))
-      == REGNO_REG_CLASS (REGNO (operands[2]))"
-  "*
-{
-  rtx xoperands[2];
-
-  if (FP_REG_P (operands[0]))
-    output_asm_insn (output_fp_move_double (operands), operands);
-  else
-    output_asm_insn (output_move_double (operands), operands);
-
-  xoperands[0] = operands[2];
-  xoperands[1] = operands[0];
-      
-  if (FP_REG_P (xoperands[1]))
-    output_asm_insn (output_fp_move_double (xoperands), xoperands);
-  else
-    output_asm_insn (output_move_double (xoperands), xoperands);
-
-  return \"\";
-}")
-
 ;; Flush the I and D cache lines from the start address (operand0)
 ;; to the end address (operand1).  No lines are flushed if the end
 ;; address is less than the start address (unsigned).