diff options
| author | Stan Cox <coxs@gnu.org> | 1994-02-04 16:29:24 +0000 |
|---|---|---|
| committer | Stan Cox <coxs@gnu.org> | 1994-02-04 16:29:24 +0000 |
| commit | 2d257716a91a58e3c957060f281a73eae4528adf (patch) | |
| tree | 59255cb0412082a0896a821eee6685136f78c02c | |
| parent | 8698cce38002fd0eaf1ac60c2f6e8f3906635e84 (diff) | |
| download | gcc-2d257716a91a58e3c957060f281a73eae4528adf.zip gcc-2d257716a91a58e3c957060f281a73eae4528adf.tar.gz gcc-2d257716a91a58e3c957060f281a73eae4528adf.tar.bz2 | |
Split movdf so it can go into a branch delay slot.
From-SVN: r6480
| -rw-r--r-- | gcc/config/m88k/m88k.md | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/gcc/config/m88k/m88k.md b/gcc/config/m88k/m88k.md index 0851054..44d95a0 100644 --- a/gcc/config/m88k/m88k.md +++ b/gcc/config/m88k/m88k.md @@ -2,7 +2,7 @@ ;; Copyright (C) 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. ;; Contributed by Michael Tiemann (tiemann@mcc.com) ;; Additional changes by Michael Meissner (meissner@osf.org) -;; Version 2 port by Tom Wood (Tom_Wood@NeXT.com) +;; Version 2 port by Tom Wood (twood@pets.sps.mot.com) ;; This file is part of GNU CC. @@ -23,15 +23,16 @@ ;;- See file "rtl.def" for documentation on define_insn, match_*, et. al. -;; SCCS rev field. This is a NOP, just to get the SCCS id into the +;; RCS rev field. This is a NOP, just to get the RCS id into the ;; program image. -(define_expand "m88k_sccs_id" +(define_expand "m88k_rcs_id" [(match_operand:SI 0 "" "")] "" - "{ static char sccs_id[] = \"@(#)m88k.md 2.3.3.2 12/16/92 08:26:12\"; + "{ static char rcs_id[] = \"$What: <@(#) m88k.md,v 1.5> $\"; FAIL; }") -;; Attribute specifications +;; Attribute describing the processor. This attribute must match exactly +;; with the processor_type enumeration in m88k.h. ; Target CPU. (define_attr "cpu" "m88100,m88110,m88000" @@ -1970,6 +1971,18 @@ DONE; }") +(define_split + [(set (match_operand:DF 0 "register_operand" "=r") + (match_operand:DF 1 "register_operand" "r"))] + "reload_completed" + [(set (match_dup 2) (match_dup 3)) + (set (match_dup 4) (match_dup 5))] + " +{ operands[2] = operand_subword (operands[0], 0, 0, DFmode); + operands[3] = operand_subword (operands[1], 0, 0, DFmode); + operands[4] = operand_subword (operands[0], 1, 0, DFmode); + operands[5] = operand_subword (operands[1], 1, 0, DFmode); }") + ;; @@ This pattern is incomplete and doesn't appear necessary. ;; ;; This pattern forces (set (reg:DF ...) (const_double ...)) |