OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove references to LSHIFT and lshlsi3. 

From-SVN: r7016
This commit is contained in:
Richard Kenner 1994-04-10 07:13:16 -04:00
parent edd2e9fe0b
commit 996a5f59fb
21 changed files with 116 additions and 488 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/config/arm/arm.c
View File

@ -1,5 +1,5 @@
/* Output routines for GCC for ARM/RISCiX. /* Output routines for GCC for ARM/RISCiX.
Copyright (C) 1991, 1993 Free Software Foundation, Inc. Copyright (C) 1991, 1993, 1994 Free Software Foundation, Inc.
Contributed by Pieter `Tiggr' Schoenmakers (rcpieter@win.tue.nl) Contributed by Pieter `Tiggr' Schoenmakers (rcpieter@win.tue.nl)
and Martin Simmons (@harleqn.co.uk). and Martin Simmons (@harleqn.co.uk).
More major hacks by Richard Earnshaw (rwe11@cl.cam.ac.uk) More major hacks by Richard Earnshaw (rwe11@cl.cam.ac.uk)
@ -443,8 +443,7 @@ shift_operator (x, mode)
if (code == MULT) if (code == MULT)
return power_of_two_operand (XEXP (x, 1)); return power_of_two_operand (XEXP (x, 1));
return (code == ASHIFT || code == LSHIFT return (code == ASHIFT || code == ASHIFTRT || code == LSHIFTRT);
|| code == ASHIFTRT || code == LSHIFTRT);
} }
} /* shift_operator */ } /* shift_operator */
@ -1344,9 +1343,6 @@ shift_instr (op, shift_ptr)
case ASHIFT: case ASHIFT:
mnem = "asl"; mnem = "asl";
break; break;
case LSHIFT:
mnem = "lsl";
break;
case ASHIFTRT: case ASHIFTRT:
mnem = "asr"; mnem = "asr";
max_shift = 32; max_shift = 32;

16
gcc/config/arm/arm.h
View File

@ -1,5 +1,5 @@
/* Definitions of target machine for GNU compiler, for Acorn RISC Machine. /* Definitions of target machine for GNU compiler, for Acorn RISC Machine.
Copyright (C) 1991, 1993 Free Software Foundation, Inc. Copyright (C) 1991, 1993, 1994 Free Software Foundation, Inc.
Contributed by Pieter `Tiggr' Schoenmakers (rcpieter@win.tue.nl) Contributed by Pieter `Tiggr' Schoenmakers (rcpieter@win.tue.nl)
and Martin Simmons (@harleqn.co.uk). and Martin Simmons (@harleqn.co.uk).
More major hacks by Richard Earnshaw (rwe11@cl.cam.ac.uk) More major hacks by Richard Earnshaw (rwe11@cl.cam.ac.uk)
@ -998,7 +998,7 @@ do \
goto LABEL; \ goto LABEL; \
} \ } \
if (GET_MODE_SIZE (MODE) <= 4 \ if (GET_MODE_SIZE (MODE) <= 4 \
&& (code == LSHIFTRT || code == ASHIFTRT || code == LSHIFT \ && (code == LSHIFTRT || code == ASHIFTRT \
|| code == ASHIFT || code == ROTATERT)) \ || code == ASHIFT || code == ROTATERT)) \
{ \ { \
rtx op = XEXP (INDEX, 1); \ rtx op = XEXP (INDEX, 1); \
@ -1239,7 +1239,6 @@ do \
&& exact_log2 (INTVAL (XEXP (X, 1))) >= 0) \ && exact_log2 (INTVAL (XEXP (X, 1))) >= 0) \
return rtx_cost (XEXP (X, 0), GET_CODE (X))+1; \ return rtx_cost (XEXP (X, 0), GET_CODE (X))+1; \
return COSTS_N_INSNS (9); \ return COSTS_N_INSNS (9); \
case LSHIFT: \
case ASHIFT: \ case ASHIFT: \
case LSHIFTRT: \ case LSHIFTRT: \
case ASHIFTRT: \ case ASHIFTRT: \
@ -1256,8 +1255,7 @@ do \
return COSTS_N_INSNS (1); \ return COSTS_N_INSNS (1); \
break; \ break; \
} \ } \
else if (code == ASHIFT || code == LSHIFT || code == ASHIFTRT \ else if (code == ASHIFT || code == ASHIFTRT || code == LSHIFTRT) \
|| code == LSHIFTRT) \
return COSTS_N_INSNS (1); \ return COSTS_N_INSNS (1); \
} /* fall through */ \ } /* fall through */ \
case PLUS: \ case PLUS: \
@ -1275,8 +1273,7 @@ do \
return COSTS_N_INSNS (12); \ return COSTS_N_INSNS (12); \
break; \ break; \
} \ } \
else if (code == ASHIFT || code == LSHIFT || code == ASHIFTRT \ else if (code == ASHIFT || code == ASHIFTRT || code == LSHIFTRT) \
|| code == LSHIFTRT) \
return COSTS_N_INSNS (1); \ return COSTS_N_INSNS (1); \
break; \ break; \
} \ } \
@ -1342,7 +1339,7 @@ do \
|| GET_CODE (X) == AND || GET_CODE (X) == IOR \ || GET_CODE (X) == AND || GET_CODE (X) == IOR \
|| GET_CODE (X) == XOR || GET_CODE (X) == MULT \ || GET_CODE (X) == XOR || GET_CODE (X) == MULT \
|| GET_CODE (X) == NOT || GET_CODE (X) == NEG \ || GET_CODE (X) == NOT || GET_CODE (X) == NEG \
|| GET_CODE (X) == LSHIFT || GET_CODE (X) == LSHIFTRT \ || GET_CODE (X) == LSHIFTRT \
|| GET_CODE (X) == ASHIFT || GET_CODE (X) == ASHIFTRT \ || GET_CODE (X) == ASHIFT || GET_CODE (X) == ASHIFTRT \
|| GET_CODE (X) == ROTATERT || GET_CODE (X) == ZERO_EXTRACT) \ || GET_CODE (X) == ROTATERT || GET_CODE (X) == ZERO_EXTRACT) \
? CC_NOOVmode \ ? CC_NOOVmode \
@ -1367,7 +1364,7 @@ extern int arm_compare_fp;
{"arm_not_operand", {SUBREG, REG, CONST_INT}}, \ {"arm_not_operand", {SUBREG, REG, CONST_INT}}, \
{"shiftable_operator", {PLUS, MINUS, AND, IOR, XOR}}, \ {"shiftable_operator", {PLUS, MINUS, AND, IOR, XOR}}, \
{"minmax_operator", {SMIN, SMAX, UMIN, UMAX}}, \ {"minmax_operator", {SMIN, SMAX, UMIN, UMAX}}, \
{"shift_operator", {ASHIFT, LSHIFT, ASHIFTRT, LSHIFTRT, MULT}}, \ {"shift_operator", {ASHIFT, ASHIFTRT, LSHIFTRT, MULT}}, \
{"di_operand", {SUBREG, REG, CONST_INT, CONST_DOUBLE, MEM}}, \ {"di_operand", {SUBREG, REG, CONST_INT, CONST_DOUBLE, MEM}}, \
{"load_multiple_operation", {PARALLEL}}, \ {"load_multiple_operation", {PARALLEL}}, \
{"store_multiple_operation", {PARALLEL}}, \ {"store_multiple_operation", {PARALLEL}}, \
@ -1780,7 +1777,6 @@ do { char dstr[30]; \
case ASHIFTRT: \ case ASHIFTRT: \
case LSHIFTRT: \ case LSHIFTRT: \
case ASHIFT: \ case ASHIFT: \
case LSHIFT: \
case ROTATERT: \ case ROTATERT: \
{ \ { \
char *shift_type = shift_instr (GET_CODE (index), \ char *shift_type = shift_instr (GET_CODE (index), \

14
gcc/config/arm/arm.md
View File

@ -1,5 +1,5 @@
;;- Machine description Acorn RISC Machine for GNU compiler ;;- Machine description Acorn RISC Machine for GNU compiler
;; Copyright (C) 1991, 1993 Free Software Foundation, Inc. ;; Copyright (C) 1991, 1993, 1994 Free Software Foundation, Inc.
;; Contributed by Pieter `Tiggr' Schoenmakers (rcpieter@win.tue.nl) ;; Contributed by Pieter `Tiggr' Schoenmakers (rcpieter@win.tue.nl)
;; and Martin Simmons (@harleqn.co.uk). ;; and Martin Simmons (@harleqn.co.uk).
;; More major hacks by Richard Earnshaw (rwe11@cl.cam.ac.uk) ;; More major hacks by Richard Earnshaw (rwe11@cl.cam.ac.uk)
@ -1472,18 +1472,6 @@
return (output_shifted_move (ASHIFTRT, operands)); return (output_shifted_move (ASHIFTRT, operands));
") ")
;; lshlsi3 is not defined because shift counts cannot be negative
;; An unnamed pattern is needed for expansion of zero_extend.
(define_insn ""
[(set (match_operand:SI 0 "s_register_operand" "=r")
(lshift:SI (match_operand:SI 1 "s_register_operand" "r")
(match_operand:SI 2 "arm_rhs_operand" "rn")))]
""
"*
return (output_shifted_move (LSHIFT, operands));
")
(define_insn "lshrsi3" (define_insn "lshrsi3"
[(set (match_operand:SI 0 "s_register_operand" "=r") [(set (match_operand:SI 0 "s_register_operand" "=r")
(lshiftrt:SI (match_operand:SI 1 "s_register_operand" "r") (lshiftrt:SI (match_operand:SI 1 "s_register_operand" "r")

4
gcc/config/clipper/clipper.h
View File

@ -1,6 +1,5 @@
/* Definitions of target machine for GNU compiler. Clipper version. /* Definitions of target machine for GNU compiler. Clipper version.
Copyright (C) 1987, 1988, 1991, 1993 Free Software Foundation, Inc. Copyright (C) 1987, 1988, 1991, 1993, 1994 Free Software Foundation, Inc.
Contributed by Holger Teutsch (holger@hotbso.rhein-main.de) Contributed by Holger Teutsch (holger@hotbso.rhein-main.de)
This file is part of GNU CC. This file is part of GNU CC.
@ -879,7 +878,6 @@ do \
case MOD: \ case MOD: \
case UMOD: \ case UMOD: \
return COSTS_N_INSNS (40); \ return COSTS_N_INSNS (40); \
case LSHIFT: \
case ASHIFT: \ case ASHIFT: \
case LSHIFTRT: \ case LSHIFTRT: \
case ASHIFTRT: \ case ASHIFTRT: \

22
gcc/config/clipper/clipper.md
View File

@ -1,6 +1,5 @@
;;- Machine description for GNU compiler, Clipper Version ;;- Machine description for GNU compiler, Clipper Version
;; Copyright (C) 1987, 1988, 1991, 1993 Free Software Foundation, Inc. ;; Copyright (C) 1987, 1988, 1991, 1993, 1994 Free Software Foundation, Inc.
;; Contributed by Holger Teutsch (holger@hotbso.rhein-main.de) ;; Contributed by Holger Teutsch (holger@hotbso.rhein-main.de)
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -1129,25 +1128,6 @@
"shlw %2,%0" "shlw %2,%0"
[(set_attr "type" "arith")]) [(set_attr "type" "arith")])
(define_insn "lshldi3"
[(set (match_operand:DI 0 "int_reg_operand" "=r,r")
(lshift:DI (match_operand:DI 1 "int_reg_operand" "0,0")
(match_operand:SI 2 "nonmemory_operand" "r,n")))]
""
"@
shll %2,%0
shlli %2,%0"
[(set_attr "type" "arith")])
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "int_reg_operand" "=r,r")
(lshift:SI (match_operand:SI 1 "int_reg_operand" "0,0")
(match_operand:SI 2 "nonmemory_operand" "r,n")))]
""
"@
shlw %2,%0
shli %2,%0"
[(set_attr "type" "arith")])
;; ;;
;; rotate insn ;; rotate insn

1
gcc/config/convex/convex.h
View File

@ -1119,7 +1119,6 @@ enum reg_class {
else break; \ else break; \
case MULT: \ case MULT: \
return 4 * (char) (0x03060403 >> target_cpu * 8); \ return 4 * (char) (0x03060403 >> target_cpu * 8); \
case LSHIFT: \
case ASHIFT: \ case ASHIFT: \
case LSHIFTRT: \ case LSHIFTRT: \
case ASHIFTRT: \ case ASHIFTRT: \

99
gcc/config/convex/convex.md
View File

@ -1,6 +1,5 @@
;;- Machine description for GNU compiler ;;- Machine description for GNU compiler, Convex Version
;;- Convex Version ;; Copyright (C) 1988, 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1988, 1993 Free Software Foundation, Inc.
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -1040,81 +1039,6 @@
;; SImode ;; SImode
;; Logical left 1, 1 cycle on all machines via add
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=r")
(lshift:SI (match_operand:SI 1 "register_operand" "0")
(const_int 1)))]
""
"add.w %0,%0")
;; C34 general shift is 1 cycle
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=d,a")
(lshift:SI (match_operand:SI 1 "register_operand" "0,0")
(match_operand:SI 2 "nonmemory_operand" "di,ai")))]
"TARGET_C34"
"@
shf.w %2,%0
shf %2,%0"
[(set_attr "type" "shfw,shfw")])
;; else shift left 0..7 is 1 cycle if we use an A register
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=a,?d")
(lshift:SI (match_operand:SI 1 "register_operand" "0,0")
(match_operand:SI 2 "immediate_operand" "ai,di")))]
"TARGET_C1 && INTVAL (operands[2]) < (unsigned) 8"
"@
shf %2,%0
shf %2,%0"
[(set_attr "type" "alu,shfl")])
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=a,?d")
(lshift:SI (match_operand:SI 1 "register_operand" "0,0")
(match_operand:SI 2 "immediate_operand" "ai,di")))]
"INTVAL (operands[2]) < (unsigned) 8"
"@
shf %2,%0
shf.w %2,%0"
[(set_attr "type" "alu,shfw")])
;; else general left shift
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=d,a")
(lshift:SI (match_operand:SI 1 "register_operand" "0,0")
(match_operand:SI 2 "nonmemory_operand" "di,ai")))]
"TARGET_C1"
"@
shf %2,%0
shf %2,%0"
[(set_attr "type" "shfl,shfw")])
;; (but C2 shift left by a constant can is faster via multiply)
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=r")
(lshift:SI (match_operand:SI 1 "register_operand" "0")
(match_operand:SI 2 "const_int_operand" "i")))]
"TARGET_C2 && INTVAL (operands[2]) < (unsigned) 32"
"mul.w %z2,%0"
[(set_attr "type" "mulw")])
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "register_operand" "=d,a")
(lshift:SI (match_operand:SI 1 "register_operand" "0,0")
(match_operand:SI 2 "nonmemory_operand" "di,ai")))]
""
"@
shf.w %2,%0
shf %2,%0"
[(set_attr "type" "shfw,shfw")])
;; Arithmetic left 1, 1 cycle on all machines via add ;; Arithmetic left 1, 1 cycle on all machines via add
(define_insn "" (define_insn ""
@ -1276,25 +1200,6 @@
[(set_attr "type" "shfl")]) [(set_attr "type" "shfl")])
;; DImode ;; DImode
;; Logical left, 1-cycle
(define_insn ""
[(set (match_operand:DI 0 "register_operand" "=d")
(lshift:DI (match_operand:DI 1 "register_operand" "0")
(const_int 1)))]
""
"add.l %0,%0")
;; Logical left, general
(define_insn "lshldi3"
[(set (match_operand:DI 0 "register_operand" "=d")
(lshift:DI (match_operand:DI 1 "register_operand" "0")
(match_operand:SI 2 "nonmemory_operand" "di")))]
""
"shf %2,%0"
[(set_attr "type" "shfl")])
;; Arithmetic left, 1-cycle ;; Arithmetic left, 1-cycle
(define_insn "" (define_insn ""

15
gcc/config/elxsi/elxsi.md
View File

@ -1,7 +1,6 @@
;;- Machine description for GNU compiler ;;- Machine description for GNU compiler, Elxsi Version
;;- Elxsi Version ;; Copyright (C) 1987, 1988, 1992, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1987, 1988, 1992 Free Software Foundation, Inc. ;; Contributed by Mike Stump <mrs@cygnus.com> in 1988, and is the first
;; This port done by Mike Stump <mrs@cygnus.com> in 1988, and is the first
;; 64 bit port of GNU CC. ;; 64 bit port of GNU CC.
;; Based upon the VAX port. ;; Based upon the VAX port.
@ -792,14 +791,6 @@
") ")
(define_insn "lshldi3"
[(set (match_operand:DI 0 "register_operand" "=r")
(lshift:DI (match_operand:DI 1 "register_operand" "r")
(match_operand:SI 2 "general_operand" "rn")))]
""
"sll\\t%0,%1,%2")
(define_insn "ashrdi3" (define_insn "ashrdi3"
[(set (match_operand:DI 0 "register_operand" "=r") [(set (match_operand:DI 0 "register_operand" "=r")
(ashiftrt:DI (match_operand:DI 1 "register_operand" "r") (ashiftrt:DI (match_operand:DI 1 "register_operand" "r")

2
gcc/config/fx80/fx80.h
View File

@ -983,7 +983,7 @@ extern enum reg_class regno_reg_class[];
switch (GET_CODE (cc_status.value2)) \ switch (GET_CODE (cc_status.value2)) \
{ case PLUS: case MINUS: case MULT: \ { case PLUS: case MINUS: case MULT: \
case DIV: case UDIV: case MOD: case UMOD: case NEG: \ case DIV: case UDIV: case MOD: case UMOD: case NEG: \
case ASHIFT: case LSHIFT: case ASHIFTRT: case LSHIFTRT: \ case ASHIFT: case ASHIFTRT: case LSHIFTRT: \
case ROTATE: case ROTATERT: \ case ROTATE: case ROTATERT: \
if (GET_MODE (cc_status.value2) != VOIDmode) \ if (GET_MODE (cc_status.value2) != VOIDmode) \
cc_status.flags |= CC_NO_OVERFLOW; \ cc_status.flags |= CC_NO_OVERFLOW; \

27
gcc/config/fx80/fx80.md
View File

@ -1,7 +1,7 @@
;;- Machine description for GNU C compiler for Alliant FX systems ;;- Machine description for GNU C compiler for Alliant FX systems
;; Copyright (C) 1989 Free Software Foundation, Inc. ;; Copyright (C) 1989, 1994 Free Software Foundation, Inc.
;; Adapted from m68k.md by Paul Petersen (petersen@uicsrd.csrd.uiuc.edu) ;; Adapted from m68k.md by Paul Petersen (petersen@uicsrd.csrd.uiuc.edu)
;; and Joe Weening (weening@gang-of-four.stanford.edu). ;; and Joe Weening (weening@gang-of-four.stanford.edu).
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -1584,27 +1584,6 @@
;; logical shift instructions ;; logical shift instructions
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "general_operand" "=d")
(lshift:SI (match_operand:SI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "dI")))]
""
"lsl%.l %2,%0")
(define_insn "lshlhi3"
[(set (match_operand:HI 0 "general_operand" "=d")
(lshift:HI (match_operand:HI 1 "general_operand" "0")
(match_operand:HI 2 "general_operand" "dI")))]
""
"lsl%.w %2,%0")
(define_insn "lshlqi3"
[(set (match_operand:QI 0 "general_operand" "=d")
(lshift:QI (match_operand:QI 1 "general_operand" "0")
(match_operand:QI 2 "general_operand" "dI")))]
""
"lsl%.b %2,%0")
(define_insn "lshrsi3" (define_insn "lshrsi3"
[(set (match_operand:SI 0 "general_operand" "=d") [(set (match_operand:SI 0 "general_operand" "=d")
(lshiftrt:SI (match_operand:SI 1 "general_operand" "0") (lshiftrt:SI (match_operand:SI 1 "general_operand" "0")

110
gcc/config/gmicro/gmicro.md
View File

@ -1,8 +1,6 @@
;;- Machine description for GNU compiler ;;- Machine description for GNU compiler, Fujitsu Gmicro Version
;;- Fujitsu Gmicro Version ;; Copyright (C) 1990, 1994 Free Software Foundation, Inc.
;;- Ported by M.Yuhara, Fujitsu Laboratories LTD. ;; Contributed by M.Yuhara, Fujitsu Laboratories LTD.
;;
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -1858,50 +1856,86 @@
;; logical shift instructions ;; logical shift instructions
(define_insn "lshlsi3" ;; Logical right shift on the gmicro works by negating the shift count,
;; then emitting a right shift with the shift count negated. This means
;; that all actual shift counts in the RTL will be positive. This
;; prevents converting shifts to ZERO_EXTRACTs with negative positions,
;; which isn't valid.
(define_expand "lshrsi3"
[(set (match_operand:SI 0 "general_operand" "=g")
(lshiftrt:SI (match_operand:SI 1 "general_operand" "g")
(match_operand:SI 2 "general_operand" "g")))]
""
"
{
if (GET_CODE (operands[2]) != CONST_INT)
operands[2] = gen_rtx (NEG, SImode, negate_rtx (SImode, operands[2]));
}")
(define_insn ""
[(set (match_operand:SI 0 "general_operand" "=rm") [(set (match_operand:SI 0 "general_operand" "=rm")
(lshift:SI (match_operand:SI 1 "general_operand" "0") (lshiftrt:SI (match_operand:SI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "rmi")))] (match_operand:SI 2 "const_int_operand" "n")))]
""
"shl.w %n2,%0")
(define_insn ""
[(set (match_operand:SI 0 "general_operand" "=rm")
(lshiftrt:SI (match_operand:SI 1 "general_operand" "0")
(neg:SI (match_operand:SI 2 "general_operand" "rm"))))]
"" ""
"shl.w %2,%0") "shl.w %2,%0")
(define_insn "lshlhi3" (define_expand "lshrhi3"
[(set (match_operand:HI 0 "general_operand" "=g")
(lshiftrt:HI (match_operand:HI 1 "general_operand" "g")
(match_operand:HI 2 "general_operand" "g")))]
""
"
{
if (GET_CODE (operands[2]) != CONST_INT)
operands[2] = gen_rtx (NEG, HImode, negate_rtx (HImode, operands[2]));
}")
(define_insn ""
[(set (match_operand:HI 0 "general_operand" "=rm") [(set (match_operand:HI 0 "general_operand" "=rm")
(lshift:HI (match_operand:HI 1 "general_operand" "0") (lshiftrt:HI (match_operand:HI 1 "general_operand" "0")
(match_operand:HI 2 "general_operand" "rmi")))] (match_operand:HI 2 "const_int_operand" "n")))]
""
"shl.h %n2,%0")
(define_insn ""
[(set (match_operand:HI 0 "general_operand" "=rm")
(lshiftrt:HI (match_operand:HI 1 "general_operand" "0")
(neg:HI (match_operand:HI 2 "general_operand" "rm"))))]
"" ""
"shl.h %2,%0") "shl.h %2,%0")
(define_insn "lshlqi3" (define_expand "lshrqi3"
[(set (match_operand:QI 0 "general_operand" "=g")
(lshiftrt:QI (match_operand:QI 1 "general_operand" "g")
(match_operand:QI 2 "general_operand" "g")))]
""
"
{
if (GET_CODE (operands[2]) != CONST_INT)
operands[2] = gen_rtx (NEG, QImode, negate_rtx (QImode, operands[2]));
}")
(define_insn ""
[(set (match_operand:QI 0 "general_operand" "=rm") [(set (match_operand:QI 0 "general_operand" "=rm")
(lshift:QI (match_operand:QI 1 "general_operand" "0") (lshiftrt:QI (match_operand:QI 1 "general_operand" "0")
(match_operand:QI 2 "general_operand" "rmi")))] (match_operand:QI 2 "const_int_operand" "n")))]
""
"shl.b %n2,%0")
(define_insn ""
[(set (match_operand:QI 0 "general_operand" "=rm")
(lshiftrt:QI (match_operand:QI 1 "general_operand" "0")
(neg:QI (match_operand:QI 2 "general_operand" "rm"))))]
"" ""
"shl.b %2,%0") "shl.b %2,%0")
;; lshiftrt -> lshift
(define_expand "lshrsi3"
[(set (match_operand:SI 0 "general_operand" "=rm")
(lshift:SI (match_operand:SI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "rmi")))]
""
" { operands[2] = negate_rtx (SImode, operands[2]); }")
;; lshiftrt -> lshift
(define_expand "lshrhi3"
[(set (match_operand:HI 0 "general_operand" "=rm")
(lshift:HI (match_operand:HI 1 "general_operand" "0")
(match_operand:HI 2 "general_operand" "rmi")))]
""
" { operands[2] = negate_rtx (HImode, operands[2]); }")
;; lshiftrt -> lshift
(define_expand "lshrqi3"
[(set (match_operand:QI 0 "general_operand" "=rm")
(lshift:QI (match_operand:QI 1 "general_operand" "0")
(match_operand:QI 2 "general_operand" "rmi")))]
""
" { operands[2] = negate_rtx (QImode, operands[2]); }")
;; rotate instructions ;; rotate instructions

78
gcc/config/i370/i370.md
View File

@ -1,7 +1,7 @@
;;- Machine description for GNU compiler -- System/370 version. ;;- Machine description for GNU compiler -- System/370 version.
;; Copyright (C) 1989, 1993 Free Software Foundation, Inc. ;; Copyright (C) 1989, 1993, 1994 Free Software Foundation, Inc.
;; Contributed by Jan Stein (jan@cd.chalmers.se). ;; Contributed by Jan Stein (jan@cd.chalmers.se).
;; Modifed for MVS C/370 by Dave Pitts (pitts@mcdata.com) ;; Modifed for MVS C/370 by Dave Pitts (pitts@mcdata.com)
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -3371,24 +3371,6 @@ check_label_emit ();
;;- Logical shift instructions. ;;- Logical shift instructions.
;; ;;
;
; lshldi3 instruction pattern(s).
;
(define_insn "lshldi3"
[(set (match_operand:DI 0 "general_operand" "=d")
(lshift:DI (match_operand:DI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "Ja")))]
""
"*
{
check_label_emit ();
mvs_check_page (0, 4, 0);
if (REG_P (operands[2]))
return \"SLDL %0,0(%2)\";
return \"SLDL %0,%c2\";
}")
; ;
; lshrdi3 instruction pattern(s). ; lshrdi3 instruction pattern(s).
; ;
@ -3407,23 +3389,6 @@ check_label_emit ();
return \"SRDL %0,%c2\"; return \"SRDL %0,%c2\";
}") }")
;
; lshlsi3 instruction pattern(s).
;
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "general_operand" "=d")
(lshift:SI (match_operand:SI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "Ja")))]
""
"*
{
check_label_emit ();
mvs_check_page (0, 4, 0);
if (REG_P (operands[2]))
return \"SLL %0,0(%2)\";
return \"SLL %0,%c2\";
}")
; ;
; lshrsi3 instruction pattern(s). ; lshrsi3 instruction pattern(s).
@ -3443,25 +3408,6 @@ check_label_emit ();
return \"SRL %0,%c2\"; return \"SRL %0,%c2\";
}") }")
;
; lshlhi3 instruction pattern(s).
;
(define_insn "lshlhi3"
[(set (match_operand:HI 0 "general_operand" "=d")
(lshift:HI (match_operand:HI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "Ja")))]
""
"*
{
check_label_emit ();
CC_STATUS_INIT;
mvs_check_page (0, 4, 0);
if (REG_P (operands[2]))
return \"SLL %0,0(%2)\";
return \"SLL %0,%c2\";
}")
; ;
; lshrhi3 instruction pattern(s). ; lshrhi3 instruction pattern(s).
; ;
@ -3484,24 +3430,6 @@ check_label_emit ();
return \"N %0,=X'0000FFFF'\;SRL %0,%c2\"; return \"N %0,=X'0000FFFF'\;SRL %0,%c2\";
}") }")
;
; lshlqi3 instruction pattern(s).
;
(define_insn "lshlqi3"
[(set (match_operand:QI 0 "general_operand" "=d")
(lshift:QI (match_operand:QI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "Ja")))]
""
"*
{
check_label_emit ();
mvs_check_page (0, 4, 0);
if (REG_P (operands[2]))
return \"SLL %0,0(%2)\";
return \"SLL %0,%c2\";
}")
; ;
; lshrqi3 instruction pattern(s). ; lshrqi3 instruction pattern(s).
; ;

2
gcc/config/m68k/m68k.c
View File

@ -1361,7 +1361,7 @@ notice_update_cc (exp, insn)
{ {
case PLUS: case MINUS: case MULT: case PLUS: case MINUS: case MULT:
case DIV: case UDIV: case MOD: case UMOD: case NEG: case DIV: case UDIV: case MOD: case UMOD: case NEG:
case ASHIFT: case LSHIFT: case ASHIFTRT: case LSHIFTRT: case ASHIFT: case ASHIFTRT: case LSHIFTRT:
case ROTATE: case ROTATERT: case ROTATE: case ROTATERT:
if (GET_MODE (cc_status.value2) != VOIDmode) if (GET_MODE (cc_status.value2) != VOIDmode)
cc_status.flags |= CC_NO_OVERFLOW; cc_status.flags |= CC_NO_OVERFLOW;

2
gcc/config/m68k/m68k.h
View File

@ -1,7 +1,6 @@
/* Definitions of target machine for GNU compiler. Sun 68000/68020 version. /* Definitions of target machine for GNU compiler. Sun 68000/68020 version.
Copyright (C) 1987, 1988, 1993, 1994 Free Software Foundation, Inc. Copyright (C) 1987, 1988, 1993, 1994 Free Software Foundation, Inc.
This file is part of GNU CC. This file is part of GNU CC.
GNU CC is free software; you can redistribute it and/or modify GNU CC is free software; you can redistribute it and/or modify
@ -1391,7 +1390,6 @@ __transfer_from_trampoline () \
break; \ break; \
case ASHIFT: \ case ASHIFT: \
case ASHIFTRT: \ case ASHIFTRT: \
case LSHIFT: \
case LSHIFTRT: \ case LSHIFTRT: \
/* A shift by a big integer takes an extra instruction. */ \ /* A shift by a big integer takes an extra instruction. */ \
if (GET_CODE (XEXP (X, 1)) == CONST_INT \ if (GET_CODE (XEXP (X, 1)) == CONST_INT \

74
gcc/config/m68k/m68k.md
View File

@ -1,6 +1,5 @@
;;- Machine description for GNU compiler ;;- Machine description for GNU compiler, Motorola 68000 Version
;;- Motorola 68000 Version ;; Copyright (C) 1987, 1988, 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1987, 1988, 1993, 1994 Free Software Foundation, Inc.
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -3552,75 +3551,6 @@
;; On all 68k models, this makes faster code in a special case. ;; On all 68k models, this makes faster code in a special case.
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=d")
(lshift:SI (match_operand:SI 1 "register_operand" "0")
(match_operand:SI 2 "immediate_operand" "i")))]
"(GET_CODE (operands[2]) == CONST_INT && INTVAL (operands[2]) == 16)"
"*
{
CC_STATUS_INIT;
return \"swap %0\;clr%.w %0\";
}")
;; On the 68000, this makes faster code in a special case.
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=d")
(lshift:SI (match_operand:SI 1 "register_operand" "0")
(match_operand:SI 2 "immediate_operand" "i")))]
"(! TARGET_68020 && GET_CODE (operands[2]) == CONST_INT
&& INTVAL (operands[2]) > 16 && INTVAL (operands[2]) <= 24)"
"*
{
CC_STATUS_INIT;
operands[2] = gen_rtx (CONST_INT, VOIDmode, INTVAL (operands[2]) - 16);
return \"lsl%.w %2,%0\;swap %0\;clr%.w %0\";
}")
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "register_operand" "=d")
(lshift:SI (match_operand:SI 1 "register_operand" "0")
(match_operand:SI 2 "general_operand" "dI")))]
""
"*
{
if (operands[2] == const1_rtx)
return \"add%.l %0,%0\";
return \"lsl%.l %2,%0\";
}")
(define_insn "lshlhi3"
[(set (match_operand:HI 0 "register_operand" "=d")
(lshift:HI (match_operand:HI 1 "register_operand" "0")
(match_operand:HI 2 "general_operand" "dI")))]
""
"lsl%.w %2,%0")
(define_insn ""
[(set (strict_low_part (match_operand:HI 0 "register_operand" "+d"))
(lshift:HI (match_dup 0)
(match_operand:HI 1 "general_operand" "dI")))]
""
"lsl%.w %1,%0")
(define_insn "lshlqi3"
[(set (match_operand:QI 0 "register_operand" "=d")
(lshift:QI (match_operand:QI 1 "register_operand" "0")
(match_operand:QI 2 "general_operand" "dI")))]
""
"lsl%.b %2,%0")
(define_insn ""
[(set (strict_low_part (match_operand:QI 0 "register_operand" "+d"))
(lshift:QI (match_dup 0)
(match_operand:QI 1 "general_operand" "dI")))]
""
"lsl%.b %1,%0")
;; On all 68k models, this makes faster code in a special case.
(define_insn "" (define_insn ""
[(set (match_operand:SI 0 "register_operand" "=d") [(set (match_operand:SI 0 "register_operand" "=d")
(lshiftrt:SI (match_operand:SI 1 "register_operand" "0") (lshiftrt:SI (match_operand:SI 1 "register_operand" "0")

8
gcc/config/m88k/m88k.c
View File

@ -1,5 +1,5 @@
/* Subroutines for insn-output.c for Motorola 88000. /* Subroutines for insn-output.c for Motorola 88000.
Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc. Copyright (C) 1988, 1989, 1990, 1991, 1994 Free Software Foundation, Inc.
Contributed by Michael Tiemann (tiemann@mcc.com) Contributed by Michael Tiemann (tiemann@mcc.com)
Enhanced by Michael Meissner (meissner@osf.org) Enhanced by Michael Meissner (meissner@osf.org)
Version 2 port by Tom Wood (twood@pets.sps.mot.com) Version 2 port by Tom Wood (twood@pets.sps.mot.com)
@ -3059,12 +3059,6 @@ print_operand_address (file, addr)
reg_names[0], reg_names[REGNO (XEXP (addr, 0))]); reg_names[0], reg_names[REGNO (XEXP (addr, 0))]);
break; break;
case LSHIFT:
fprintf (file, "%s,%shi16(", reg_names[0], m88k_pound_sign);
output_addr_const (file, XEXP (addr, 0));
fputc (')', file);
break;
case CONST_INT: case CONST_INT:
fprintf (file, "%s,%d", reg_names[0], INTVAL (addr)); fprintf (file, "%s,%d", reg_names[0], INTVAL (addr));
break; break;

28
gcc/config/m88k/m88k.md
View File

@ -1,5 +1,5 @@
;;- Machine description for the Motorola 88000 for GNU C compiler ;;- Machine description for the Motorola 88000 for GNU C compiler
;; Copyright (C) 1988, 1989, 1990, 1991, 1993 Free Software Foundation, Inc. ;; Copyright (C) 1988, 89, 90, 91, 93, 1994 Free Software Foundation, Inc.
;; Contributed by Michael Tiemann (tiemann@mcc.com) ;; Contributed by Michael Tiemann (tiemann@mcc.com)
;; Additional changes by Michael Meissner (meissner@osf.org) ;; Additional changes by Michael Meissner (meissner@osf.org)
;; Version 2 port by Tom Wood (twood@pets.sps.mot.com) ;; Version 2 port by Tom Wood (twood@pets.sps.mot.com)
@ -325,8 +325,7 @@
;; (tege@sics.se). They've changed since then, so don't complain to him ;; (tege@sics.se). They've changed since then, so don't complain to him
;; if they don't work right. ;; if they don't work right.
;; Regarding shifts, gen_lshlsi3 generates ASHIFT. LSHIFT opcodes are ;; Regarding shifts, gen_lshlsi3 generates ASHIFT. The gen functions
;; not produced and should not normally occur. Also, the gen functions
;; produce the necessary insns to support TARGET_*_LARGE_SHIFT, so nothing ;; produce the necessary insns to support TARGET_*_LARGE_SHIFT, so nothing
;; special needs to be done here. ;; special needs to be done here.
@ -3564,28 +3563,7 @@
[(set_attr "type" "bit")]) [(set_attr "type" "bit")])
;;- logical shift instructions. Logical shift left becomes arithmetic ;;- logical shift instructions. Logical shift left becomes arithmetic
;; shift left. LSHIFT is not normally produced, but is supported. ;; shift left.
(define_expand "lshlsi3"
[(set (match_operand:SI 0 "register_operand" "")
(lshift:SI (match_operand:SI 1 "register_operand" "")
(match_operand:SI 2 "arith32_operand" "")))]
""
"
{
emit_insn (gen_ashlsi3 (operands[0], operands[1], operands[2]));
DONE;
}")
(define_insn ""
[(set (match_operand:SI 0 "register_operand" "=r,r")
(lshift:SI (match_operand:SI 1 "register_operand" "r,r")
(match_operand:SI 2 "arith5_operand" "r,K")))]
""
"@
mak %0,%1,%2
mak %0,%1,0<%2>"
[(set_attr "type" "bit")])
(define_expand "lshrsi3" (define_expand "lshrsi3"
[(set (match_operand:SI 0 "register_operand" "") [(set (match_operand:SI 0 "register_operand" "")

25
gcc/config/ns32k/ns32k.md
View File

@ -1,6 +1,6 @@
;;- Machine description for GNU compiler, ns32000 Version ;;- Machine description for GNU compiler, ns32000 Version
;; Copyright (C) 1988, 1994 Free Software Foundation, Inc. ;; Copyright (C) 1988, 1994 Free Software Foundation, Inc.
;; Contributed by Michael Tiemann (tiemann@mcc.com) ;; Contributed by Michael Tiemann (tiemann@mcc.com)
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -1549,27 +1549,6 @@
;; logical shift instructions ;; logical shift instructions
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "general_operand" "=g")
(lshift:SI (match_operand:SI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "rmn")))]
""
"lshd %2,%0")
(define_insn "lshlhi3"
[(set (match_operand:HI 0 "general_operand" "=g")
(lshift:HI (match_operand:HI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "rmn")))]
""
"lshw %2,%0")
(define_insn "lshlqi3"
[(set (match_operand:QI 0 "general_operand" "=g")
(lshift:QI (match_operand:QI 1 "general_operand" "0")
(match_operand:SI 2 "general_operand" "rmn")))]
""
"lshb %2,%0")
;; Logical right shift on the 32k works by negating the shift count. ;; Logical right shift on the 32k works by negating the shift count.
(define_expand "lshrsi3" (define_expand "lshrsi3"
[(set (match_operand:SI 0 "general_operand" "=g") [(set (match_operand:SI 0 "general_operand" "=g")

14
gcc/config/rs6000/rs6000.md
View File

@ -1,6 +1,6 @@
;;- Machine description for IBM RISC System 6000 (POWER) for GNU C compiler ;; Machine description for IBM RISC System 6000 (POWER) for GNU C compiler
;; Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. ;; Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
;; Contributed by Richard Kenner (kenner@vlsi1.ultra.nyu.edu) ;; Contributed by Richard Kenner (kenner@vlsi1.ultra.nyu.edu)
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -859,14 +859,14 @@
(define_insn "" (define_insn ""
[(set (match_operand:SI 0 "gpc_reg_operand" "=r") [(set (match_operand:SI 0 "gpc_reg_operand" "=r")
(udiv:SI (udiv:SI
(plus:DI (lshift:DI (plus:DI (ashift:DI
(zero_extend:DI (match_operand:SI 1 "gpc_reg_operand" "r")) (zero_extend:DI (match_operand:SI 1 "gpc_reg_operand" "r"))
(const_int 32)) (const_int 32))
(zero_extend:DI (match_operand:SI 4 "register_operand" "2"))) (zero_extend:DI (match_operand:SI 4 "register_operand" "2")))
(match_operand:SI 3 "gpc_reg_operand" "r"))) (match_operand:SI 3 "gpc_reg_operand" "r")))
(set (match_operand:SI 2 "register_operand" "=*q") (set (match_operand:SI 2 "register_operand" "=*q")
(umod:SI (umod:SI
(plus:DI (lshift:DI (plus:DI (ashift:DI
(zero_extend:DI (match_dup 1)) (const_int 32)) (zero_extend:DI (match_dup 1)) (const_int 32))
(zero_extend:DI (match_dup 4))) (zero_extend:DI (match_dup 4)))
(match_dup 3)))] (match_dup 3)))]
@ -883,12 +883,12 @@
(define_expand "udivmodsi4_normal" (define_expand "udivmodsi4_normal"
[(set (match_dup 4) (const_int 0)) [(set (match_dup 4) (const_int 0))
(parallel [(set (match_operand:SI 0 "" "") (parallel [(set (match_operand:SI 0 "" "")
(udiv:SI (plus:DI (lshift:DI (zero_extend:DI (match_dup 4)) (udiv:SI (plus:DI (ashift:DI (zero_extend:DI (match_dup 4))
(const_int 32)) (const_int 32))
(zero_extend:DI (match_operand:SI 1 "" ""))) (zero_extend:DI (match_operand:SI 1 "" "")))
(match_operand:SI 2 "" ""))) (match_operand:SI 2 "" "")))
(set (match_operand:SI 3 "" "") (set (match_operand:SI 3 "" "")
(umod:SI (plus:DI (lshift:DI (zero_extend:DI (match_dup 4)) (umod:SI (plus:DI (ashift:DI (zero_extend:DI (match_dup 4))
(const_int 32)) (const_int 32))
(zero_extend:DI (match_dup 1))) (zero_extend:DI (match_dup 1)))
(match_dup 2)))])] (match_dup 2)))])]

41
gcc/config/tahoe/tahoe.md
View File

@ -1,6 +1,5 @@
;;- Machine description for GNU compiler ;; Machine description for GNU compiler, Tahoe version
;;- Tahoe version ;; Copyright (C) 1989, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1989 Free Software Foundation, Inc.
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -850,42 +849,6 @@
; shifts are very expensive, try some magic first... ; shifts are very expensive, try some magic first...
(define_insn "lshlsi3"
[(set (match_operand:SI 0 "general_operand" "=g")
(lshift:SI (match_operand:SI 1 "general_operand" "g")
(match_operand:QI 2 "general_operand" "g")))]
""
"*
{
if (GET_CODE(operands[2]) == REG)
return \"mull3 ___shtab[%2],%1,%0\";
/* if (GET_CODE(operands[2]) == REG)
if (rtx_equal_p (operands[0], operands[1]))
return \"mull2 ___shtab[%2],%1\";
else
return \"mull3 ___shtab[%2],%1,%0\"; */
if (GET_CODE(operands[1]) == REG)
{
if (operands[2] == const1_rtx)
{
CC_STATUS_INIT;
return \"movaw 0[%1],%0\";
}
if (GET_CODE(operands[2]) == CONST_INT && INTVAL(operands[2]) == 2)
{
CC_STATUS_INIT;
return \"moval 0[%1],%0\";
}
}
if (GET_CODE(operands[2]) != CONST_INT || INTVAL(operands[2]) == 1)
return \"shll %2,%1,%0\";
if (rtx_equal_p (operands[0], operands[1]))
return \"mull2 %s2,%1\";
else
return \"mull3 %s2,%1,%0\";
}")
(define_insn "lshrsi3" (define_insn "lshrsi3"
[(set (match_operand:SI 0 "general_operand" "=g") [(set (match_operand:SI 0 "general_operand" "=g")
(lshiftrt:SI (match_operand:SI 1 "general_operand" "g") (lshiftrt:SI (match_operand:SI 1 "general_operand" "g")

14
gcc/config/we32k/we32k.md
View File

@ -1,7 +1,6 @@
;;- Machine description for GNU compiler ;; Machine description for GNU compiler, AT&T we32000 Version
;;- AT&T we32000 Version ;; Copyright (C) 1991, 1992, 1994 Free Software Foundation, Inc.
;; Contributed by John Wehle (john@feith1.uucp) ;; Contributed by John Wehle (john@feith1.uucp)
;; Copyright (C) 1991-1992 Free Software Foundation, Inc.
;; This file is part of GNU CC. ;; This file is part of GNU CC.
@ -682,13 +681,6 @@
;; logical shift instructions ;; logical shift instructions
;; (define_insn "lshlsi3"
;; [(set (match_operand:SI 0 "nonimmediate_operand" "=mr")
;; (lshift:SI (match_operand:SI 1 "general_operand" "mri")
;; (match_operand:SI 2 "general_operand" "mri")))]
;; ""
;; "LLSW3 %2, %1, %0")
(define_insn "lshrsi3" (define_insn "lshrsi3"
[(set (match_operand:SI 0 "nonimmediate_operand" "=mr") [(set (match_operand:SI 0 "nonimmediate_operand" "=mr")
(lshiftrt:SI (match_operand:SI 1 "general_operand" "mri") (lshiftrt:SI (match_operand:SI 1 "general_operand" "mri")