gcc/config/m68k/predicates.md

   1 ;; Predicate definitions for Motorola 68000.
   2 ;; Copyright (C) 2005-2018 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 ;; Special case of a general operand that's used as a source
  21 ;; operand. Use this to permit reads from PC-relative memory when
  22 ;; -mpcrel is specified.
  23
  24 (define_predicate "general_src_operand"
  25   (match_code "const_int,const_double,const,symbol_ref,label_ref,subreg,reg,mem")
  26 {
  27   if (TARGET_PCREL
  28       && GET_CODE (op) == MEM
  29       && (GET_CODE (XEXP (op, 0)) == SYMBOL_REF
  30           || GET_CODE (XEXP (op, 0)) == LABEL_REF
  31           || GET_CODE (XEXP (op, 0)) == CONST))
  32     return 1;
  33   return general_operand (op, mode);
  34 })
  35
  36 ;; Special case of a nonimmediate operand that's used as a source. Use
  37 ;; this to permit reads from PC-relative memory when -mpcrel is
  38 ;; specified.
  39
  40 (define_predicate "nonimmediate_src_operand"
  41   (match_code "subreg,reg,mem")
  42 {
  43   if (TARGET_PCREL && GET_CODE (op) == MEM
  44       && (GET_CODE (XEXP (op, 0)) == SYMBOL_REF
  45           || GET_CODE (XEXP (op, 0)) == LABEL_REF
  46           || GET_CODE (XEXP (op, 0)) == CONST))
  47     return 1;
  48   return nonimmediate_operand (op, mode);
  49 })
  50
  51 ;; Special case of a memory operand that's used as a source. Use this
  52 ;; to permit reads from PC-relative memory when -mpcrel is specified.
  53
  54 (define_predicate "memory_src_operand"
  55   (match_code "subreg,mem")
  56 {
  57   if (TARGET_PCREL && GET_CODE (op) == MEM
  58       && (GET_CODE (XEXP (op, 0)) == SYMBOL_REF
  59           || GET_CODE (XEXP (op, 0)) == LABEL_REF
  60           || GET_CODE (XEXP (op, 0)) == CONST))
  61     return 1;
  62   return memory_operand (op, mode);
  63 })
  64
  65 ;; Similar to general_operand, but exclude stack_pointer_rtx.
  66
  67 (define_predicate "not_sp_operand"
  68   (match_code "subreg,reg,mem")
  69 {
  70   return op != stack_pointer_rtx && nonimmediate_operand (op, mode);
  71 })
  72
  73 ;; Predicate that accepts only a pc-relative address.  This is needed
  74 ;; because pc-relative addresses don't satisfy the predicate
  75 ;; "general_src_operand".
  76
  77 (define_predicate "pcrel_address"
  78   (match_code "symbol_ref,label_ref,const"))
  79
  80 ;; Accept integer operands in the range 0..0xffffffff.  We have to
  81 ;; check the range carefully since this predicate is used in DImode
  82 ;; contexts.  Also, we need some extra crud to make it work when
  83 ;; hosted on 64-bit machines.
  84
  85 (define_predicate "const_uint32_operand"
  86   (match_code "const_int,const_double")
  87 {
  88   /* It doesn't make sense to ask this question with a mode that is
  89      not larger than 32 bits.  */
  90   gcc_assert (GET_MODE_BITSIZE (mode) > 32);
  91
  92 #if HOST_BITS_PER_WIDE_INT > 32
  93   /* All allowed constants will fit a CONST_INT.  */
  94   return (GET_CODE (op) == CONST_INT
  95           && (INTVAL (op) >= 0 && INTVAL (op) <= 0xffffffffL));
  96 #else
  97   return (GET_CODE (op) == CONST_INT
  98           || (GET_CODE (op) == CONST_DOUBLE && CONST_DOUBLE_HIGH (op) == 0));
  99 #endif
 100 })
 101
 102 ;; Accept integer operands in the range -0x80000000..0x7fffffff.  We
 103 ;; have to check the range carefully since this predicate is used in
 104 ;; DImode contexts.
 105
 106 (define_predicate "const_sint32_operand"
 107   (match_code "const_int")
 108 {
 109   /* It doesn't make sense to ask this question with a mode that is
 110      not larger than 32 bits.  */
 111   gcc_assert (GET_MODE_BITSIZE (mode) > 32);
 112
 113   /* All allowed constants will fit a CONST_INT.  */
 114   return (GET_CODE (op) == CONST_INT
 115           && (INTVAL (op) >= (-0x7fffffff - 1) && INTVAL (op) <= 0x7fffffff));
 116 })
 117
 118 ;; Return true if X is a valid comparison operator for the dbcc
 119 ;; instruction.  Note it rejects floating point comparison
 120 ;; operators. (In the future we could use Fdbcc).  It also rejects
 121 ;; some comparisons when CC_NO_OVERFLOW is set.
 122
 123 (define_predicate "valid_dbcc_comparison_p"
 124   (and (match_code "eq,ne,gtu,ltu,geu,leu,gt,lt,ge,le")
 125        (match_test "valid_dbcc_comparison_p_2 (op, mode)")))
 126
 127 (define_predicate "m68k_cstore_comparison_operator"
 128   (if_then_else (match_test "TARGET_68881")
 129                 (match_operand 0 "comparison_operator")
 130                 (match_operand 0 "ordered_comparison_operator")))
 131
 132 ;; Check for sign_extend or zero_extend.  Used for bit-count operands.
 133
 134 (define_predicate "extend_operator"
 135   (match_code "sign_extend,zero_extend"))
 136
 137 ;; Returns true if OP is either a symbol reference or a sum of a
 138 ;; symbol reference and a constant.  This predicate is for "raw"
 139 ;; symbol references not yet processed by legitimize*_address,
 140 ;; hence we do not handle UNSPEC_{XGOT, TLS, XTLS} here.
 141
 142 (define_predicate "symbolic_operand"
 143   (match_code "symbol_ref,label_ref,const")
 144 {
 145   switch (GET_CODE (op))
 146     {
 147     case SYMBOL_REF:
 148     case LABEL_REF:
 149       return true;
 150
 151     case CONST:
 152       op = XEXP (op, 0);
 153       return ((GET_CODE (XEXP (op, 0)) == SYMBOL_REF
 154                || GET_CODE (XEXP (op, 0)) == LABEL_REF)
 155               && GET_CODE (XEXP (op, 1)) == CONST_INT);
 156
 157 #if 0 /* Deleted, with corresponding change in m68k.h,
 158          so as to fit the specs.  No CONST_DOUBLE is ever symbolic.  */
 159     case CONST_DOUBLE:
 160       return GET_MODE (op) == mode;
 161 #endif
 162
 163     default:
 164       return false;
 165     }
 166 })
 167
 168 ;; A constant that can be used the address in a call insn
 169 (define_predicate "const_call_operand"
 170   (ior (match_operand 0 "const_int_operand")
 171        (and (match_test "m68k_symbolic_call != NULL")
 172             (match_operand 0 "symbolic_operand"))))
 173
 174 ;; An operand that can be used as the address in a call insn.
 175 (define_predicate "call_operand"
 176   (ior (match_operand 0 "const_call_operand")
 177        (match_operand 0 "register_operand")))
 178
 179 ;; A constant that can be used the address in a sibcall insn
 180 (define_predicate "const_sibcall_operand"
 181   (ior (match_operand 0 "const_int_operand")
 182        (and (match_test "m68k_symbolic_jump != NULL")
 183             (match_operand 0 "symbolic_operand"))))
 184
 185 ;; An operand that can be used as the address in a sibcall insn.
 186 (define_predicate "sibcall_operand"
 187   (ior (match_operand 0 "const_sibcall_operand")
 188        (and (match_code "reg")
 189             (match_test "REGNO (op) == STATIC_CHAIN_REGNUM"))))
 190
 191 ;; TODO: Add a comment here.
 192
 193 (define_predicate "post_inc_operand"
 194   (and (match_code "mem")
 195        (match_test "GET_CODE (XEXP (op, 0)) == POST_INC")))
 196
 197 ;; TODO: Add a comment here.
 198
 199 (define_predicate "pre_dec_operand"
 200   (and (match_code "mem")
 201        (match_test "GET_CODE (XEXP (op, 0)) == PRE_DEC")))
 202
 203 ;; A zero constant.
 204 (define_predicate "const0_operand"
 205   (and (match_code "const_int,const_double,const_vector")
 206        (match_test "op == CONST0_RTX (mode)")))
 207
 208 ;; A one constant (operand for conditional_trap).
 209 (define_predicate "const1_operand"
 210   (and (match_code "const_int")
 211        (match_test "op == const1_rtx")))
 212
 213 ;; A valid operand for a HImode or QImode conditional operation.
 214 ;; ColdFire has tst patterns, but not cmp patterns.
 215 (define_predicate "m68k_subword_comparison_operand"
 216   (if_then_else (match_test "TARGET_COLDFIRE")
 217                 (and (match_code "const_int")
 218                      (match_test "op == const0_rtx"))
 219                 (match_operand 0 "general_src_operand")))
 220
 221 ;; An operand for movsi_const0 pattern.
 222 (define_predicate "movsi_const0_operand"
 223   (and (match_operand 0 "nonimmediate_operand")
 224        (match_test "(TARGET_68010 || TARGET_COLDFIRE)
 225                     || !(MEM_P (op) && MEM_VOLATILE_P (op))")))
 226
 227 ;; A non-symbolic call operand.
 228 ;; We need to special case 'const_int' to ignore its mode while matching.
 229 (define_predicate "non_symbolic_call_operand"
 230   (and (match_operand 0 "call_operand")
 231        (ior (and (match_code "const_int")
 232                  (match_test "!symbolic_operand (op, mode)"))
 233             (match_test "!symbolic_operand (op,mode)"))))
 234
 235 ;; Special case of general_src_operand, which rejects a few fp
 236 ;; constants (which we prefer in registers) before reload.
 237
 238 (define_predicate "fp_src_operand"
 239   (match_operand 0 "general_src_operand")
 240 {
 241   return !CONSTANT_P (op)
 242          || (TARGET_68881
 243              && (!standard_68881_constant_p (op)
 244                  || reload_in_progress
 245                  || reload_completed));
 246 })
 247
 248 ;; Used to detect constants that are valid for addq/subq instructions
 249 (define_predicate "addq_subq_operand"
 250   (match_code "const_int")
 251 {
 252   return ((INTVAL (op) <= 8 && INTVAL (op) > 0)
 253           || (INTVAL (op) >= -8 && INTVAL (op) < 0));
 254 })
 255
 256 ;; Used to detect equality and non-equality operators
 257 (define_predicate "equality_comparison_operator"
 258   (match_code "eq,ne"))
 259
 260 ;; Used to detect when an operand is either a register
 261 ;; or a constant that is all ones in its lower bits.
 262 ;; Used by insv pattern to help detect when we're initializing
 263 ;; a bitfield to all ones.
 264
 265 (define_predicate "reg_or_pow2_m1_operand"
 266   (match_code "reg,const_int")
 267 {
 268   return (REG_P (op) || pow2_m1_operand (op, VOIDmode));
 269 })
 270
 271 ;; Used to detect a constant that is all ones in its lower bits.
 272 (define_predicate "pow2_m1_operand"
 273   (match_code "const_int")
 274 {
 275   return (GET_CODE (op) == CONST_INT && exact_log2 (INTVAL (op) + 1) >= 0);
 276 })
 277
 278 ;; Used to detect valid targets for conditional branches
 279 ;; Used to detect (pc) or (label_ref) in some jumping patterns to cut down
 280 (define_predicate "pc_or_label_operand"
 281   (match_code "pc,label_ref"))
 282
 283 (define_predicate "swap_peephole_relational_operator"
 284   (match_code "gtu,leu,gt,le"))