re PR libfortran/15311 (Incorrect handling of A edit descriptor)
[official-gcc.git] / gcc / optabs.h
blob6fc6c1779e180e5b75511ae87871f957a44a82bc
1 /* Definitions for code generation pass of GNU compiler.
2 Copyright (C) 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
4 This file is part of GCC.
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 2, or (at your option)
9 any later version.
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.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING. If not, write to
18 the Free Software Foundation, 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 #ifndef GCC_OPTABS_H
22 #define GCC_OPTABS_H
24 #include "insn-codes.h"
26 /* Optabs are tables saying how to generate insn bodies
27 for various machine modes and numbers of operands.
28 Each optab applies to one operation.
29 For example, add_optab applies to addition.
31 The insn_code slot is the enum insn_code that says how to
32 generate an insn for this operation on a particular machine mode.
33 It is CODE_FOR_nothing if there is no such insn on the target machine.
35 The `lib_call' slot is the name of the library function that
36 can be used to perform the operation.
38 A few optabs, such as move_optab and cmp_optab, are used
39 by special code. */
41 struct optab_handlers GTY(())
43 enum insn_code insn_code;
44 rtx libfunc;
47 struct optab GTY(())
49 enum rtx_code code;
50 struct optab_handlers handlers[NUM_MACHINE_MODES];
52 typedef struct optab * optab;
54 /* A convert_optab is for some sort of conversion operation between
55 modes. The first array index is the destination mode, the second
56 is the source mode. */
57 struct convert_optab GTY(())
59 enum rtx_code code;
60 struct optab_handlers handlers[NUM_MACHINE_MODES][NUM_MACHINE_MODES];
62 typedef struct convert_optab *convert_optab;
64 /* Given an enum insn_code, access the function to construct
65 the body of that kind of insn. */
66 #define GEN_FCN(CODE) (insn_data[CODE].genfun)
68 /* Enumeration of valid indexes into optab_table. */
69 enum optab_index
71 OTI_add,
72 OTI_addv,
73 OTI_sub,
74 OTI_subv,
76 /* Signed and fp multiply */
77 OTI_smul,
78 OTI_smulv,
79 /* Signed multiply, return high word */
80 OTI_smul_highpart,
81 OTI_umul_highpart,
82 /* Signed multiply with result one machine mode wider than args */
83 OTI_smul_widen,
84 OTI_umul_widen,
86 /* Signed divide */
87 OTI_sdiv,
88 OTI_sdivv,
89 /* Signed divide-and-remainder in one */
90 OTI_sdivmod,
91 OTI_udiv,
92 OTI_udivmod,
93 /* Signed remainder */
94 OTI_smod,
95 OTI_umod,
96 /* Floating point remainder functions */
97 OTI_fmod,
98 OTI_drem,
99 /* Convert float to integer in float fmt */
100 OTI_ftrunc,
102 /* Logical and */
103 OTI_and,
104 /* Logical or */
105 OTI_ior,
106 /* Logical xor */
107 OTI_xor,
109 /* Arithmetic shift left */
110 OTI_ashl,
111 /* Logical shift right */
112 OTI_lshr,
113 /* Arithmetic shift right */
114 OTI_ashr,
115 /* Rotate left */
116 OTI_rotl,
117 /* Rotate right */
118 OTI_rotr,
119 /* Signed and floating-point minimum value */
120 OTI_smin,
121 /* Signed and floating-point maximum value */
122 OTI_smax,
123 /* Unsigned minimum value */
124 OTI_umin,
125 /* Unsigned maximum value */
126 OTI_umax,
127 /* Power */
128 OTI_pow,
129 /* Arc tangent of y/x */
130 OTI_atan2,
132 /* Move instruction. */
133 OTI_mov,
134 /* Move, preserving high part of register. */
135 OTI_movstrict,
137 /* Unary operations */
138 /* Negation */
139 OTI_neg,
140 OTI_negv,
141 /* Abs value */
142 OTI_abs,
143 OTI_absv,
144 /* Bitwise not */
145 OTI_one_cmpl,
146 /* Bit scanning and counting */
147 OTI_ffs,
148 OTI_clz,
149 OTI_ctz,
150 OTI_popcount,
151 OTI_parity,
152 /* Square root */
153 OTI_sqrt,
154 /* Sine-Cosine */
155 OTI_sincos,
156 /* Sine */
157 OTI_sin,
158 /* Inverse sine */
159 OTI_asin,
160 /* Cosine */
161 OTI_cos,
162 /* Inverse cosine */
163 OTI_acos,
164 /* Exponential */
165 OTI_exp,
166 /* Base-10 Exponential */
167 OTI_exp10,
168 /* Base-2 Exponential */
169 OTI_exp2,
170 /* Exponential - 1*/
171 OTI_expm1,
172 /* Radix-independent exponent */
173 OTI_logb,
174 OTI_ilogb,
175 /* Natural Logarithm */
176 OTI_log,
177 /* Base-10 Logarithm */
178 OTI_log10,
179 /* Base-2 Logarithm */
180 OTI_log2,
181 /* logarithm of 1 plus argument */
182 OTI_log1p,
183 /* Rounding functions */
184 OTI_floor,
185 OTI_ceil,
186 OTI_trunc,
187 OTI_round,
188 OTI_nearbyint,
189 /* Tangent */
190 OTI_tan,
191 /* Inverse tangent */
192 OTI_atan,
194 /* Compare insn; two operands. */
195 OTI_cmp,
196 /* Used only for libcalls for unsigned comparisons. */
197 OTI_ucmp,
198 /* tst insn; compare one operand against 0 */
199 OTI_tst,
201 /* Floating point comparison optabs - used primarily for libfuncs */
202 OTI_eq,
203 OTI_ne,
204 OTI_gt,
205 OTI_ge,
206 OTI_lt,
207 OTI_le,
208 OTI_unord,
210 /* String length */
211 OTI_strlen,
213 /* Combined compare & jump/store flags/move operations. */
214 OTI_cbranch,
215 OTI_cmov,
216 OTI_cstore,
218 /* Push instruction. */
219 OTI_push,
221 /* Conditional add instruction. */
222 OTI_addcc,
224 /* Set specified field of vector operand. */
225 OTI_vec_set,
226 /* Extract specified field of vector operand. */
227 OTI_vec_extract,
228 /* Initialize vector operand. */
229 OTI_vec_init,
231 OTI_MAX
234 extern GTY(()) optab optab_table[OTI_MAX];
236 #define add_optab (optab_table[OTI_add])
237 #define sub_optab (optab_table[OTI_sub])
238 #define smul_optab (optab_table[OTI_smul])
239 #define addv_optab (optab_table[OTI_addv])
240 #define subv_optab (optab_table[OTI_subv])
241 #define smul_highpart_optab (optab_table[OTI_smul_highpart])
242 #define umul_highpart_optab (optab_table[OTI_umul_highpart])
243 #define smul_widen_optab (optab_table[OTI_smul_widen])
244 #define umul_widen_optab (optab_table[OTI_umul_widen])
245 #define sdiv_optab (optab_table[OTI_sdiv])
246 #define smulv_optab (optab_table[OTI_smulv])
247 #define sdivv_optab (optab_table[OTI_sdivv])
248 #define sdivmod_optab (optab_table[OTI_sdivmod])
249 #define udiv_optab (optab_table[OTI_udiv])
250 #define udivmod_optab (optab_table[OTI_udivmod])
251 #define smod_optab (optab_table[OTI_smod])
252 #define umod_optab (optab_table[OTI_umod])
253 #define fmod_optab (optab_table[OTI_fmod])
254 #define drem_optab (optab_table[OTI_drem])
255 #define ftrunc_optab (optab_table[OTI_ftrunc])
256 #define and_optab (optab_table[OTI_and])
257 #define ior_optab (optab_table[OTI_ior])
258 #define xor_optab (optab_table[OTI_xor])
259 #define ashl_optab (optab_table[OTI_ashl])
260 #define lshr_optab (optab_table[OTI_lshr])
261 #define ashr_optab (optab_table[OTI_ashr])
262 #define rotl_optab (optab_table[OTI_rotl])
263 #define rotr_optab (optab_table[OTI_rotr])
264 #define smin_optab (optab_table[OTI_smin])
265 #define smax_optab (optab_table[OTI_smax])
266 #define umin_optab (optab_table[OTI_umin])
267 #define umax_optab (optab_table[OTI_umax])
268 #define pow_optab (optab_table[OTI_pow])
269 #define atan2_optab (optab_table[OTI_atan2])
271 #define mov_optab (optab_table[OTI_mov])
272 #define movstrict_optab (optab_table[OTI_movstrict])
274 #define neg_optab (optab_table[OTI_neg])
275 #define negv_optab (optab_table[OTI_negv])
276 #define abs_optab (optab_table[OTI_abs])
277 #define absv_optab (optab_table[OTI_absv])
278 #define one_cmpl_optab (optab_table[OTI_one_cmpl])
279 #define ffs_optab (optab_table[OTI_ffs])
280 #define clz_optab (optab_table[OTI_clz])
281 #define ctz_optab (optab_table[OTI_ctz])
282 #define popcount_optab (optab_table[OTI_popcount])
283 #define parity_optab (optab_table[OTI_parity])
284 #define sqrt_optab (optab_table[OTI_sqrt])
285 #define sincos_optab (optab_table[OTI_sincos])
286 #define sin_optab (optab_table[OTI_sin])
287 #define asin_optab (optab_table[OTI_asin])
288 #define cos_optab (optab_table[OTI_cos])
289 #define acos_optab (optab_table[OTI_acos])
290 #define exp_optab (optab_table[OTI_exp])
291 #define exp10_optab (optab_table[OTI_exp10])
292 #define exp2_optab (optab_table[OTI_exp2])
293 #define expm1_optab (optab_table[OTI_expm1])
294 #define logb_optab (optab_table[OTI_logb])
295 #define ilogb_optab (optab_table[OTI_ilogb])
296 #define log_optab (optab_table[OTI_log])
297 #define log10_optab (optab_table[OTI_log10])
298 #define log2_optab (optab_table[OTI_log2])
299 #define log1p_optab (optab_table[OTI_log1p])
300 #define floor_optab (optab_table[OTI_floor])
301 #define ceil_optab (optab_table[OTI_ceil])
302 #define btrunc_optab (optab_table[OTI_trunc])
303 #define round_optab (optab_table[OTI_round])
304 #define nearbyint_optab (optab_table[OTI_nearbyint])
305 #define tan_optab (optab_table[OTI_tan])
306 #define atan_optab (optab_table[OTI_atan])
308 #define cmp_optab (optab_table[OTI_cmp])
309 #define ucmp_optab (optab_table[OTI_ucmp])
310 #define tst_optab (optab_table[OTI_tst])
312 #define eq_optab (optab_table[OTI_eq])
313 #define ne_optab (optab_table[OTI_ne])
314 #define gt_optab (optab_table[OTI_gt])
315 #define ge_optab (optab_table[OTI_ge])
316 #define lt_optab (optab_table[OTI_lt])
317 #define le_optab (optab_table[OTI_le])
318 #define unord_optab (optab_table[OTI_unord])
320 #define strlen_optab (optab_table[OTI_strlen])
322 #define cbranch_optab (optab_table[OTI_cbranch])
323 #define cmov_optab (optab_table[OTI_cmov])
324 #define cstore_optab (optab_table[OTI_cstore])
325 #define push_optab (optab_table[OTI_push])
326 #define addcc_optab (optab_table[OTI_addcc])
328 #define vec_set_optab (optab_table[OTI_vec_set])
329 #define vec_extract_optab (optab_table[OTI_vec_extract])
330 #define vec_init_optab (optab_table[OTI_vec_init])
332 /* Conversion optabs have their own table and indexes. */
333 enum convert_optab_index
335 CTI_sext,
336 CTI_zext,
337 CTI_trunc,
339 CTI_sfix,
340 CTI_ufix,
342 CTI_sfixtrunc,
343 CTI_ufixtrunc,
345 CTI_sfloat,
346 CTI_ufloat,
348 CTI_MAX
351 extern GTY(()) convert_optab convert_optab_table[CTI_MAX];
353 #define sext_optab (convert_optab_table[CTI_sext])
354 #define zext_optab (convert_optab_table[CTI_zext])
355 #define trunc_optab (convert_optab_table[CTI_trunc])
356 #define sfix_optab (convert_optab_table[CTI_sfix])
357 #define ufix_optab (convert_optab_table[CTI_ufix])
358 #define sfixtrunc_optab (convert_optab_table[CTI_sfixtrunc])
359 #define ufixtrunc_optab (convert_optab_table[CTI_ufixtrunc])
360 #define sfloat_optab (convert_optab_table[CTI_sfloat])
361 #define ufloat_optab (convert_optab_table[CTI_ufloat])
363 /* These arrays record the insn_code of insns that may be needed to
364 perform input and output reloads of special objects. They provide a
365 place to pass a scratch register. */
366 extern enum insn_code reload_in_optab[NUM_MACHINE_MODES];
367 extern enum insn_code reload_out_optab[NUM_MACHINE_MODES];
369 /* Contains the optab used for each rtx code. */
370 extern GTY(()) optab code_to_optab[NUM_RTX_CODE + 1];
373 typedef rtx (*rtxfun) (rtx);
375 /* Indexed by the rtx-code for a conditional (eg. EQ, LT,...)
376 gives the gen_function to make a branch to test that condition. */
378 extern rtxfun bcc_gen_fctn[NUM_RTX_CODE];
380 /* Indexed by the rtx-code for a conditional (eg. EQ, LT,...)
381 gives the insn code to make a store-condition insn
382 to test that condition. */
384 extern enum insn_code setcc_gen_code[NUM_RTX_CODE];
386 #ifdef HAVE_conditional_move
387 /* Indexed by the machine mode, gives the insn code to make a conditional
388 move insn. */
390 extern enum insn_code movcc_gen_code[NUM_MACHINE_MODES];
391 #endif
393 /* This array records the insn_code of insns to perform block moves. */
394 extern enum insn_code movstr_optab[NUM_MACHINE_MODES];
396 /* This array records the insn_code of insns to perform block clears. */
397 extern enum insn_code clrstr_optab[NUM_MACHINE_MODES];
399 /* These arrays record the insn_code of two different kinds of insns
400 to perform block compares. */
401 extern enum insn_code cmpstr_optab[NUM_MACHINE_MODES];
402 extern enum insn_code cmpmem_optab[NUM_MACHINE_MODES];
404 /* Define functions given in optabs.c. */
406 /* Expand a binary operation given optab and rtx operands. */
407 extern rtx expand_binop (enum machine_mode, optab, rtx, rtx, rtx, int,
408 enum optab_methods);
410 /* Expand a binary operation with both signed and unsigned forms. */
411 extern rtx sign_expand_binop (enum machine_mode, optab, optab, rtx, rtx,
412 rtx, int, enum optab_methods);
414 /* Generate code to perform an operation on one operand with two results. */
415 extern int expand_twoval_unop (optab, rtx, rtx, rtx, int);
417 /* Generate code to perform an operation on two operands with two results. */
418 extern int expand_twoval_binop (optab, rtx, rtx, rtx, rtx, int);
420 /* Expand a unary arithmetic operation given optab rtx operand. */
421 extern rtx expand_unop (enum machine_mode, optab, rtx, rtx, int);
423 /* Expand the absolute value operation. */
424 extern rtx expand_abs_nojump (enum machine_mode, rtx, rtx, int);
425 extern rtx expand_abs (enum machine_mode, rtx, rtx, int, int);
427 /* Expand the complex absolute value operation. */
428 extern rtx expand_complex_abs (enum machine_mode, rtx, rtx, int);
430 /* Generate an instruction with a given INSN_CODE with an output and
431 an input. */
432 extern void emit_unop_insn (int, rtx, rtx, enum rtx_code);
434 /* Emit code to perform a series of operations on a multi-word quantity, one
435 word at a time. */
436 extern rtx emit_no_conflict_block (rtx, rtx, rtx, rtx, rtx);
438 /* Emit one rtl instruction to store zero in specified rtx. */
439 extern void emit_clr_insn (rtx);
441 /* Emit one rtl insn to store 1 in specified rtx assuming it contains 0. */
442 extern void emit_0_to_1_insn (rtx);
444 /* Emit one rtl insn to compare two rtx's. */
445 extern void emit_cmp_insn (rtx, rtx, enum rtx_code, rtx, enum machine_mode,
446 int);
448 /* The various uses that a comparison can have; used by can_compare_p:
449 jumps, conditional moves, store flag operations. */
450 enum can_compare_purpose
452 ccp_jump,
453 ccp_cmov,
454 ccp_store_flag
457 /* Nonzero if a compare of mode MODE can be done straightforwardly
458 (without splitting it into pieces). */
459 extern int can_compare_p (enum rtx_code, enum machine_mode,
460 enum can_compare_purpose);
462 extern rtx prepare_operand (int, rtx, int, enum machine_mode,
463 enum machine_mode, int);
465 /* Return the INSN_CODE to use for an extend operation. */
466 extern enum insn_code can_extend_p (enum machine_mode, enum machine_mode, int);
468 /* Generate the body of an insn to extend Y (with mode MFROM)
469 into X (with mode MTO). Do zero-extension if UNSIGNEDP is nonzero. */
470 extern rtx gen_extend_insn (rtx, rtx, enum machine_mode,
471 enum machine_mode, int);
473 /* Initialize the tables that control conversion between fixed and
474 floating values. */
475 extern void init_fixtab (void);
476 extern void init_floattab (void);
478 /* Call this to reset the function entry for one optab. */
479 extern void set_optab_libfunc (optab, enum machine_mode, const char *);
480 extern void set_conv_libfunc (convert_optab, enum machine_mode,
481 enum machine_mode, const char *);
483 /* Generate code for a FLOAT_EXPR. */
484 extern void expand_float (rtx, rtx, int);
486 /* Generate code for a FIX_EXPR. */
487 extern void expand_fix (rtx, rtx, int);
489 #endif /* GCC_OPTABS_H */