From: kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 19 Jan 1997 22:17:16 +0000 (+0000)
Subject: (rot[lr][shq]i3): Allow 'N', 'O' or 'P' operands.
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=c68c8763fbb085050bc6f3a005d4d1b2eb64094e;p=pf3gnuchains%2Fgcc-fork.git

(rot[lr][shq]i3): Allow 'N', 'O' or 'P' operands.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@13524 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/config/m68k/m68k.md b/gcc/config/m68k/m68k.md
index 2244adff18b..877f4423cab 100644
--- a/gcc/config/m68k/m68k.md
+++ b/gcc/config/m68k/m68k.md
@@ -64,6 +64,9 @@
 ;;- 'K'  all integers EXCEPT -128 .. 127
 ;;- 'L'  -8 .. -1
 ;;- 'M'  all integers EXCEPT -256 .. 255
+;;- 'N'  24 .. 31
+;;- 'O'  16
+;;- 'P'  8 .. 15
 
 ;;- Assembler specs:
 ;;- "%."    size separator ("." or "")			move%.l d0,d1
@@ -4712,38 +4715,84 @@
 (define_insn "rotlsi3"
   [(set (match_operand:SI 0 "register_operand" "=d")
 	(rotate:SI (match_operand:SI 1 "register_operand" "0")
-		   (match_operand:SI 2 "general_operand" "dI")))]
+		   (match_operand:SI 2 "general_operand" "dINO")))]
   "!TARGET_5200"
-  "rol%.l %2,%0")
+  "*
+{
+  if (GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)
+    return \"swap %0\";
+  else if (GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) >= 16)
+    {
+      INTVAL (operands[2]) = 32 - INTVAL (operands[2]);
+      return \"ror%.l %2,%0\";
+    }
+  else
+    return \"rol%.l %2,%0\";
+}")
 
 (define_insn "rotlhi3"
   [(set (match_operand:HI 0 "register_operand" "=d")
 	(rotate:HI (match_operand:HI 1 "register_operand" "0")
-		   (match_operand:HI 2 "general_operand" "dI")))]
+		   (match_operand:HI 2 "general_operand" "dIP")))]
   "!TARGET_5200"
-  "rol%.w %2,%0")
-
+  "*
+{
+  if (GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) >= 8)
+    {
+      INTVAL (operands[2]) = 16 - INTVAL (operands[2]);
+      return \"ror%.w %2,%0\";
+    }
+  else
+    return \"rol%.w %2,%0\";
+}")
 
 (define_insn ""
   [(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
 	(rotate:HI (match_dup 0)
-		   (match_operand:HI 1 "general_operand" "dI")))]
+		   (match_operand:HI 1 "general_operand" "dIP")))]
   "!TARGET_5200"
-  "rol%.w %1,%0")
+  "*
+{
+  if (GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) >= 8)
+    {
+      INTVAL (operands[2]) = 16 - INTVAL (operands[2]);
+      return \"ror%.w %2,%0\";
+    }
+  else
+    return \"rol%.w %2,%0\";
+}")
 
 (define_insn "rotlqi3"
   [(set (match_operand:QI 0 "register_operand" "=d")
 	(rotate:QI (match_operand:QI 1 "register_operand" "0")
 		   (match_operand:QI 2 "general_operand" "dI")))]
   "!TARGET_5200"
-  "rol%.b %2,%0")
+  "*
+{
+  if (GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) >= 4)
+    {
+      INTVAL (operands[2]) = 8 - INTVAL (operands[2]);
+      return \"ror%.b %2,%0\";
+    }
+  else
+    return \"rol%.b %2,%0\";
+}")
 
 (define_insn ""
   [(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
 	(rotate:QI (match_dup 0)
 		   (match_operand:QI 1 "general_operand" "dI")))]
   "!TARGET_5200"
-  "rol%.b %1,%0")
+  "*
+{
+  if (GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) >= 4)
+    {
+      INTVAL (operands[2]) = 8 - INTVAL (operands[2]);
+      return \"ror%.b %2,%0\";
+    }
+  else
+    return \"rol%.b %2,%0\";
+}")
 
 (define_insn "rotrsi3"
   [(set (match_operand:SI 0 "register_operand" "=d")