OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [config/] [m68k/] [predicates.md] - Blame information for rev 709

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 709 jeremybenn
;; Predicate definitions for Motorola 68000.
2
;; Copyright (C) 2005, 2007 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
;; .
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
})

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.