gcc/config/h8300/constraints.md

   1 ;; Constraint definitions for Renesas H8/300.
   2 ;; Copyright (C) 2011-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 ;; Register constraints.
  21 (define_register_constraint "a" "MAC_REGS"
  22   "@internal")
  23
  24 (define_register_constraint "c" "COUNTER_REGS"
  25   "@internal")
  26
  27 ;; Some patterns need to use er6 as a scratch register.  This is
  28 ;; difficult to arrange since er6 is the frame pointer and usually can't
  29 ;; be spilled.
  30
  31 ;; Such patterns should define two alternatives, one which allows only
  32 ;; er6 and one which allows any general register.  The former
  33 ;; alternative should have a 'd' constraint while the latter should be
  34 ;; disparaged and use 'D'.
  35
  36 ;; Normally, 'd' maps to DESTINATION_REGS and 'D' maps to GENERAL_REGS.
  37 ;; However, there are cases where they should be NO_REGS:
  38
  39 ;;   - 'd' should be NO_REGS when reloading a function that uses the
  40 ;;     frame pointer.  In this case, DESTINATION_REGS won't contain any
  41 ;;     spillable registers, so the first alternative can't be used.
  42
  43 ;;   - -fno-omit-frame-pointer means that the frame pointer will
  44 ;;     always be in use.  It's therefore better to map 'd' to NO_REGS
  45 ;;     before reload so that register allocator will pick the second
  46 ;;     alternative.
  47
  48 ;;   - we would like 'D' to be NO_REGS when the frame pointer isn't
  49 ;;     live, but we the frame pointer may turn out to be needed after
  50 ;;     we start reload, and then we may have already decided we don't
  51 ;;     have a choice, so we can't do that.  Forcing the register
  52 ;;     allocator to use er6 if possible might produce better code for
  53 ;;     small functions: it's more efficient to save and restore er6 in
  54 ;;     the prologue & epilogue than to do it in a define_split.
  55 ;;     Hopefully disparaging 'D' will have a similar effect, without
  56 ;;     forcing a reload failure if the frame pointer is found to be
  57 ;;     needed too late.
  58
  59 (define_register_constraint "d"
  60   "(!flag_omit_frame_pointer && !reload_completed
  61     ? NO_REGS
  62     : (frame_pointer_needed && reload_in_progress
  63        ? NO_REGS
  64        : DESTINATION_REGS))"
  65   "@internal")
  66
  67 (define_register_constraint "D" "GENERAL_REGS"
  68   "@internal")
  69
  70 (define_register_constraint "f" "SOURCE_REGS"
  71   "@internal")
  72
  73 ;; Integer constraints.
  74 (define_constraint "I"
  75   "Integer zero."
  76   (and (match_code "const_int")
  77        (match_test "ival == 0")))
  78
  79 (define_constraint "J"
  80   "An integer with its low byte clear."
  81   (and (match_code "const_int")
  82        (match_test "(ival & 0xff) == 0")))
  83
  84 (define_constraint "L"
  85   "1, 2 or 4 on the H8300H or S; 1 or 2 otherwise."
  86   (and (match_code "const_int")
  87        (if_then_else (match_test "TARGET_H8300H || TARGET_H8300S")
  88                      (match_test "ival == 1 || ival == 2 || ival == 4")
  89                      (match_test "ival == 1 || ival == 2"))))
  90
  91 (define_constraint "M"
  92   "Integer 1 or 2."
  93   (and (match_code "const_int")
  94        (match_test "ival == 1 || ival == 2")))
  95
  96 (define_constraint "N"
  97   "-1, -2, or -4 on the H8300H or S; -1 or -2 otherwise."
  98   (and (match_code "const_int")
  99        (if_then_else (match_test "TARGET_H8300H || TARGET_H8300S")
 100                      (match_test "ival == -1 || ival == -2 || ival == -4")
 101                      (match_test "ival == -1 || ival == -2"))))
 102
 103 (define_constraint "O"
 104   "Integer -1 or -2."
 105   (and (match_code "const_int")
 106        (match_test "ival == -1 || ival == -2")))
 107
 108 (define_constraint "P1>X"
 109   "A positive, non-zero integer that fits in 1 bits."
 110   (and (match_code "const_int")
 111        (match_test "TARGET_H8300SX")
 112        (match_test "IN_RANGE (ival, 1, (1 << 1) - 1)")))
 113
 114 (define_constraint "P3>X"
 115   "A positive, non-zero integer that fits in 3 bits."
 116   (and (match_code "const_int")
 117        (match_test "TARGET_H8300SX")
 118        (match_test "IN_RANGE (ival, 1, (1 << 3) - 1)")))
 119
 120 (define_constraint "P4>X"
 121   "A positive, non-zero integer that fits in 4 bits."
 122   (and (match_code "const_int")
 123        (match_test "TARGET_H8300SX")
 124        (match_test "IN_RANGE (ival, 1, (1 << 4) - 1)")))
 125
 126 (define_constraint "P5>X"
 127   "A positive, non-zero integer that fits in 5 bits."
 128   (and (match_code "const_int")
 129        (match_test "TARGET_H8300SX")
 130        (match_test "IN_RANGE (ival, 1, (1 << 5) - 1)")))
 131
 132 (define_constraint "P8>X"
 133   "A positive, non-zero integer that fits in 8 bits."
 134   (and (match_code "const_int")
 135        (match_test "TARGET_H8300SX")
 136        (match_test "IN_RANGE (ival, 1, (1 << 8) - 1)")))
 137
 138 (define_constraint "P3<X"
 139   "A negative, non-zero integer that fits in 3 bits."
 140   (and (match_code "const_int")
 141        (match_test "TARGET_H8300SX")
 142        (match_test "IN_RANGE (ival, (-(1 << 3)) + 1, -1)")))
 143
 144 ;; Floating-point constraints.
 145 (define_constraint "G"
 146   "Single-float zero."
 147   (and (match_code "const_double")
 148        (match_test "op == CONST0_RTX (SFmode)")))
 149
 150 ;; Extra constraints.
 151 (define_constraint "Q"
 152   "@internal"
 153   (and (match_test "TARGET_H8300SX")
 154        (match_operand 0 "memory_operand")))
 155
 156 (define_constraint "R"
 157   "@internal"
 158   (and (match_code "const_int")
 159        (match_test "!h8300_shift_needs_scratch_p (ival, QImode)")))
 160
 161 (define_constraint "S"
 162   "@internal"
 163   (and (match_code "const_int")
 164        (match_test "!h8300_shift_needs_scratch_p (ival, HImode)")))
 165
 166 (define_constraint "T"
 167   "@internal"
 168   (and (match_code "const_int")
 169        (match_test "!h8300_shift_needs_scratch_p (ival, SImode)")))
 170
 171 (define_constraint "U"
 172   "An operand valid for a bset destination."
 173   (ior (and (match_code "reg")
 174             (match_test "(reload_in_progress || reload_completed)
 175                          ? REG_OK_FOR_BASE_STRICT_P (op)
 176                          : REG_OK_FOR_BASE_P (op)"))
 177        (and (match_code "mem")
 178             (match_code "reg" "0")
 179             (match_test "(reload_in_progress || reload_completed)
 180                          ? REG_OK_FOR_BASE_STRICT_P (XEXP (op, 0))
 181                          : REG_OK_FOR_BASE_P (XEXP (op, 0))"))
 182        (and (match_code "mem")
 183             (match_code "symbol_ref" "0")
 184             (match_test "TARGET_H8300S"))
 185        (and (match_code "mem")
 186             (match_code "const" "0")
 187             (match_code "plus" "00")
 188             (match_code "symbol_ref" "000")
 189             (match_code "const_int" "001")
 190             (ior (match_test "TARGET_H8300S")
 191                  (match_test "(SYMBOL_REF_FLAGS (XEXP (XEXP (XEXP (op, 0), 0), 0)) & SYMBOL_FLAG_EIGHTBIT_DATA) != 0")))
 192        (and (match_code "mem")
 193             (match_test "h8300_eightbit_constant_address_p (XEXP (op, 0))"))
 194        (and (match_code "mem")
 195             (ior (match_test "TARGET_H8300S")
 196                  (match_test "TARGET_H8300SX"))
 197             (match_code "const_int" "0"))))
 198
 199 (define_memory_constraint "WU"
 200   "@internal"
 201   (and (match_code "mem")
 202        (match_test "satisfies_constraint_U (op)")))
 203
 204 (define_constraint "Y0"
 205   "@internal"
 206   (and (match_code "const_int")
 207        (match_test "exact_log2 (~ival & 0xff) != -1")))
 208
 209 (define_constraint "Y2"
 210   "@internal"
 211   (and (match_code "const_int")
 212        (match_test "exact_log2 (ival & 0xff) != -1")))
 213
 214 (define_constraint "Z"
 215   "@internal"
 216   (and (match_test "TARGET_H8300SX")
 217        (match_code "mem")
 218        (match_test "CONSTANT_P (XEXP (op, 0))")))