1;; Constraint definitions for Synopsys DesignWare ARC.
2;; Copyright (C) 2007-2020 Free Software Foundation, Inc.
3;;
4;; This file is part of GCC.
5;;
6;; GCC is free software; you can redistribute it and/or modify
7;; it under the terms of the GNU General Public License as published by
8;; the Free Software Foundation; either version 3, or (at your option)
9;; any later version.
10;;
11;; GCC is distributed in the hope that it will be useful,
12;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14;; GNU General Public License for more details.
15;;
16;; You should have received a copy of the GNU General Public License
17;; along with GCC; see the file COPYING3.  If not see
18;; <http://www.gnu.org/licenses/>.
19
20;; Register constraints
21
22; Most instructions accept arbitrary core registers for their inputs, even
23; if the core register in question cannot be written to, like the multiply
24; result registers of ARC600.
25; First, define a class for core registers that can be read cheaply.  This
26; is most or all core registers for ARC600, but only r0-r31 for ARC700
27(define_register_constraint "c" "GENERAL_REGS"
28  "Legacy, core register @code{r0}-@code{r31}, @code{ap},@code{pcl}")
29
30; All core regs - e.g. for when we must have a way to reload a register.
31(define_register_constraint "Rac" "GENERAL_REGS"
32  "Legacy, core register @code{r0}-@code{r60}, @code{ap},@code{pcl}")
33
34; Some core registers (.e.g lp_count) aren't general registers because they
35; can't be used as the destination of a multi-cycle operation like
36; load and/or multiply, yet they are still writable in the sense that
37; register-register moves and single-cycle arithmetic (e.g "add", "and",
38; but not "mpy") can write to them.
39(define_register_constraint "w" "GENERAL_REGS"
40  "Legacy, writable core register: @code{r0}-@code{r31}, @code{r60},
41   nonfixed core register")
42
43(define_register_constraint "W" "GENERAL_REGS"
44  "Legacy, writable core register except @code{LP_COUNT} (@code{r60}):
45   @code{r0}-@code{r31}, nonfixed core register")
46
47(define_constraint "l"
48  "@internal
49   Loop count register @code{r60}"
50  (and (match_code "reg")
51       (match_test "REGNO (op) == LP_COUNT")))
52
53(define_register_constraint "x" "R0_REGS"
54  "@code{R0} register.")
55
56(define_register_constraint "q" "ARCOMPACT16_REGS"
57  "Registers usable in ARCompact 16-bit instructions: @code{r0}-@code{r3},
58   @code{r12}-@code{r15}")
59
60; NPS400 bitfield instructions require registers from the r0-r3,r12-r15
61; range, and thus we need a register class and constraint that works
62; independently of size optimization.
63(define_register_constraint
64 "Rrq" "TARGET_RRQ_CLASS ? ARCOMPACT16_REGS : NO_REGS"
65  "Registers usable in NPS400 bitfield instructions: @code{r0}-@code{r3},
66   @code{r12}-@code{r15}")
67
68(define_register_constraint "D" "DOUBLE_REGS"
69  "ARC FPX (dpfp) 64-bit registers. @code{D0}, @code{D1}")
70
71(define_register_constraint "d" "SIMD_DMA_CONFIG_REGS"
72  "@internal
73   ARC SIMD DMA configuration registers @code{di0}-@code{di7},
74   @code{do0}-@code{do7}")
75
76(define_register_constraint "v" "SIMD_VR_REGS"
77  "ARC SIMD 128-bit registers @code{VR0}-@code{VR23}")
78
79; We could allow call-saved registers for sibling calls if we restored them
80; in the delay slot of the call.  However, that would not allow to adjust the
81; stack pointer afterwards, so the call-saved register would have to be
82; restored from a call-used register that was just loaded with the value
83; before.  So sticking to call-used registers for sibcalls will likely
84; generate better code overall.
85(define_register_constraint "Rsc" "SIBCALL_REGS"
86  "@internal
87   Sibling call register")
88
89;; Integer constraints
90
91(define_constraint "I"
92  "@internal
93   A signed 12-bit integer constant."
94  (and (match_code "const_int")
95       (match_test "SIGNED_INT12 (ival)")))
96
97(define_constraint "K"
98  "@internal
99   A 3-bit unsigned integer constant"
100  (and (match_code "const_int")
101       (match_test "UNSIGNED_INT3 (ival)")))
102
103(define_constraint "L"
104  "@internal
105   A 6-bit unsigned integer constant"
106  (and (match_code "const_int")
107       (match_test "UNSIGNED_INT6 (ival)")))
108
109(define_constraint "CnL"
110  "@internal
111   One's complement of a 6-bit unsigned integer constant"
112  (and (match_code "const_int")
113       (match_test "UNSIGNED_INT6 (~ival)")))
114
115(define_constraint "CmL"
116  "@internal
117   Two's complement of a 6-bit unsigned integer constant"
118  (and (match_code "const_int")
119       (match_test "UNSIGNED_INT6 (-ival)")))
120
121(define_constraint "C16"
122  "@internal
123   A 16-bit signed integer constant"
124  (and (match_code "const_int")
125       (match_test "SIGNED_INT16 (ival)")))
126
127(define_constraint "M"
128  "@internal
129   A 5-bit unsigned integer constant"
130  (and (match_code "const_int")
131       (match_test "UNSIGNED_INT5 (ival)")))
132
133(define_constraint "N"
134  "@internal
135   Integer constant 1"
136  (and (match_code "const_int")
137       (match_test "IS_ONE (ival)")))
138
139(define_constraint "O"
140  "@internal
141   A 7-bit unsigned integer constant"
142  (and (match_code "const_int")
143       (match_test "UNSIGNED_INT7 (ival)")))
144
145(define_constraint "P"
146  "@internal
147   An 8-bit unsigned integer constant"
148  (and (match_code "const_int")
149       (match_test "UNSIGNED_INT8 (ival)")))
150
151(define_constraint "C_0"
152  "@internal
153   Zero"
154  (and (match_code "const_int")
155       (match_test "ival == 0")))
156
157(define_constraint "Cn0"
158  "@internal
159   Negative or zero"
160  (and (match_code "const_int")
161       (match_test "ival <= 0")))
162
163(define_constraint "Cca"
164  "@internal
165   Conditional or three-address add / sub constant"
166  (and (match_code "const_int")
167       (match_test "ival == (HOST_WIDE_INT)(HOST_WIDE_INT_M1U << 31)
168		    || (ival >= -0x1f8 && ival <= 0x1f8
169			&& ((ival >= 0 ? ival : -ival)
170			    <= 0x3f * (ival & -ival)))")))
171
172; intersection of "O" and "Cca".
173(define_constraint "CL2"
174  "@internal
175   A 6-bit unsigned integer constant times 2"
176  (and (match_code "const_int")
177       (match_test "!(ival & ~126)")))
178
179(define_constraint "CM4"
180  "@internal
181   A 5-bit unsigned integer constant times 4"
182  (and (match_code "const_int")
183       (match_test "!(ival & ~124)")))
184
185(define_constraint "Csp"
186  "@internal
187   A valid stack pointer offset for a short add"
188  (and (match_code "const_int")
189       (match_test "!(ival & ~124) || !(-ival & ~124)")))
190
191(define_constraint "C2a"
192  "@internal
193   Unconditional two-address add / sub constant"
194  (and (match_code "const_int")
195       (match_test "ival == (HOST_WIDE_INT) (HOST_WIDE_INT_M1U << 31)
196		    || (ival >= -0x4000 && ival <= 0x4000
197			&& ((ival >= 0 ? ival : -ival)
198			    <= 0x7ff * (ival & -ival)))")))
199
200(define_constraint "C0p"
201 "@internal
202  power of two"
203  (and (match_code "const_int")
204       (match_test "IS_POWEROF2_P (ival & 0xffffffff)")))
205
206(define_constraint "C1p"
207 "@internal
208  constant such that x+1 is a power of two, and x != 0"
209  (and (match_code "const_int")
210       (match_test "ival && IS_POWEROF2_P (ival + 1)")))
211
212(define_constraint "C2p"
213 "@internal
214  constant such that (~x)+1 is a power of two, and x < -1"
215  (and (match_code "const_int")
216       (match_test "TARGET_V2
217		    && (ival < -1)
218		    && IS_POWEROF2_P ((~ival) + 1)")))
219
220(define_constraint "C3p"
221 "@internal
222  constant int used to select xbfu a,b,u6 instruction.  The values accepted are 1 and 2."
223  (and (match_code "const_int")
224       (match_test "((ival == 1) || (ival == 2))")))
225
226(define_constraint "Ccp"
227 "@internal
228  constant such that ~x (one's Complement) is a power of two"
229  (and (match_code "const_int")
230       (match_test "IS_POWEROF2_P (~ival)")))
231
232(define_constraint "Cux"
233 "@internal
234  constant such that AND gives an unsigned extension"
235  (and (match_code "const_int")
236       (match_test "ival == 0xff || ival == 0xffff")))
237
238(define_constraint "Chs"
239 "@internal
240  constant for a highpart that can be checked with a shift (asr.f 0,rn,m)"
241  (and (match_code "const_int")
242       (match_test "IS_POWEROF2_P (-ival)")
243       (match_test "TARGET_BARREL_SHIFTER")))
244
245(define_constraint "Clo"
246 "@internal
247  constant that fits into 16 lower bits, for movl"
248  (and (match_code "const_int")
249       (match_test "TARGET_NPS_BITOPS")
250       (match_test "(ival & ~0xffffU) == 0")))
251
252(define_constraint "Chi"
253 "@internal
254  constant that fits into 16 higher bits, for movh_i"
255  (and (match_code "const_int")
256       (match_test "TARGET_NPS_BITOPS")
257       (match_test "trunc_int_for_mode (ival >> 16, HImode) << 16 == ival")))
258
259(define_constraint "Cbf"
260 "@internal
261  a mask for a bit field, for AND using movb_i"
262  (and (match_code "const_int")
263       (match_test "TARGET_NPS_BITOPS")
264       (match_test "IS_POWEROF2_OR_0_P (ival + (ival & -ival))")))
265
266(define_constraint "Cbn"
267 "@internal
268  a constant integer, valid only if TARGET_NPS_BITOPS is true"
269  (and (match_code "const_int")
270       (match_test "TARGET_NPS_BITOPS")))
271
272(define_constraint "C18"
273 "@internal
274  1,2,4 or 8"
275  (and (match_code "const_int")
276       (match_test "ival == 1 || ival == 2 || ival == 4 || ival == 8")))
277
278(define_constraint "Cbi"
279 "@internal
280  constant that can be loaded with movbi.cl"
281  (and (match_code "const_int")
282       (match_test "TARGET_NPS_BITOPS")
283       (match_test "!ival
284		    || ((ival & 0xffffffffUL) >> exact_log2 (ival & -ival)
285			<= 0xff)")))
286
287(define_constraint "C0x"
288  "@internal
289  special const_int pattern used to split ior insns"
290  (and (match_code "const_int")
291       (match_test "optimize_size")
292       (match_test "arc_check_ior_const (ival)")))
293
294(define_constraint "Cax"
295  "@internal
296  special const_int pattern used to split mov insns"
297  (and (match_code "const_int")
298       (match_test "optimize_size")
299       (match_test "arc_check_mov_const (ival)")))
300
301;; Floating-point constraints
302
303(define_constraint "G"
304  "@internal
305   A 32-bit constant double value"
306  (and (match_code "const_double")
307       (match_test "arc_double_limm_p (op)")))
308
309(define_constraint "H"
310  "@internal
311   All const_double values (including 64-bit values)"
312  (and (match_code "const_double")
313       (match_test "1")))
314
315(define_constraint "CfZ"
316  "@internal
317   Match a floating-point zero"
318  (and (match_code "const_double")
319       (match_test "op == CONST0_RTX (SFmode)")))
320
321;; Memory constraints
322(define_memory_constraint "T"
323  "@internal
324   A valid memory operand for ARCompact load instructions"
325  (and (match_code "mem")
326       (match_test "compact_memory_operand_p (op, mode, false, false)")))
327
328(define_memory_constraint "Uts"
329  "@internal
330   A valid memory operand for ARCompact load instructions scaled"
331  (and (match_code "mem")
332       (match_test "compact_memory_operand_p (op, mode, false, TARGET_CODE_DENSITY)")))
333
334(define_memory_constraint "S"
335  "@internal
336   A valid memory operand for ARCompact store instructions"
337  (and (match_code "mem")
338       (match_test "compact_store_memory_operand (op, VOIDmode)")))
339
340(define_memory_constraint "Uex"
341  "@internal
342   A valid memory operand for limm-free extend instructions"
343  (and (match_code "mem")
344       (match_test "!cmem_address (XEXP (op, 0), SImode)")
345       (not (match_operand 0 "long_immediate_loadstore_operand"))))
346
347(define_memory_constraint "Usd"
348   "@internal
349    A valid _small-data_ memory operand for ARCompact instructions"
350   (and (match_code "mem")
351	(match_test "compact_sda_memory_operand (op, VOIDmode, true)")))
352
353; Usc constant is only used for storing long constants, hence we can
354; have only [b,s9], and [b] types of addresses.
355(define_memory_constraint "Usc"
356  "@internal
357   A valid memory operand for storing constants"
358  (and (match_code "mem")
359       (match_test "!CONSTANT_P (XEXP (op,0))")))
360
361(define_constraint "Us<"
362  "@internal
363   Stack pre-decrement"
364  (and (match_code "mem")
365       (match_test "GET_CODE (XEXP (op, 0)) == PRE_DEC")
366       (match_test "REG_P (XEXP (XEXP (op, 0), 0))")
367       (match_test "REGNO (XEXP (XEXP (op, 0), 0)) == SP_REG")))
368
369(define_constraint "Us>"
370  "@internal
371   Stack post-increment"
372  (and (match_code "mem")
373       (match_test "GET_CODE (XEXP (op, 0)) == POST_INC")
374       (match_test "REG_P (XEXP (XEXP (op, 0), 0))")
375       (match_test "REGNO (XEXP (XEXP (op, 0), 0)) == SP_REG")))
376
377(define_constraint "Ucm"
378  "@internal
379  cmem access"
380  (and (match_code "mem")
381       (match_test "TARGET_NPS_CMEM && cmem_address (XEXP (op, 0), VOIDmode)")))
382
383;; General constraints
384
385(define_constraint "Cbr"
386  "Branch destination"
387  (ior (and (match_code "symbol_ref")
388	    (match_test "!arc_is_longcall_p (op)"))
389       (match_code "label_ref")))
390
391(define_constraint "Cbp"
392  "predicable branch/call destination"
393  (ior (and (match_code "symbol_ref")
394	    (match_test "arc_is_shortcall_p (op)"))
395       (match_code "label_ref")))
396
397(define_constraint "Cji"
398  "JLI call"
399  (and (match_code "symbol_ref")
400       (match_test "TARGET_CODE_DENSITY")
401       (match_test "arc_is_jli_call_p (op)")))
402
403(define_constraint "Csc"
404  "Secure call"
405  (and (match_code "symbol_ref")
406       (match_test "TARGET_CODE_DENSITY")
407       (match_test "TARGET_EM")
408       (match_test "arc_is_secure_call_p (op)")))
409
410(define_constraint "Cpc"
411  "pc-relative constant"
412  (match_test "arc_legitimate_pic_addr_p (op)"))
413
414(define_constraint "Clb"
415  "label"
416  (and (match_code "label_ref")
417       (match_test "arc_text_label (as_a <rtx_insn *> (XEXP (op, 0)))")))
418
419(define_constraint "Cal"
420  "constant for arithmetic/logical operations"
421  (match_test "immediate_operand (op, VOIDmode) && !arc_legitimate_pic_addr_p (op)"))
422
423(define_constraint "C32"
424  "32 bit constant for arithmetic/logical operations"
425  (match_test "immediate_operand (op, VOIDmode)
426	       && !arc_legitimate_pic_addr_p (op)
427	       && !satisfies_constraint_I (op)"))
428
429(define_constraint "Csz"
430  "a 32 bit constant avoided when compiling for size."
431  (match_test "immediate_operand (op, VOIDmode)
432	       && !arc_legitimate_pic_addr_p (op)
433	       && !(satisfies_constraint_I (op) && optimize_size)"))
434
435; Note that the 'cryptic' register constraints will not make reload use the
436; associated class to reload into, but this will not penalize reloading of any
437; other operands, or using an alternate part of the same alternative.
438
439; Rcq is different in three important ways from a register class constraint:
440; - It does not imply a register class, hence reload will not use it to drive
441;   reloads.
442; - It matches even when there is no register class to describe its accepted
443;   set; not having such a set again lessens the impact on register allocation.
444; - It won't match when the instruction is conditionalized by the ccfsm.
445(define_constraint "Rcq"
446  "@internal
447   Cryptic q - for short insn generation while not affecting register allocation
448   Registers usable in ARCompact 16-bit instructions: @code{r0}-@code{r3},
449   @code{r12}-@code{r15}"
450  (and (match_code "reg")
451       (match_test "TARGET_Rcq
452		    && !arc_ccfsm_cond_exec_p ()
453		    && IN_RANGE (REGNO (op) ^ 4, 4, 11)")))
454
455; If we need a reload, we generally want to steer reload to use three-address
456; alternatives in preference of two-address alternatives, unless the
457; three-address alternative introduces a LIMM that is unnecessary for the
458; two-address alternative.
459(define_constraint "Rcw"
460  "@internal
461   Cryptic w - for use in early alternatives with matching constraint"
462  (and (match_code "reg")
463       (match_test
464	"TARGET_Rcw
465	 && REGNO (op) < FIRST_PSEUDO_REGISTER
466	 && TEST_HARD_REG_BIT (reg_class_contents[GENERAL_REGS],
467			       REGNO (op))")))
468
469(define_constraint "Rcr"
470  "@internal
471   Cryptic r - for use in early alternatives with matching constraint"
472  (and (match_code "reg")
473       (match_test
474	"TARGET_Rcw
475	 && REGNO (op) < FIRST_PSEUDO_REGISTER
476	 && TEST_HARD_REG_BIT (reg_class_contents[GENERAL_REGS],
477			       REGNO (op))")))
478
479(define_constraint "Rcb"
480  "@internal
481   Stack Pointer register @code{r28} - do not reload into its class"
482  (and (match_code "reg")
483       (match_test "REGNO (op) == 28")))
484
485(define_constraint "Rck"
486  "@internal
487   blink (usful for push_s / pop_s)"
488  (and (match_code "reg")
489       (match_test "REGNO (op) == 31")))
490
491(define_constraint "Rcc"
492  "@internal
493  Condition Codes"
494  (and (match_code "reg") (match_test "cc_register (op, VOIDmode)")))
495
496
497(define_constraint "Q"
498  "@internal
499   Integer constant zero"
500  (and (match_code "const_int")
501       (match_test "IS_ZERO (ival)")))
502
503(define_constraint "Cm1"
504  "@internal
505   Integer signed constant in the interval [-1,6]"
506  (and (match_code "const_int")
507       (match_test "(ival >= -1) && (ival <=6)")
508       (match_test "TARGET_V2")))
509
510(define_constraint "Cm2"
511  "@internal
512   A signed 9-bit integer constant."
513  (and (match_code "const_int")
514       (match_test "(ival >= -256) && (ival <=255)")))
515
516(define_constraint "Cm3"
517  "@internal
518   A signed 6-bit integer constant."
519  (and (match_code "const_int")
520       (match_test "(ival >= -32) && (ival <=31)")
521       (match_test "TARGET_V2")))
522
523(define_constraint "C62"
524  "@internal
525   An unsigned 6-bit integer constant, up to 62."
526  (and (match_code "const_int")
527       (match_test "UNSIGNED_INT6 (ival - 1)")))
528
529;; Memory constraint used for atomic ops.
530(define_memory_constraint "ATO"
531  "A memory with only a base register"
532  (match_operand 0 "mem_noofs_operand"))
533
534(define_constraint "J12"
535  "@internal
536   An unsigned 12-bit integer constant."
537  (and (match_code "const_int")
538       (match_test "UNSIGNED_INT12 (ival)")))
539
540(define_constraint "J16"
541  "@internal
542   An unsigned 16-bit integer constant"
543  (and (match_code "const_int")
544       (match_test "UNSIGNED_INT16 (ival)")))
545
546; Memory addresses suited for code density load ops
547(define_memory_constraint "Ucd"
548  "@internal
549   A valid memory operand for use with code density load ops"
550  (and (match_code "mem")
551       (match_test "compact_memory_operand_p (op, mode, true, false)")
552       (match_test "TARGET_V2")))
553
554(define_register_constraint "h"
555  "TARGET_V2 ? AC16_H_REGS : NO_REGS"
556  "5-bit h register set except @code{r30} and @code{r29}:
557   @code{r0}-@code{r31}, nonfixed core register")
558
559; Code density registers
560(define_register_constraint "Rcd"
561  "TARGET_CODE_DENSITY ? R0R3_CD_REGS : NO_REGS"
562  "@internal
563   core register @code{r0}-@code{r3}")
564
565(define_register_constraint "Rsd"
566  "TARGET_CODE_DENSITY ? R0R1_CD_REGS : NO_REGS"
567  "@internal
568   core register @code{r0}-@code{r1}")
569
570(define_register_constraint "Rzd"
571  "TARGET_CODE_DENSITY ? R0_REGS : NO_REGS"
572  "@internal
573   @code{r0} register for code density instructions.")
574