annotate gcc/config/arm/arm-fixed.md @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ;; Copyright (C) 2011-2017 Free Software Foundation, Inc.
kono
parents:
diff changeset
2 ;;
kono
parents:
diff changeset
3 ;; This file is part of GCC.
kono
parents:
diff changeset
4 ;;
kono
parents:
diff changeset
5 ;; GCC is free software; you can redistribute it and/or modify it
kono
parents:
diff changeset
6 ;; under the terms of the GNU General Public License as published
kono
parents:
diff changeset
7 ;; by the Free Software Foundation; either version 3, or (at your
kono
parents:
diff changeset
8 ;; option) any later version.
kono
parents:
diff changeset
9 ;;
kono
parents:
diff changeset
10 ;; GCC is distributed in the hope that it will be useful, but WITHOUT
kono
parents:
diff changeset
11 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
kono
parents:
diff changeset
12 ;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
kono
parents:
diff changeset
13 ;; License for more details.
kono
parents:
diff changeset
14 ;;
kono
parents:
diff changeset
15 ;; You should have received a copy of the GNU General Public License
kono
parents:
diff changeset
16 ;; along with GCC; see the file COPYING3. If not see
kono
parents:
diff changeset
17 ;; <http://www.gnu.org/licenses/>.
kono
parents:
diff changeset
18 ;;
kono
parents:
diff changeset
19 ;; This file contains ARM instructions that support fixed-point operations.
kono
parents:
diff changeset
20
kono
parents:
diff changeset
21 (define_insn "add<mode>3"
kono
parents:
diff changeset
22 [(set (match_operand:FIXED 0 "s_register_operand" "=l,r")
kono
parents:
diff changeset
23 (plus:FIXED (match_operand:FIXED 1 "s_register_operand" "l,r")
kono
parents:
diff changeset
24 (match_operand:FIXED 2 "s_register_operand" "l,r")))]
kono
parents:
diff changeset
25 "TARGET_32BIT"
kono
parents:
diff changeset
26 "add%?\\t%0, %1, %2"
kono
parents:
diff changeset
27 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
28 (set_attr "predicable_short_it" "yes,no")
kono
parents:
diff changeset
29 (set_attr "type" "alu_sreg")])
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 (define_insn "add<mode>3"
kono
parents:
diff changeset
32 [(set (match_operand:ADDSUB 0 "s_register_operand" "=r")
kono
parents:
diff changeset
33 (plus:ADDSUB (match_operand:ADDSUB 1 "s_register_operand" "r")
kono
parents:
diff changeset
34 (match_operand:ADDSUB 2 "s_register_operand" "r")))]
kono
parents:
diff changeset
35 "TARGET_INT_SIMD"
kono
parents:
diff changeset
36 "sadd<qaddsub_suf>%?\\t%0, %1, %2"
kono
parents:
diff changeset
37 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
38 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
39 (set_attr "type" "alu_dsp_reg")])
kono
parents:
diff changeset
40
kono
parents:
diff changeset
41 (define_insn "usadd<mode>3"
kono
parents:
diff changeset
42 [(set (match_operand:UQADDSUB 0 "s_register_operand" "=r")
kono
parents:
diff changeset
43 (us_plus:UQADDSUB (match_operand:UQADDSUB 1 "s_register_operand" "r")
kono
parents:
diff changeset
44 (match_operand:UQADDSUB 2 "s_register_operand" "r")))]
kono
parents:
diff changeset
45 "TARGET_INT_SIMD"
kono
parents:
diff changeset
46 "uqadd<qaddsub_suf>%?\\t%0, %1, %2"
kono
parents:
diff changeset
47 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
48 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
49 (set_attr "type" "alu_dsp_reg")])
kono
parents:
diff changeset
50
kono
parents:
diff changeset
51 (define_insn "ssadd<mode>3"
kono
parents:
diff changeset
52 [(set (match_operand:QADDSUB 0 "s_register_operand" "=r")
kono
parents:
diff changeset
53 (ss_plus:QADDSUB (match_operand:QADDSUB 1 "s_register_operand" "r")
kono
parents:
diff changeset
54 (match_operand:QADDSUB 2 "s_register_operand" "r")))]
kono
parents:
diff changeset
55 "TARGET_INT_SIMD"
kono
parents:
diff changeset
56 "qadd<qaddsub_suf>%?\\t%0, %1, %2"
kono
parents:
diff changeset
57 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
58 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
59 (set_attr "type" "alu_dsp_reg")])
kono
parents:
diff changeset
60
kono
parents:
diff changeset
61 (define_insn "sub<mode>3"
kono
parents:
diff changeset
62 [(set (match_operand:FIXED 0 "s_register_operand" "=l,r")
kono
parents:
diff changeset
63 (minus:FIXED (match_operand:FIXED 1 "s_register_operand" "l,r")
kono
parents:
diff changeset
64 (match_operand:FIXED 2 "s_register_operand" "l,r")))]
kono
parents:
diff changeset
65 "TARGET_32BIT"
kono
parents:
diff changeset
66 "sub%?\\t%0, %1, %2"
kono
parents:
diff changeset
67 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
68 (set_attr "predicable_short_it" "yes,no")
kono
parents:
diff changeset
69 (set_attr "type" "alu_sreg")])
kono
parents:
diff changeset
70
kono
parents:
diff changeset
71 (define_insn "sub<mode>3"
kono
parents:
diff changeset
72 [(set (match_operand:ADDSUB 0 "s_register_operand" "=r")
kono
parents:
diff changeset
73 (minus:ADDSUB (match_operand:ADDSUB 1 "s_register_operand" "r")
kono
parents:
diff changeset
74 (match_operand:ADDSUB 2 "s_register_operand" "r")))]
kono
parents:
diff changeset
75 "TARGET_INT_SIMD"
kono
parents:
diff changeset
76 "ssub<qaddsub_suf>%?\\t%0, %1, %2"
kono
parents:
diff changeset
77 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
78 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
79 (set_attr "type" "alu_dsp_reg")])
kono
parents:
diff changeset
80
kono
parents:
diff changeset
81 (define_insn "ussub<mode>3"
kono
parents:
diff changeset
82 [(set (match_operand:UQADDSUB 0 "s_register_operand" "=r")
kono
parents:
diff changeset
83 (us_minus:UQADDSUB
kono
parents:
diff changeset
84 (match_operand:UQADDSUB 1 "s_register_operand" "r")
kono
parents:
diff changeset
85 (match_operand:UQADDSUB 2 "s_register_operand" "r")))]
kono
parents:
diff changeset
86 "TARGET_INT_SIMD"
kono
parents:
diff changeset
87 "uqsub<qaddsub_suf>%?\\t%0, %1, %2"
kono
parents:
diff changeset
88 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
89 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
90 (set_attr "type" "alu_dsp_reg")])
kono
parents:
diff changeset
91
kono
parents:
diff changeset
92 (define_insn "sssub<mode>3"
kono
parents:
diff changeset
93 [(set (match_operand:QADDSUB 0 "s_register_operand" "=r")
kono
parents:
diff changeset
94 (ss_minus:QADDSUB (match_operand:QADDSUB 1 "s_register_operand" "r")
kono
parents:
diff changeset
95 (match_operand:QADDSUB 2 "s_register_operand" "r")))]
kono
parents:
diff changeset
96 "TARGET_INT_SIMD"
kono
parents:
diff changeset
97 "qsub<qaddsub_suf>%?\\t%0, %1, %2"
kono
parents:
diff changeset
98 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
99 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
100 (set_attr "type" "alu_dsp_reg")])
kono
parents:
diff changeset
101
kono
parents:
diff changeset
102 ;; Fractional multiplies.
kono
parents:
diff changeset
103
kono
parents:
diff changeset
104 ; Note: none of these do any rounding.
kono
parents:
diff changeset
105
kono
parents:
diff changeset
106 (define_expand "mulqq3"
kono
parents:
diff changeset
107 [(set (match_operand:QQ 0 "s_register_operand" "")
kono
parents:
diff changeset
108 (mult:QQ (match_operand:QQ 1 "s_register_operand" "")
kono
parents:
diff changeset
109 (match_operand:QQ 2 "s_register_operand" "")))]
kono
parents:
diff changeset
110 "TARGET_DSP_MULTIPLY && arm_arch_thumb2"
kono
parents:
diff changeset
111 {
kono
parents:
diff changeset
112 rtx tmp1 = gen_reg_rtx (HImode);
kono
parents:
diff changeset
113 rtx tmp2 = gen_reg_rtx (HImode);
kono
parents:
diff changeset
114 rtx tmp3 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
115
kono
parents:
diff changeset
116 emit_insn (gen_extendqihi2 (tmp1, gen_lowpart (QImode, operands[1])));
kono
parents:
diff changeset
117 emit_insn (gen_extendqihi2 (tmp2, gen_lowpart (QImode, operands[2])));
kono
parents:
diff changeset
118 emit_insn (gen_mulhisi3 (tmp3, tmp1, tmp2));
kono
parents:
diff changeset
119 emit_insn (gen_extv (gen_lowpart (SImode, operands[0]), tmp3, GEN_INT (8),
kono
parents:
diff changeset
120 GEN_INT (7)));
kono
parents:
diff changeset
121 DONE;
kono
parents:
diff changeset
122 })
kono
parents:
diff changeset
123
kono
parents:
diff changeset
124 (define_expand "mulhq3"
kono
parents:
diff changeset
125 [(set (match_operand:HQ 0 "s_register_operand" "")
kono
parents:
diff changeset
126 (mult:HQ (match_operand:HQ 1 "s_register_operand" "")
kono
parents:
diff changeset
127 (match_operand:HQ 2 "s_register_operand" "")))]
kono
parents:
diff changeset
128 "TARGET_DSP_MULTIPLY && arm_arch_thumb2"
kono
parents:
diff changeset
129 {
kono
parents:
diff changeset
130 rtx tmp = gen_reg_rtx (SImode);
kono
parents:
diff changeset
131
kono
parents:
diff changeset
132 emit_insn (gen_mulhisi3 (tmp, gen_lowpart (HImode, operands[1]),
kono
parents:
diff changeset
133 gen_lowpart (HImode, operands[2])));
kono
parents:
diff changeset
134 /* We're doing a s.15 * s.15 multiplication, getting an s.30 result. Extract
kono
parents:
diff changeset
135 an s.15 value from that. This won't overflow/saturate for _Fract
kono
parents:
diff changeset
136 values. */
kono
parents:
diff changeset
137 emit_insn (gen_extv (gen_lowpart (SImode, operands[0]), tmp,
kono
parents:
diff changeset
138 GEN_INT (16), GEN_INT (15)));
kono
parents:
diff changeset
139 DONE;
kono
parents:
diff changeset
140 })
kono
parents:
diff changeset
141
kono
parents:
diff changeset
142 (define_expand "mulsq3"
kono
parents:
diff changeset
143 [(set (match_operand:SQ 0 "s_register_operand" "")
kono
parents:
diff changeset
144 (mult:SQ (match_operand:SQ 1 "s_register_operand" "")
kono
parents:
diff changeset
145 (match_operand:SQ 2 "s_register_operand" "")))]
kono
parents:
diff changeset
146 "TARGET_32BIT && arm_arch3m"
kono
parents:
diff changeset
147 {
kono
parents:
diff changeset
148 rtx tmp1 = gen_reg_rtx (DImode);
kono
parents:
diff changeset
149 rtx tmp2 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
150 rtx tmp3 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
151
kono
parents:
diff changeset
152 /* s.31 * s.31 -> s.62 multiplication. */
kono
parents:
diff changeset
153 emit_insn (gen_mulsidi3 (tmp1, gen_lowpart (SImode, operands[1]),
kono
parents:
diff changeset
154 gen_lowpart (SImode, operands[2])));
kono
parents:
diff changeset
155 emit_insn (gen_lshrsi3 (tmp2, gen_lowpart (SImode, tmp1), GEN_INT (31)));
kono
parents:
diff changeset
156 emit_insn (gen_ashlsi3 (tmp3, gen_highpart (SImode, tmp1), GEN_INT (1)));
kono
parents:
diff changeset
157 emit_insn (gen_iorsi3 (gen_lowpart (SImode, operands[0]), tmp2, tmp3));
kono
parents:
diff changeset
158
kono
parents:
diff changeset
159 DONE;
kono
parents:
diff changeset
160 })
kono
parents:
diff changeset
161
kono
parents:
diff changeset
162 ;; Accumulator multiplies.
kono
parents:
diff changeset
163
kono
parents:
diff changeset
164 (define_expand "mulsa3"
kono
parents:
diff changeset
165 [(set (match_operand:SA 0 "s_register_operand" "")
kono
parents:
diff changeset
166 (mult:SA (match_operand:SA 1 "s_register_operand" "")
kono
parents:
diff changeset
167 (match_operand:SA 2 "s_register_operand" "")))]
kono
parents:
diff changeset
168 "TARGET_32BIT && arm_arch3m"
kono
parents:
diff changeset
169 {
kono
parents:
diff changeset
170 rtx tmp1 = gen_reg_rtx (DImode);
kono
parents:
diff changeset
171 rtx tmp2 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
172 rtx tmp3 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
173
kono
parents:
diff changeset
174 emit_insn (gen_mulsidi3 (tmp1, gen_lowpart (SImode, operands[1]),
kono
parents:
diff changeset
175 gen_lowpart (SImode, operands[2])));
kono
parents:
diff changeset
176 emit_insn (gen_lshrsi3 (tmp2, gen_lowpart (SImode, tmp1), GEN_INT (15)));
kono
parents:
diff changeset
177 emit_insn (gen_ashlsi3 (tmp3, gen_highpart (SImode, tmp1), GEN_INT (17)));
kono
parents:
diff changeset
178 emit_insn (gen_iorsi3 (gen_lowpart (SImode, operands[0]), tmp2, tmp3));
kono
parents:
diff changeset
179
kono
parents:
diff changeset
180 DONE;
kono
parents:
diff changeset
181 })
kono
parents:
diff changeset
182
kono
parents:
diff changeset
183 (define_expand "mulusa3"
kono
parents:
diff changeset
184 [(set (match_operand:USA 0 "s_register_operand" "")
kono
parents:
diff changeset
185 (mult:USA (match_operand:USA 1 "s_register_operand" "")
kono
parents:
diff changeset
186 (match_operand:USA 2 "s_register_operand" "")))]
kono
parents:
diff changeset
187 "TARGET_32BIT && arm_arch3m"
kono
parents:
diff changeset
188 {
kono
parents:
diff changeset
189 rtx tmp1 = gen_reg_rtx (DImode);
kono
parents:
diff changeset
190 rtx tmp2 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
191 rtx tmp3 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
192
kono
parents:
diff changeset
193 emit_insn (gen_umulsidi3 (tmp1, gen_lowpart (SImode, operands[1]),
kono
parents:
diff changeset
194 gen_lowpart (SImode, operands[2])));
kono
parents:
diff changeset
195 emit_insn (gen_lshrsi3 (tmp2, gen_lowpart (SImode, tmp1), GEN_INT (16)));
kono
parents:
diff changeset
196 emit_insn (gen_ashlsi3 (tmp3, gen_highpart (SImode, tmp1), GEN_INT (16)));
kono
parents:
diff changeset
197 emit_insn (gen_iorsi3 (gen_lowpart (SImode, operands[0]), tmp2, tmp3));
kono
parents:
diff changeset
198
kono
parents:
diff changeset
199 DONE;
kono
parents:
diff changeset
200 })
kono
parents:
diff changeset
201
kono
parents:
diff changeset
202 ;; The code sequence emitted by this insn pattern uses the Q flag, which GCC
kono
parents:
diff changeset
203 ;; doesn't generally know about, so we don't bother expanding to individual
kono
parents:
diff changeset
204 ;; instructions. It may be better to just use an out-of-line asm libcall for
kono
parents:
diff changeset
205 ;; this.
kono
parents:
diff changeset
206
kono
parents:
diff changeset
207 (define_insn "ssmulsa3"
kono
parents:
diff changeset
208 [(set (match_operand:SA 0 "s_register_operand" "=r")
kono
parents:
diff changeset
209 (ss_mult:SA (match_operand:SA 1 "s_register_operand" "r")
kono
parents:
diff changeset
210 (match_operand:SA 2 "s_register_operand" "r")))
kono
parents:
diff changeset
211 (clobber (match_scratch:DI 3 "=r"))
kono
parents:
diff changeset
212 (clobber (match_scratch:SI 4 "=r"))
kono
parents:
diff changeset
213 (clobber (reg:CC CC_REGNUM))]
kono
parents:
diff changeset
214 "TARGET_32BIT && arm_arch6"
kono
parents:
diff changeset
215 {
kono
parents:
diff changeset
216 /* s16.15 * s16.15 -> s32.30. */
kono
parents:
diff changeset
217 output_asm_insn ("smull\\t%Q3, %R3, %1, %2", operands);
kono
parents:
diff changeset
218
kono
parents:
diff changeset
219 if (TARGET_ARM)
kono
parents:
diff changeset
220 output_asm_insn ("msr\\tAPSR_nzcvq, #0", operands);
kono
parents:
diff changeset
221 else
kono
parents:
diff changeset
222 {
kono
parents:
diff changeset
223 output_asm_insn ("mov\\t%4, #0", operands);
kono
parents:
diff changeset
224 output_asm_insn ("msr\\tAPSR_nzcvq, %4", operands);
kono
parents:
diff changeset
225 }
kono
parents:
diff changeset
226
kono
parents:
diff changeset
227 /* We have:
kono
parents:
diff changeset
228 31 high word 0 31 low word 0
kono
parents:
diff changeset
229
kono
parents:
diff changeset
230 [ S i i .... i i i ] [ i f f f ... f f ]
kono
parents:
diff changeset
231 |
kono
parents:
diff changeset
232 v
kono
parents:
diff changeset
233 [ S i ... i f ... f f ]
kono
parents:
diff changeset
234
kono
parents:
diff changeset
235 Need 16 integral bits, so saturate at 15th bit of high word. */
kono
parents:
diff changeset
236
kono
parents:
diff changeset
237 output_asm_insn ("ssat\\t%R3, #15, %R3", operands);
kono
parents:
diff changeset
238 output_asm_insn ("mrs\\t%4, APSR", operands);
kono
parents:
diff changeset
239 output_asm_insn ("tst\\t%4, #1<<27", operands);
kono
parents:
diff changeset
240 if (arm_restrict_it)
kono
parents:
diff changeset
241 {
kono
parents:
diff changeset
242 output_asm_insn ("mvn\\t%4, %R3, asr #32", operands);
kono
parents:
diff changeset
243 output_asm_insn ("it\\tne", operands);
kono
parents:
diff changeset
244 output_asm_insn ("movne\\t%Q3, %4", operands);
kono
parents:
diff changeset
245 }
kono
parents:
diff changeset
246 else
kono
parents:
diff changeset
247 {
kono
parents:
diff changeset
248 if (TARGET_THUMB2)
kono
parents:
diff changeset
249 output_asm_insn ("it\\tne", operands);
kono
parents:
diff changeset
250 output_asm_insn ("mvnne\\t%Q3, %R3, asr #32", operands);
kono
parents:
diff changeset
251 }
kono
parents:
diff changeset
252 output_asm_insn ("mov\\t%0, %Q3, lsr #15", operands);
kono
parents:
diff changeset
253 output_asm_insn ("orr\\t%0, %0, %R3, asl #17", operands);
kono
parents:
diff changeset
254 return "";
kono
parents:
diff changeset
255 }
kono
parents:
diff changeset
256 [(set_attr "conds" "clob")
kono
parents:
diff changeset
257 (set_attr "type" "multiple")
kono
parents:
diff changeset
258 (set (attr "length")
kono
parents:
diff changeset
259 (if_then_else (eq_attr "is_thumb" "yes")
kono
parents:
diff changeset
260 (if_then_else (match_test "arm_restrict_it")
kono
parents:
diff changeset
261 (const_int 40)
kono
parents:
diff changeset
262 (const_int 38))
kono
parents:
diff changeset
263 (const_int 32)))])
kono
parents:
diff changeset
264
kono
parents:
diff changeset
265 ;; Same goes for this.
kono
parents:
diff changeset
266
kono
parents:
diff changeset
267 (define_insn "usmulusa3"
kono
parents:
diff changeset
268 [(set (match_operand:USA 0 "s_register_operand" "=r")
kono
parents:
diff changeset
269 (us_mult:USA (match_operand:USA 1 "s_register_operand" "r")
kono
parents:
diff changeset
270 (match_operand:USA 2 "s_register_operand" "r")))
kono
parents:
diff changeset
271 (clobber (match_scratch:DI 3 "=r"))
kono
parents:
diff changeset
272 (clobber (match_scratch:SI 4 "=r"))
kono
parents:
diff changeset
273 (clobber (reg:CC CC_REGNUM))]
kono
parents:
diff changeset
274 "TARGET_32BIT && arm_arch6"
kono
parents:
diff changeset
275 {
kono
parents:
diff changeset
276 /* 16.16 * 16.16 -> 32.32. */
kono
parents:
diff changeset
277 output_asm_insn ("umull\\t%Q3, %R3, %1, %2", operands);
kono
parents:
diff changeset
278
kono
parents:
diff changeset
279 if (TARGET_ARM)
kono
parents:
diff changeset
280 output_asm_insn ("msr\\tAPSR_nzcvq, #0", operands);
kono
parents:
diff changeset
281 else
kono
parents:
diff changeset
282 {
kono
parents:
diff changeset
283 output_asm_insn ("mov\\t%4, #0", operands);
kono
parents:
diff changeset
284 output_asm_insn ("msr\\tAPSR_nzcvq, %4", operands);
kono
parents:
diff changeset
285 }
kono
parents:
diff changeset
286
kono
parents:
diff changeset
287 /* We have:
kono
parents:
diff changeset
288 31 high word 0 31 low word 0
kono
parents:
diff changeset
289
kono
parents:
diff changeset
290 [ i i i .... i i i ] [ f f f f ... f f ]
kono
parents:
diff changeset
291 |
kono
parents:
diff changeset
292 v
kono
parents:
diff changeset
293 [ i i ... i f ... f f ]
kono
parents:
diff changeset
294
kono
parents:
diff changeset
295 Need 16 integral bits, so saturate at 16th bit of high word. */
kono
parents:
diff changeset
296
kono
parents:
diff changeset
297 output_asm_insn ("usat\\t%R3, #16, %R3", operands);
kono
parents:
diff changeset
298 output_asm_insn ("mrs\\t%4, APSR", operands);
kono
parents:
diff changeset
299 output_asm_insn ("tst\\t%4, #1<<27", operands);
kono
parents:
diff changeset
300 if (arm_restrict_it)
kono
parents:
diff changeset
301 {
kono
parents:
diff changeset
302 output_asm_insn ("sbfx\\t%4, %R3, #15, #1", operands);
kono
parents:
diff changeset
303 output_asm_insn ("it\\tne", operands);
kono
parents:
diff changeset
304 output_asm_insn ("movne\\t%Q3, %4", operands);
kono
parents:
diff changeset
305 }
kono
parents:
diff changeset
306 else
kono
parents:
diff changeset
307 {
kono
parents:
diff changeset
308 if (TARGET_THUMB2)
kono
parents:
diff changeset
309 output_asm_insn ("it\\tne", operands);
kono
parents:
diff changeset
310 output_asm_insn ("sbfxne\\t%Q3, %R3, #15, #1", operands);
kono
parents:
diff changeset
311 }
kono
parents:
diff changeset
312 output_asm_insn ("lsr\\t%0, %Q3, #16", operands);
kono
parents:
diff changeset
313 output_asm_insn ("orr\\t%0, %0, %R3, asl #16", operands);
kono
parents:
diff changeset
314 return "";
kono
parents:
diff changeset
315 }
kono
parents:
diff changeset
316 [(set_attr "conds" "clob")
kono
parents:
diff changeset
317 (set_attr "type" "multiple")
kono
parents:
diff changeset
318 (set (attr "length")
kono
parents:
diff changeset
319 (if_then_else (eq_attr "is_thumb" "yes")
kono
parents:
diff changeset
320 (if_then_else (match_test "arm_restrict_it")
kono
parents:
diff changeset
321 (const_int 40)
kono
parents:
diff changeset
322 (const_int 38))
kono
parents:
diff changeset
323 (const_int 32)))])
kono
parents:
diff changeset
324
kono
parents:
diff changeset
325 (define_expand "mulha3"
kono
parents:
diff changeset
326 [(set (match_operand:HA 0 "s_register_operand" "")
kono
parents:
diff changeset
327 (mult:HA (match_operand:HA 1 "s_register_operand" "")
kono
parents:
diff changeset
328 (match_operand:HA 2 "s_register_operand" "")))]
kono
parents:
diff changeset
329 "TARGET_DSP_MULTIPLY && arm_arch_thumb2"
kono
parents:
diff changeset
330 {
kono
parents:
diff changeset
331 rtx tmp = gen_reg_rtx (SImode);
kono
parents:
diff changeset
332
kono
parents:
diff changeset
333 emit_insn (gen_mulhisi3 (tmp, gen_lowpart (HImode, operands[1]),
kono
parents:
diff changeset
334 gen_lowpart (HImode, operands[2])));
kono
parents:
diff changeset
335 emit_insn (gen_extv (gen_lowpart (SImode, operands[0]), tmp, GEN_INT (16),
kono
parents:
diff changeset
336 GEN_INT (7)));
kono
parents:
diff changeset
337
kono
parents:
diff changeset
338 DONE;
kono
parents:
diff changeset
339 })
kono
parents:
diff changeset
340
kono
parents:
diff changeset
341 (define_expand "muluha3"
kono
parents:
diff changeset
342 [(set (match_operand:UHA 0 "s_register_operand" "")
kono
parents:
diff changeset
343 (mult:UHA (match_operand:UHA 1 "s_register_operand" "")
kono
parents:
diff changeset
344 (match_operand:UHA 2 "s_register_operand" "")))]
kono
parents:
diff changeset
345 "TARGET_DSP_MULTIPLY"
kono
parents:
diff changeset
346 {
kono
parents:
diff changeset
347 rtx tmp1 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
348 rtx tmp2 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
349 rtx tmp3 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
350
kono
parents:
diff changeset
351 /* 8.8 * 8.8 -> 16.16 multiply. */
kono
parents:
diff changeset
352 emit_insn (gen_zero_extendhisi2 (tmp1, gen_lowpart (HImode, operands[1])));
kono
parents:
diff changeset
353 emit_insn (gen_zero_extendhisi2 (tmp2, gen_lowpart (HImode, operands[2])));
kono
parents:
diff changeset
354 emit_insn (gen_mulsi3 (tmp3, tmp1, tmp2));
kono
parents:
diff changeset
355 emit_insn (gen_extzv (gen_lowpart (SImode, operands[0]), tmp3,
kono
parents:
diff changeset
356 GEN_INT (16), GEN_INT (8)));
kono
parents:
diff changeset
357
kono
parents:
diff changeset
358 DONE;
kono
parents:
diff changeset
359 })
kono
parents:
diff changeset
360
kono
parents:
diff changeset
361 (define_expand "ssmulha3"
kono
parents:
diff changeset
362 [(set (match_operand:HA 0 "s_register_operand" "")
kono
parents:
diff changeset
363 (ss_mult:HA (match_operand:HA 1 "s_register_operand" "")
kono
parents:
diff changeset
364 (match_operand:HA 2 "s_register_operand" "")))]
kono
parents:
diff changeset
365 "TARGET_32BIT && TARGET_DSP_MULTIPLY && arm_arch6"
kono
parents:
diff changeset
366 {
kono
parents:
diff changeset
367 rtx tmp = gen_reg_rtx (SImode);
kono
parents:
diff changeset
368 rtx rshift;
kono
parents:
diff changeset
369
kono
parents:
diff changeset
370 emit_insn (gen_mulhisi3 (tmp, gen_lowpart (HImode, operands[1]),
kono
parents:
diff changeset
371 gen_lowpart (HImode, operands[2])));
kono
parents:
diff changeset
372
kono
parents:
diff changeset
373 rshift = gen_rtx_ASHIFTRT (SImode, tmp, GEN_INT (7));
kono
parents:
diff changeset
374
kono
parents:
diff changeset
375 emit_insn (gen_rtx_SET (gen_lowpart (HImode, operands[0]),
kono
parents:
diff changeset
376 gen_rtx_SS_TRUNCATE (HImode, rshift)));
kono
parents:
diff changeset
377
kono
parents:
diff changeset
378 DONE;
kono
parents:
diff changeset
379 })
kono
parents:
diff changeset
380
kono
parents:
diff changeset
381 (define_expand "usmuluha3"
kono
parents:
diff changeset
382 [(set (match_operand:UHA 0 "s_register_operand" "")
kono
parents:
diff changeset
383 (us_mult:UHA (match_operand:UHA 1 "s_register_operand" "")
kono
parents:
diff changeset
384 (match_operand:UHA 2 "s_register_operand" "")))]
kono
parents:
diff changeset
385 "TARGET_INT_SIMD"
kono
parents:
diff changeset
386 {
kono
parents:
diff changeset
387 rtx tmp1 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
388 rtx tmp2 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
389 rtx tmp3 = gen_reg_rtx (SImode);
kono
parents:
diff changeset
390 rtx rshift_tmp = gen_reg_rtx (SImode);
kono
parents:
diff changeset
391
kono
parents:
diff changeset
392 /* Note: there's no smul[bt][bt] equivalent for unsigned multiplies. Use a
kono
parents:
diff changeset
393 normal 32x32->32-bit multiply instead. */
kono
parents:
diff changeset
394 emit_insn (gen_zero_extendhisi2 (tmp1, gen_lowpart (HImode, operands[1])));
kono
parents:
diff changeset
395 emit_insn (gen_zero_extendhisi2 (tmp2, gen_lowpart (HImode, operands[2])));
kono
parents:
diff changeset
396
kono
parents:
diff changeset
397 emit_insn (gen_mulsi3 (tmp3, tmp1, tmp2));
kono
parents:
diff changeset
398
kono
parents:
diff changeset
399 /* The operand to "usat" is signed, so we cannot use the "..., asr #8"
kono
parents:
diff changeset
400 form of that instruction since the multiplication result TMP3 may have the
kono
parents:
diff changeset
401 top bit set, thus be negative and saturate to zero. Use a separate
kono
parents:
diff changeset
402 logical right-shift instead. */
kono
parents:
diff changeset
403 emit_insn (gen_lshrsi3 (rshift_tmp, tmp3, GEN_INT (8)));
kono
parents:
diff changeset
404 emit_insn (gen_arm_usatsihi (gen_lowpart (HImode, operands[0]), rshift_tmp));
kono
parents:
diff changeset
405
kono
parents:
diff changeset
406 DONE;
kono
parents:
diff changeset
407 })
kono
parents:
diff changeset
408
kono
parents:
diff changeset
409 (define_insn "arm_ssatsihi_shift"
kono
parents:
diff changeset
410 [(set (match_operand:HI 0 "s_register_operand" "=r")
kono
parents:
diff changeset
411 (ss_truncate:HI (match_operator:SI 1 "sat_shift_operator"
kono
parents:
diff changeset
412 [(match_operand:SI 2 "s_register_operand" "r")
kono
parents:
diff changeset
413 (match_operand:SI 3 "immediate_operand" "I")])))]
kono
parents:
diff changeset
414 "TARGET_32BIT && arm_arch6"
kono
parents:
diff changeset
415 "ssat%?\\t%0, #16, %2%S1"
kono
parents:
diff changeset
416 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
417 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
418 (set_attr "shift" "1")
kono
parents:
diff changeset
419 (set_attr "type" "alu_shift_imm")])
kono
parents:
diff changeset
420
kono
parents:
diff changeset
421 (define_insn "arm_usatsihi"
kono
parents:
diff changeset
422 [(set (match_operand:HI 0 "s_register_operand" "=r")
kono
parents:
diff changeset
423 (us_truncate:HI (match_operand:SI 1 "s_register_operand")))]
kono
parents:
diff changeset
424 "TARGET_INT_SIMD"
kono
parents:
diff changeset
425 "usat%?\\t%0, #16, %1"
kono
parents:
diff changeset
426 [(set_attr "predicable" "yes")
kono
parents:
diff changeset
427 (set_attr "predicable_short_it" "no")
kono
parents:
diff changeset
428 (set_attr "type" "alu_imm")]
kono
parents:
diff changeset
429 )