re PR fortran/78659 ([F03] Spurious "requires DTIO" reported against namelist statement)
[official-gcc.git] / gcc / emit-rtl.h
bloba919bf072ab56e4557e83213d75bc76d08ae1b47
1 /* Exported functions from emit-rtl.c
2 Copyright (C) 2004-2016 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
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/>. */
20 #ifndef GCC_EMIT_RTL_H
21 #define GCC_EMIT_RTL_H
23 struct temp_slot;
24 typedef struct temp_slot *temp_slot_p;
26 /* Information mainlined about RTL representation of incoming arguments. */
27 struct GTY(()) incoming_args {
28 /* Number of bytes of args popped by function being compiled on its return.
29 Zero if no bytes are to be popped.
30 May affect compilation of return insn or of function epilogue. */
31 int pops_args;
33 /* If function's args have a fixed size, this is that size, in bytes.
34 Otherwise, it is -1.
35 May affect compilation of return insn or of function epilogue. */
36 int size;
38 /* # bytes the prologue should push and pretend that the caller pushed them.
39 The prologue must do this, but only if parms can be passed in
40 registers. */
41 int pretend_args_size;
43 /* This is the offset from the arg pointer to the place where the first
44 anonymous arg can be found, if there is one. */
45 rtx arg_offset_rtx;
47 /* Quantities of various kinds of registers
48 used for the current function's args. */
49 CUMULATIVE_ARGS info;
51 /* The arg pointer hard register, or the pseudo into which it was copied. */
52 rtx internal_arg_pointer;
56 /* Datastructures maintained for currently processed function in RTL form. */
57 struct GTY(()) rtl_data {
58 struct expr_status expr;
59 struct emit_status emit;
60 struct varasm_status varasm;
61 struct incoming_args args;
62 struct function_subsections subsections;
63 struct rtl_eh eh;
65 /* For function.c */
67 /* # of bytes of outgoing arguments. If ACCUMULATE_OUTGOING_ARGS is
68 defined, the needed space is pushed by the prologue. */
69 int outgoing_args_size;
71 /* If nonzero, an RTL expression for the location at which the current
72 function returns its result. If the current function returns its
73 result in a register, current_function_return_rtx will always be
74 the hard register containing the result. */
75 rtx return_rtx;
76 /* If nonxero, an RTL expression for the lcoation at which the current
77 function returns bounds for its result. */
78 rtx return_bnd;
80 /* Vector of initial-value pairs. Each pair consists of a pseudo
81 register of approprite mode that stores the initial value a hard
82 register REGNO, and that hard register itself. */
83 /* ??? This could be a VEC but there is currently no way to define an
84 opaque VEC type. */
85 struct initial_value_struct *hard_reg_initial_vals;
87 /* A variable living at the top of the frame that holds a known value.
88 Used for detecting stack clobbers. */
89 tree stack_protect_guard;
91 /* List (chain of INSN_LIST) of labels heading the current handlers for
92 nonlocal gotos. */
93 rtx_insn_list *x_nonlocal_goto_handler_labels;
95 /* Label that will go on function epilogue.
96 Jumping to this label serves as a "return" instruction
97 on machines which require execution of the epilogue on all returns. */
98 rtx_code_label *x_return_label;
100 /* Label that will go on the end of function epilogue.
101 Jumping to this label serves as a "naked return" instruction
102 on machines which require execution of the epilogue on all returns. */
103 rtx_code_label *x_naked_return_label;
105 /* List (chain of EXPR_LISTs) of all stack slots in this function.
106 Made for the sake of unshare_all_rtl. */
107 vec<rtx, va_gc> *x_stack_slot_list;
109 /* List of empty areas in the stack frame. */
110 struct frame_space *frame_space_list;
112 /* Place after which to insert the tail_recursion_label if we need one. */
113 rtx_note *x_stack_check_probe_note;
115 /* Location at which to save the argument pointer if it will need to be
116 referenced. There are two cases where this is done: if nonlocal gotos
117 exist, or if vars stored at an offset from the argument pointer will be
118 needed by inner routines. */
119 rtx x_arg_pointer_save_area;
121 /* Dynamic Realign Argument Pointer used for realigning stack. */
122 rtx drap_reg;
124 /* Offset to end of allocated area of stack frame.
125 If stack grows down, this is the address of the last stack slot allocated.
126 If stack grows up, this is the address for the next slot. */
127 HOST_WIDE_INT x_frame_offset;
129 /* Insn after which register parms and SAVE_EXPRs are born, if nonopt. */
130 rtx_insn *x_parm_birth_insn;
132 /* List of all used temporaries allocated, by level. */
133 vec<temp_slot_p, va_gc> *x_used_temp_slots;
135 /* List of available temp slots. */
136 struct temp_slot *x_avail_temp_slots;
138 /* Current nesting level for temporaries. */
139 int x_temp_slot_level;
141 /* The largest alignment needed on the stack, including requirement
142 for outgoing stack alignment. */
143 unsigned int stack_alignment_needed;
145 /* Preferred alignment of the end of stack frame, which is preferred
146 to call other functions. */
147 unsigned int preferred_stack_boundary;
149 /* The minimum alignment of parameter stack. */
150 unsigned int parm_stack_boundary;
152 /* The largest alignment of slot allocated on the stack. */
153 unsigned int max_used_stack_slot_alignment;
155 /* The stack alignment estimated before reload, with consideration of
156 following factors:
157 1. Alignment of local stack variables (max_used_stack_slot_alignment)
158 2. Alignment requirement to call other functions
159 (preferred_stack_boundary)
160 3. Alignment of non-local stack variables but might be spilled in
161 local stack. */
162 unsigned int stack_alignment_estimated;
164 /* For reorg. */
166 /* Nonzero if function being compiled called builtin_return_addr or
167 builtin_frame_address with nonzero count. */
168 bool accesses_prior_frames;
170 /* Nonzero if the function calls __builtin_eh_return. */
171 bool calls_eh_return;
173 /* Nonzero if function saves all registers, e.g. if it has a nonlocal
174 label that can reach the exit block via non-exceptional paths. */
175 bool saves_all_registers;
177 /* Nonzero if function being compiled has nonlocal gotos to parent
178 function. */
179 bool has_nonlocal_goto;
181 /* Nonzero if function being compiled has an asm statement. */
182 bool has_asm_statement;
184 /* This bit is used by the exception handling logic. It is set if all
185 calls (if any) are sibling calls. Such functions do not have to
186 have EH tables generated, as they cannot throw. A call to such a
187 function, however, should be treated as throwing if any of its callees
188 can throw. */
189 bool all_throwers_are_sibcalls;
191 /* Nonzero if stack limit checking should be enabled in the current
192 function. */
193 bool limit_stack;
195 /* Nonzero if profiling code should be generated. */
196 bool profile;
198 /* Nonzero if the current function uses the constant pool. */
199 bool uses_const_pool;
201 /* Nonzero if the current function uses pic_offset_table_rtx. */
202 bool uses_pic_offset_table;
204 /* Nonzero if the current function needs an lsda for exception handling. */
205 bool uses_eh_lsda;
207 /* Set when the tail call has been produced. */
208 bool tail_call_emit;
210 /* Nonzero if code to initialize arg_pointer_save_area has been emitted. */
211 bool arg_pointer_save_area_init;
213 /* Nonzero if current function must be given a frame pointer.
214 Set in reload1.c or lra-eliminations.c if anything is allocated
215 on the stack there. */
216 bool frame_pointer_needed;
218 /* When set, expand should optimize for speed. */
219 bool maybe_hot_insn_p;
221 /* Nonzero if function stack realignment is needed. This flag may be
222 set twice: before and after reload. It is set before reload wrt
223 stack alignment estimation before reload. It will be changed after
224 reload if by then criteria of stack realignment is different.
225 The value set after reload is the accurate one and is finalized. */
226 bool stack_realign_needed;
228 /* Nonzero if function stack realignment is tried. This flag is set
229 only once before reload. It affects register elimination. This
230 is used to generate DWARF debug info for stack variables. */
231 bool stack_realign_tried;
233 /* Nonzero if function being compiled needs dynamic realigned
234 argument pointer (drap) if stack needs realigning. */
235 bool need_drap;
237 /* Nonzero if function stack realignment estimation is done, namely
238 stack_realign_needed flag has been set before reload wrt estimated
239 stack alignment info. */
240 bool stack_realign_processed;
242 /* Nonzero if function stack realignment has been finalized, namely
243 stack_realign_needed flag has been set and finalized after reload. */
244 bool stack_realign_finalized;
246 /* True if dbr_schedule has already been called for this function. */
247 bool dbr_scheduled_p;
249 /* True if current function can not throw. Unlike
250 TREE_NOTHROW (current_function_decl) it is set even for overwritable
251 function where currently compiled version of it is nothrow. */
252 bool nothrow;
254 /* True if we performed shrink-wrapping for the current function. */
255 bool shrink_wrapped;
257 /* True if we performed shrink-wrapping for separate components for
258 the current function. */
259 bool shrink_wrapped_separate;
261 /* Nonzero if function being compiled doesn't modify the stack pointer
262 (ignoring the prologue and epilogue). This is only valid after
263 pass_stack_ptr_mod has run. */
264 bool sp_is_unchanging;
266 /* Nonzero if function being compiled doesn't contain any calls
267 (ignoring the prologue and epilogue). This is set prior to
268 local register allocation and is valid for the remaining
269 compiler passes. */
270 bool is_leaf;
272 /* Nonzero if the function being compiled is a leaf function which only
273 uses leaf registers. This is valid after reload (specifically after
274 sched2) and is useful only if the port defines LEAF_REGISTERS. */
275 bool uses_only_leaf_regs;
277 /* Nonzero if the function being compiled has undergone hot/cold partitioning
278 (under flag_reorder_blocks_and_partition) and has at least one cold
279 block. */
280 bool has_bb_partition;
282 /* Nonzero if the function being compiled has completed the bb reordering
283 pass. */
284 bool bb_reorder_complete;
286 /* Like regs_ever_live, but 1 if a reg is set or clobbered from an
287 asm. Unlike regs_ever_live, elements of this array corresponding
288 to eliminable regs (like the frame pointer) are set if an asm
289 sets them. */
290 HARD_REG_SET asm_clobbers;
292 /* The highest address seen during shorten_branches. */
293 int max_insn_address;
296 #define return_label (crtl->x_return_label)
297 #define naked_return_label (crtl->x_naked_return_label)
298 #define stack_slot_list (crtl->x_stack_slot_list)
299 #define parm_birth_insn (crtl->x_parm_birth_insn)
300 #define frame_offset (crtl->x_frame_offset)
301 #define stack_check_probe_note (crtl->x_stack_check_probe_note)
302 #define arg_pointer_save_area (crtl->x_arg_pointer_save_area)
303 #define used_temp_slots (crtl->x_used_temp_slots)
304 #define avail_temp_slots (crtl->x_avail_temp_slots)
305 #define temp_slot_level (crtl->x_temp_slot_level)
306 #define nonlocal_goto_handler_labels (crtl->x_nonlocal_goto_handler_labels)
307 #define frame_pointer_needed (crtl->frame_pointer_needed)
308 #define stack_realign_fp (crtl->stack_realign_needed && !crtl->need_drap)
309 #define stack_realign_drap (crtl->stack_realign_needed && crtl->need_drap)
311 extern GTY(()) struct rtl_data x_rtl;
313 /* Accessor to RTL datastructures. We keep them statically allocated now since
314 we never keep multiple functions. For threaded compiler we might however
315 want to do differently. */
316 #define crtl (&x_rtl)
318 /* Return whether two MEM_ATTRs are equal. */
319 bool mem_attrs_eq_p (const struct mem_attrs *, const struct mem_attrs *);
321 /* Set the alias set of MEM to SET. */
322 extern void set_mem_alias_set (rtx, alias_set_type);
324 /* Set the alignment of MEM to ALIGN bits. */
325 extern void set_mem_align (rtx, unsigned int);
327 /* Set the address space of MEM to ADDRSPACE. */
328 extern void set_mem_addr_space (rtx, addr_space_t);
330 /* Set the expr for MEM to EXPR. */
331 extern void set_mem_expr (rtx, tree);
333 /* Set the offset for MEM to OFFSET. */
334 extern void set_mem_offset (rtx, HOST_WIDE_INT);
336 /* Clear the offset recorded for MEM. */
337 extern void clear_mem_offset (rtx);
339 /* Set the size for MEM to SIZE. */
340 extern void set_mem_size (rtx, HOST_WIDE_INT);
342 /* Clear the size recorded for MEM. */
343 extern void clear_mem_size (rtx);
345 /* Set the attributes for MEM appropriate for a spill slot. */
346 extern void set_mem_attrs_for_spill (rtx);
347 extern tree get_spill_slot_decl (bool);
349 /* Return a memory reference like MEMREF, but with its address changed to
350 ADDR. The caller is asserting that the actual piece of memory pointed
351 to is the same, just the form of the address is being changed, such as
352 by putting something into a register. */
353 extern rtx replace_equiv_address (rtx, rtx, bool = false);
355 /* Likewise, but the reference is not required to be valid. */
356 extern rtx replace_equiv_address_nv (rtx, rtx, bool = false);
358 extern rtx gen_blockage (void);
359 extern rtvec gen_rtvec (int, ...);
360 extern rtx copy_insn_1 (rtx);
361 extern rtx copy_insn (rtx);
362 extern rtx_insn *copy_delay_slot_insn (rtx_insn *);
363 extern rtx gen_int_mode (HOST_WIDE_INT, machine_mode);
364 extern rtx_insn *emit_copy_of_insn_after (rtx_insn *, rtx_insn *);
365 extern void set_reg_attrs_from_value (rtx, rtx);
366 extern void set_reg_attrs_for_parm (rtx, rtx);
367 extern void set_reg_attrs_for_decl_rtl (tree t, rtx x);
368 extern void adjust_reg_mode (rtx, machine_mode);
369 extern int mem_expr_equal_p (const_tree, const_tree);
371 extern bool need_atomic_barrier_p (enum memmodel, bool);
373 /* Return the current sequence. */
375 static inline struct sequence_stack *
376 get_current_sequence (void)
378 return &crtl->emit.seq;
381 /* Return the outermost sequence. */
383 static inline struct sequence_stack *
384 get_topmost_sequence (void)
386 struct sequence_stack *seq, *top;
388 seq = get_current_sequence ();
391 top = seq;
392 seq = seq->next;
393 } while (seq);
394 return top;
397 /* Return the first insn of the current sequence or current function. */
399 static inline rtx_insn *
400 get_insns (void)
402 return get_current_sequence ()->first;
405 /* Specify a new insn as the first in the chain. */
407 static inline void
408 set_first_insn (rtx_insn *insn)
410 gcc_checking_assert (!insn || !PREV_INSN (insn));
411 get_current_sequence ()->first = insn;
414 /* Return the last insn emitted in current sequence or current function. */
416 static inline rtx_insn *
417 get_last_insn (void)
419 return get_current_sequence ()->last;
422 /* Specify a new insn as the last in the chain. */
424 static inline void
425 set_last_insn (rtx_insn *insn)
427 gcc_checking_assert (!insn || !NEXT_INSN (insn));
428 get_current_sequence ()->last = insn;
431 /* Return a number larger than any instruction's uid in this function. */
433 static inline int
434 get_max_uid (void)
436 return crtl->emit.x_cur_insn_uid;
439 extern void set_decl_incoming_rtl (tree, rtx, bool);
441 /* Return a memory reference like MEMREF, but with its mode changed
442 to MODE and its address changed to ADDR.
443 (VOIDmode means don't change the mode.
444 NULL for ADDR means don't change the address.) */
445 extern rtx change_address (rtx, machine_mode, rtx);
447 /* Return a memory reference like MEMREF, but with its mode changed
448 to MODE and its address offset by OFFSET bytes. */
449 #define adjust_address(MEMREF, MODE, OFFSET) \
450 adjust_address_1 (MEMREF, MODE, OFFSET, 1, 1, 0, 0)
452 /* Likewise, but the reference is not required to be valid. */
453 #define adjust_address_nv(MEMREF, MODE, OFFSET) \
454 adjust_address_1 (MEMREF, MODE, OFFSET, 0, 1, 0, 0)
456 /* Return a memory reference like MEMREF, but with its mode changed
457 to MODE and its address offset by OFFSET bytes. Assume that it's
458 for a bitfield and conservatively drop the underlying object if we
459 cannot be sure to stay within its bounds. */
460 #define adjust_bitfield_address(MEMREF, MODE, OFFSET) \
461 adjust_address_1 (MEMREF, MODE, OFFSET, 1, 1, 1, 0)
463 /* As for adjust_bitfield_address, but specify that the width of
464 BLKmode accesses is SIZE bytes. */
465 #define adjust_bitfield_address_size(MEMREF, MODE, OFFSET, SIZE) \
466 adjust_address_1 (MEMREF, MODE, OFFSET, 1, 1, 1, SIZE)
468 /* Likewise, but the reference is not required to be valid. */
469 #define adjust_bitfield_address_nv(MEMREF, MODE, OFFSET) \
470 adjust_address_1 (MEMREF, MODE, OFFSET, 0, 1, 1, 0)
472 /* Return a memory reference like MEMREF, but with its mode changed
473 to MODE and its address changed to ADDR, which is assumed to be
474 increased by OFFSET bytes from MEMREF. */
475 #define adjust_automodify_address(MEMREF, MODE, ADDR, OFFSET) \
476 adjust_automodify_address_1 (MEMREF, MODE, ADDR, OFFSET, 1)
478 /* Likewise, but the reference is not required to be valid. */
479 #define adjust_automodify_address_nv(MEMREF, MODE, ADDR, OFFSET) \
480 adjust_automodify_address_1 (MEMREF, MODE, ADDR, OFFSET, 0)
482 extern rtx adjust_address_1 (rtx, machine_mode, HOST_WIDE_INT, int, int,
483 int, HOST_WIDE_INT);
484 extern rtx adjust_automodify_address_1 (rtx, machine_mode, rtx,
485 HOST_WIDE_INT, int);
487 /* Return a memory reference like MEMREF, but whose address is changed by
488 adding OFFSET, an RTX, to it. POW2 is the highest power of two factor
489 known to be in OFFSET (possibly 1). */
490 extern rtx offset_address (rtx, rtx, unsigned HOST_WIDE_INT);
492 /* Given REF, a MEM, and T, either the type of X or the expression
493 corresponding to REF, set the memory attributes. OBJECTP is nonzero
494 if we are making a new object of this type. */
495 extern void set_mem_attributes (rtx, tree, int);
497 /* Similar, except that BITPOS has not yet been applied to REF, so if
498 we alter MEM_OFFSET according to T then we should subtract BITPOS
499 expecting that it'll be added back in later. */
500 extern void set_mem_attributes_minus_bitpos (rtx, tree, int, HOST_WIDE_INT);
502 /* Return OFFSET if XEXP (MEM, 0) - OFFSET is known to be ALIGN
503 bits aligned for 0 <= OFFSET < ALIGN / BITS_PER_UNIT, or
504 -1 if not known. */
505 extern int get_mem_align_offset (rtx, unsigned int);
507 /* Return a memory reference like MEMREF, but with its mode widened to
508 MODE and adjusted by OFFSET. */
509 extern rtx widen_memory_access (rtx, machine_mode, HOST_WIDE_INT);
511 #endif /* GCC_EMIT_RTL_H */