1 /* Structure for saving state for a nested function.
2 Copyright (C) 1989, 92-97, 1998 Free Software Foundation, Inc.
4 This file is part of GNU CC.
6 GNU CC 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)
11 GNU CC 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 GNU CC; see the file COPYING. If not, write to
18 the Free Software Foundation, 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
22 #if !defined(NULL_TREE) && !defined(tree)
23 typedef union union_node *_function_tree;
24 #define tree _function_tree
26 #if !defined(NULL_RTX) && !defined(rtx)
27 typedef struct rtx_def *_function_rtx;
28 #define rtx _function_rtx
34 enum machine_mode promoted_mode;
36 struct var_refs_queue *next;
39 /* Stack of pending (incomplete) sequences saved by `start_sequence'.
40 Each element describes one pending sequence.
41 The main insn-chain is saved in the last element of the chain,
42 unless the chain is empty. */
46 /* First and last insns in the chain of the saved sequence. */
48 tree sequence_rtl_expr;
49 struct sequence_stack *next;
52 extern struct sequence_stack *sequence_stack;
54 /* Stack of single obstacks. */
56 struct simple_obstack_stack
58 struct obstack *obstack;
59 struct simple_obstack_stack *next;
62 /* This structure can save all the important global and static variables
63 describing the status of the current function. */
67 struct function *next;
74 int returns_pcc_struct;
80 int has_nonlocal_label;
81 int has_nonlocal_goto;
82 int contains_functions;
83 int has_computed_jump;
85 rtx nonlocal_goto_handler_slots;
86 rtx nonlocal_goto_handler_labels;
87 rtx nonlocal_goto_stack_level;
90 int pretend_args_size;
95 rtx *parm_reg_stack_loc;
96 int outgoing_args_size;
103 HOST_WIDE_INT frame_offset;
104 rtx tail_recursion_label;
105 rtx tail_recursion_reentry;
106 rtx internal_arg_pointer;
108 rtx arg_pointer_save_area;
111 tree context_display;
112 tree trampoline_list;
113 int function_call_count;
114 struct temp_slot *temp_slots;
116 int target_temp_slot_level;
117 int var_temp_slot_level;
118 int instrument_entry_exit;
119 /* This slot is initialized as 0 and is added to
120 during the nested function. */
121 struct var_refs_queue *fixup_var_refs_queue;
122 CUMULATIVE_ARGS args_info;
125 struct nesting *block_stack;
126 struct nesting *stack_block_stack;
127 struct nesting *cond_stack;
128 struct nesting *loop_stack;
129 struct nesting *case_stack;
130 struct nesting *nesting_stack;
132 int block_start_count;
135 int expr_stmts_for_value;
138 struct goto_fixup *goto_fixup_chain;
140 /* For exception handling information. */
141 struct eh_stack ehstack;
142 struct eh_stack catchstack;
143 struct eh_queue ehqueue;
145 struct label_node *false_label_stack;
146 struct label_node *caught_return_label_stack;
149 rtx eh_return_stub_label;
153 int pending_stack_adjust;
154 int inhibit_defer_pop;
156 rtx apply_args_value;
158 int check_memory_usage;
160 /* For emit-rtl.c. */
165 tree sequence_rtl_expr;
166 struct sequence_stack *sequence_stack;
170 char *regno_pointer_flag;
171 char *regno_pointer_align;
172 int regno_pointer_flag_length;
175 /* For stor-layout.c. */
176 tree permanent_type_chain;
177 tree temporary_type_chain;
178 tree permanent_type_end;
179 tree temporary_type_end;
181 int immediate_size_expand;
184 int all_types_permanent;
185 struct momentary_level *momentary_stack;
186 char *maybepermanent_firstobj;
187 char *temporary_firstobj;
188 char *momentary_firstobj;
189 char *momentary_function_firstobj;
190 struct obstack *current_obstack;
191 struct obstack *function_obstack;
192 struct obstack *function_maybepermanent_obstack;
193 struct obstack *expression_obstack;
194 struct obstack *saveable_obstack;
195 struct obstack *rtl_obstack;
196 struct simple_obstack_stack *inline_obstacks;
198 /* For integrate.c. */
202 int uses_pic_offset_table;
203 /* tm.h can use this to store whatever it likes. */
204 struct machine_function *machine;
207 rtx epilogue_delay_list;
210 struct constant_descriptor **const_rtx_hash_table;
211 struct pool_sym **const_rtx_sym_hash_table;
212 struct pool_constant *first_pool, *last_pool;
214 rtx const_double_chain;
217 /* The FUNCTION_DECL for an inline function currently being expanded. */
218 extern tree inline_function_decl;
220 /* Label that will go on parm cleanup code, if any.
221 Jumping to this label runs cleanup code for parameters, if
222 such code must be run. Following this code is the logical return label. */
224 extern rtx cleanup_label;
226 /* Label that will go on function epilogue.
227 Jumping to this label serves as a "return" instruction
228 on machines which require execution of the epilogue on all returns. */
230 extern rtx return_label;
232 /* Offset to end of allocated area of stack frame.
233 If stack grows down, this is the address of the last stack slot allocated.
234 If stack grows up, this is the address for the next slot. */
235 extern HOST_WIDE_INT frame_offset;
237 /* Label to jump back to for tail recursion, or 0 if we have
238 not yet needed one for this function. */
239 extern rtx tail_recursion_label;
241 /* Place after which to insert the tail_recursion_label if we need one. */
242 extern rtx tail_recursion_reentry;
244 /* Location at which to save the argument pointer if it will need to be
245 referenced. There are two cases where this is done: if nonlocal gotos
246 exist, or if vars whose is an offset from the argument pointer will be
247 needed by inner routines. */
249 extern rtx arg_pointer_save_area;
251 /* Chain of all RTL_EXPRs that have insns in them. */
252 extern tree rtl_expr_chain;
254 /* List (chain of EXPR_LISTs) of all stack slots in this function.
255 Made for the sake of unshare_all_rtl. */
256 extern rtx stack_slot_list;
258 /* Given a function decl for a containing function,
259 return the `struct function' for it. */
260 struct function *find_function_data PROTO((tree));
262 /* Pointer to chain of `struct function' for containing functions. */
263 extern struct function *outer_function_chain;
265 /* Put all this function's BLOCK nodes into a vector and return it.
266 Also store in each NOTE for the beginning or end of a block
267 the index of that block in the vector. */
268 extern tree *identify_blocks PROTO((tree, rtx));
270 /* Return size needed for stack frame based on slots so far allocated.
271 This size counts from zero. It is not rounded to STACK_BOUNDARY;
272 the caller may have to do that. */
273 extern HOST_WIDE_INT get_frame_size PROTO((void));
275 /* These variables hold pointers to functions to
276 save and restore machine-specific data,
277 in push_function_context and pop_function_context. */
278 extern void (*save_machine_status) PROTO((struct function *));
279 extern void (*restore_machine_status) PROTO((struct function *));
281 /* Save and restore status information for a nested function. */
282 extern void save_tree_status PROTO((struct function *, tree));
283 extern void restore_tree_status PROTO((struct function *, tree));
284 extern void save_varasm_status PROTO((struct function *, tree));
285 extern void restore_varasm_status PROTO((struct function *));
286 extern void save_eh_status PROTO((struct function *));
287 extern void restore_eh_status PROTO((struct function *));
288 extern void save_stmt_status PROTO((struct function *));
289 extern void restore_stmt_status PROTO((struct function *));
290 extern void save_expr_status PROTO((struct function *));
291 extern void restore_expr_status PROTO((struct function *));
292 extern void save_emit_status PROTO((struct function *));
293 extern void restore_emit_status PROTO((struct function *));
294 extern void save_storage_status PROTO((struct function *));
295 extern void restore_storage_status PROTO((struct function *));
297 extern rtx get_first_block_beg PROTO((void));