1;; Predicate definitions for Xtensa. 2;; Copyright (C) 2005-2013 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(define_predicate "add_operand" 21 (ior (and (match_code "const_int") 22 (match_test "xtensa_simm8 (INTVAL (op)) 23 || xtensa_simm8x256 (INTVAL (op))")) 24 (match_operand 0 "register_operand"))) 25 26(define_predicate "addsubx_operand" 27 (and (match_code "const_int") 28 (match_test "INTVAL (op) == 2 29 || INTVAL (op) == 4 30 || INTVAL (op) == 8"))) 31 32(define_predicate "arith_operand" 33 (ior (and (match_code "const_int") 34 (match_test "xtensa_simm8 (INTVAL (op))")) 35 (match_operand 0 "register_operand"))) 36 37;; Non-immediate operand excluding the constant pool. 38(define_predicate "nonimmed_operand" 39 (ior (and (match_operand 0 "memory_operand") 40 (match_test "!constantpool_mem_p (op)")) 41 (match_operand 0 "register_operand"))) 42 43;; Memory operand excluding the constant pool. 44(define_predicate "mem_operand" 45 (and (match_operand 0 "memory_operand") 46 (match_test "!constantpool_mem_p (op)"))) 47 48;; Memory operand in the constant pool. 49(define_predicate "constantpool_operand" 50 (match_test "constantpool_mem_p (op)")) 51 52(define_predicate "mask_operand" 53 (ior (and (match_code "const_int") 54 (match_test "xtensa_mask_immediate (INTVAL (op))")) 55 (match_operand 0 "register_operand"))) 56 57(define_predicate "extui_fldsz_operand" 58 (and (match_code "const_int") 59 (match_test "xtensa_mask_immediate ((1 << INTVAL (op)) - 1)"))) 60 61(define_predicate "sext_operand" 62 (if_then_else (match_test "TARGET_SEXT") 63 (match_operand 0 "nonimmed_operand") 64 (match_operand 0 "mem_operand"))) 65 66(define_predicate "sext_fldsz_operand" 67 (and (match_code "const_int") 68 (match_test "INTVAL (op) >= 8 && INTVAL (op) <= 23"))) 69 70(define_predicate "lsbitnum_operand" 71 (and (match_code "const_int") 72 (match_test "BITS_BIG_ENDIAN 73 ? (INTVAL (op) == BITS_PER_WORD - 1) 74 : (INTVAL (op) == 0)"))) 75 76(define_predicate "branch_operand" 77 (ior (and (match_code "const_int") 78 (match_test "xtensa_b4const_or_zero (INTVAL (op))")) 79 (match_operand 0 "register_operand"))) 80 81(define_predicate "ubranch_operand" 82 (ior (and (match_code "const_int") 83 (match_test "xtensa_b4constu (INTVAL (op))")) 84 (match_operand 0 "register_operand"))) 85 86(define_predicate "call_insn_operand" 87 (match_code "const_int,const,symbol_ref,reg") 88{ 89 if ((GET_CODE (op) == REG) 90 && (op != arg_pointer_rtx) 91 && ((REGNO (op) < FRAME_POINTER_REGNUM) 92 || (REGNO (op) > LAST_VIRTUAL_REGISTER))) 93 return true; 94 95 if (CONSTANT_ADDRESS_P (op)) 96 { 97 /* Direct calls only allowed to static functions with PIC. */ 98 if (flag_pic) 99 { 100 tree callee, callee_sec, caller_sec; 101 102 if (GET_CODE (op) != SYMBOL_REF 103 || !SYMBOL_REF_LOCAL_P (op) || SYMBOL_REF_EXTERNAL_P (op)) 104 return false; 105 106 /* Don't attempt a direct call if the callee is known to be in 107 a different section, since there's a good chance it will be 108 out of range. */ 109 110 if (flag_function_sections 111 || DECL_ONE_ONLY (current_function_decl)) 112 return false; 113 caller_sec = DECL_SECTION_NAME (current_function_decl); 114 callee = SYMBOL_REF_DECL (op); 115 if (callee) 116 { 117 if (DECL_ONE_ONLY (callee)) 118 return false; 119 callee_sec = DECL_SECTION_NAME (callee); 120 if (((caller_sec == NULL_TREE) ^ (callee_sec == NULL_TREE)) 121 || (caller_sec != NULL_TREE 122 && strcmp (TREE_STRING_POINTER (caller_sec), 123 TREE_STRING_POINTER (callee_sec)) != 0)) 124 return false; 125 } 126 else if (caller_sec != NULL_TREE) 127 return false; 128 } 129 return true; 130 } 131 132 return false; 133}) 134 135(define_predicate "move_operand" 136 (ior 137 (ior (match_operand 0 "register_operand") 138 (and (match_operand 0 "memory_operand") 139 (match_test "!constantpool_mem_p (op) 140 || GET_MODE_SIZE (mode) % UNITS_PER_WORD == 0"))) 141 (ior (and (match_code "const_int") 142 (match_test "GET_MODE_CLASS (mode) == MODE_INT 143 && xtensa_simm12b (INTVAL (op))")) 144 (and (match_code "const_int,const_double,const,symbol_ref,label_ref") 145 (match_test "TARGET_CONST16 && CONSTANT_P (op) 146 && GET_MODE_SIZE (mode) % UNITS_PER_WORD == 0"))))) 147 148;; Accept the floating point constant 1 in the appropriate mode. 149(define_predicate "const_float_1_operand" 150 (match_code "const_double") 151{ 152 REAL_VALUE_TYPE d; 153 REAL_VALUE_FROM_CONST_DOUBLE (d, op); 154 return REAL_VALUES_EQUAL (d, dconst1); 155}) 156 157(define_predicate "fpmem_offset_operand" 158 (and (match_code "const_int") 159 (match_test "xtensa_mem_offset (INTVAL (op), SFmode)"))) 160 161(define_predicate "branch_operator" 162 (match_code "eq,ne,lt,ge")) 163 164(define_predicate "ubranch_operator" 165 (match_code "ltu,geu")) 166 167(define_predicate "boolean_operator" 168 (match_code "eq,ne")) 169 170(define_predicate "xtensa_cstoresi_operator" 171 (match_code "eq,ne,gt,ge,lt,le")) 172 173(define_predicate "tls_symbol_operand" 174 (and (match_code "symbol_ref") 175 (match_test "SYMBOL_REF_TLS_MODEL (op) != 0"))) 176