--- /dev/null
+/* Expands front end tree to back end RTL for GNU C-Compiler
+ Copyright (C) 1987, 1988, 1989, 1991 Free Software Foundation, Inc.
+
+This file is part of GNU CC.
+
+GNU CC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU CC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU CC; see the file COPYING. If not, write to
+the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+
+
+/* This file handles the generation of rtl code from tree structure
+ at the level of the function as a whole.
+ It creates the rtl expressions for parameters and auto variables
+ and has full responsibility for allocating stack slots.
+
+ `expand_function_start' is called at the beginning of a function,
+ before the function body is parsed, and `expand_function_end' is
+ called after parsing the body.
+
+ Call `assign_stack_local' to allocate a stack slot for a local variable.
+ This is usually done during the RTL generation for the function body,
+ but it can also be done in the reload pass when a pseudo-register does
+ not get a hard register.
+
+ Call `put_var_into_stack' when you learn, belatedly, that a variable
+ previously given a pseudo-register must in fact go in the stack.
+ This function changes the DECL_RTL to be a stack slot instead of a reg
+ then scans all the RTL instructions so far generated to correct them. */
+
+#include "config.h"
+
+#include <stdio.h>
+
+#include "rtl.h"
+#include "tree.h"
+#include "flags.h"
+#include "function.h"
+#include "insn-flags.h"
+#include "expr.h"
+#include "insn-codes.h"
+#include "regs.h"
+#include "hard-reg-set.h"
+#include "insn-config.h"
+#include "recog.h"
+#include "output.h"
+
+/* Round a value to the lowest integer less than it that is a multiple of
+ the required alignment. Avoid using division in case the value is
+ negative. Assume the alignment is a power of two. */
+#define FLOOR_ROUND(VALUE,ALIGN) ((VALUE) & ~((ALIGN) - 1))
+
+/* Similar, but round to the next highest integer that meets the
+ alignment. */
+#define CEIL_ROUND(VALUE,ALIGN) (((VALUE) + (ALIGN) - 1) & ~((ALIGN)- 1))
+
+/* NEED_SEPARATE_AP means that we cannot derive ap from the value of fp
+ during rtl generation. If they are different register numbers, this is
+ always true. It may also be true if
+ FIRST_PARM_OFFSET - STARTING_FRAME_OFFSET is not a constant during rtl
+ generation. See fix_lexical_addr for details. */
+
+#if ARG_POINTER_REGNUM != FRAME_POINTER_REGNUM
+#define NEED_SEPARATE_AP
+#endif
+
+/* Number of bytes of args popped by function being compiled on its return.
+ Zero if no bytes are to be popped.
+ May affect compilation of return insn or of function epilogue. */
+
+int current_function_pops_args;
+
+/* Nonzero if function being compiled needs to be given an address
+ where the value should be stored. */
+
+int current_function_returns_struct;
+
+/* Nonzero if function being compiled needs to
+ return the address of where it has put a structure value. */
+
+int current_function_returns_pcc_struct;
+
+/* Nonzero if function being compiled needs to be passed a static chain. */
+
+int current_function_needs_context;
+
+/* Nonzero if function being compiled can call setjmp. */
+
+int current_function_calls_setjmp;
+
+/* Nonzero if function being compiled can call longjmp. */
+
+int current_function_calls_longjmp;
+
+/* Nonzero if function being compiled receives nonlocal gotos
+ from nested functions. */
+
+int current_function_has_nonlocal_label;
+
+/* Nonzero if function being compiled contains nested functions. */
+
+int current_function_contains_functions;
+
+/* Nonzero if function being compiled can call alloca,
+ either as a subroutine or builtin. */
+
+int current_function_calls_alloca;
+
+/* Nonzero if the current function returns a pointer type */
+
+int current_function_returns_pointer;
+
+/* If some insns can be deferred to the delay slots of the epilogue, the
+ delay list for them is recorded here. */
+
+rtx current_function_epilogue_delay_list;
+
+/* If function's args have a fixed size, this is that size, in bytes.
+ Otherwise, it is -1.
+ May affect compilation of return insn or of function epilogue. */
+
+int current_function_args_size;
+
+/* # bytes the prologue should push and pretend that the caller pushed them.
+ The prologue must do this, but only if parms can be passed in registers. */
+
+int current_function_pretend_args_size;
+
+/* # of bytes of outgoing arguments required to be pushed by the prologue.
+ If this is non-zero, it means that ACCUMULATE_OUTGOING_ARGS was defined
+ and no stack adjusts will be done on function calls. */
+
+int current_function_outgoing_args_size;
+
+/* This is the offset from the arg pointer to the place where the first
+ anonymous arg can be found, if there is one. */
+
+rtx current_function_arg_offset_rtx;
+
+/* Nonzero if current function uses varargs.h or equivalent.
+ Zero for functions that use stdarg.h. */
+
+int current_function_varargs;
+
+/* Quantities of various kinds of registers
+ used for the current function's args. */
+
+CUMULATIVE_ARGS current_function_args_info;
+
+/* Name of function now being compiled. */
+
+char *current_function_name;
+
+/* If non-zero, an RTL expression for that location at which the current
+ function returns its result. Always equal to
+ DECL_RTL (DECL_RESULT (current_function_decl)), but provided
+ independently of the tree structures. */
+
+rtx current_function_return_rtx;
+
+/* Nonzero if the current function uses the constant pool. */
+
+int current_function_uses_const_pool;
+
+/* Nonzero if the current function uses pic_offset_table_rtx. */
+int current_function_uses_pic_offset_table;
+
+/* The arg pointer hard register, or the pseudo into which it was copied. */
+rtx current_function_internal_arg_pointer;
+
+/* The FUNCTION_DECL for an inline function currently being expanded. */
+tree inline_function_decl;
+
+/* Number of function calls seen so far in current function. */
+
+int function_call_count;
+
+/* List (chain of TREE_LIST) of LABEL_DECLs for all nonlocal labels
+ (labels to which there can be nonlocal gotos from nested functions)
+ in this function. */
+
+tree nonlocal_labels;
+
+/* RTX for stack slot that holds the current handler for nonlocal gotos.
+ Zero when function does not have nonlocal labels. */
+
+rtx nonlocal_goto_handler_slot;
+
+/* RTX for stack slot that holds the stack pointer value to restore
+ for a nonlocal goto.
+ Zero when function does not have nonlocal labels. */
+
+rtx nonlocal_goto_stack_level;
+
+/* Label that will go on parm cleanup code, if any.
+ Jumping to this label runs cleanup code for parameters, if
+ such code must be run. Following this code is the logical return label. */
+
+rtx cleanup_label;
+
+/* Label that will go on function epilogue.
+ Jumping to this label serves as a "return" instruction
+ on machines which require execution of the epilogue on all returns. */
+
+rtx return_label;
+
+/* List (chain of EXPR_LISTs) of pseudo-regs of SAVE_EXPRs.
+ So we can mark them all live at the end of the function, if nonopt. */
+rtx save_expr_regs;
+
+/* List (chain of EXPR_LISTs) of all stack slots in this function.
+ Made for the sake of unshare_all_rtl. */
+rtx stack_slot_list;
+
+/* Chain of all RTL_EXPRs that have insns in them. */
+tree rtl_expr_chain;
+
+/* Label to jump back to for tail recursion, or 0 if we have
+ not yet needed one for this function. */
+rtx tail_recursion_label;
+
+/* Place after which to insert the tail_recursion_label if we need one. */
+rtx tail_recursion_reentry;
+
+/* Location at which to save the argument pointer if it will need to be
+ referenced. There are two cases where this is done: if nonlocal gotos
+ exist, or if vars stored at an offset from the argument pointer will be
+ needed by inner routines. */
+
+rtx arg_pointer_save_area;
+
+/* Offset to end of allocated area of stack frame.
+ If stack grows down, this is the address of the last stack slot allocated.
+ If stack grows up, this is the address for the next slot. */
+int frame_offset;
+
+/* List (chain of TREE_LISTs) of static chains for containing functions.
+ Each link has a FUNCTION_DECL in the TREE_PURPOSE and a reg rtx
+ in an RTL_EXPR in the TREE_VALUE. */
+static tree context_display;
+
+/* List (chain of TREE_LISTs) of trampolines for nested functions.
+ The trampoline sets up the static chain and jumps to the function.
+ We supply the trampoline's address when the function's address is requested.
+
+ Each link has a FUNCTION_DECL in the TREE_PURPOSE and a reg rtx
+ in an RTL_EXPR in the TREE_VALUE. */
+static tree trampoline_list;
+
+/* Insn after which register parms and SAVE_EXPRs are born, if nonopt. */
+static rtx parm_birth_insn;
+
+#if 0
+/* Nonzero if a stack slot has been generated whose address is not
+ actually valid. It means that the generated rtl must all be scanned
+ to detect and correct the invalid addresses where they occur. */
+static int invalid_stack_slot;
+#endif
+
+/* Last insn of those whose job was to put parms into their nominal homes. */
+static rtx last_parm_insn;
+
+/* 1 + last pseudo register number used for loading a copy
+ of a parameter of this function. */
+static int max_parm_reg;
+
+/* Vector indexed by REGNO, containing location on stack in which
+ to put the parm which is nominally in pseudo register REGNO,
+ if we discover that that parm must go in the stack. */
+static rtx *parm_reg_stack_loc;
+
+#if 0 /* Turned off because 0 seems to work just as well. */
+/* Cleanup lists are required for binding levels regardless of whether
+ that binding level has cleanups or not. This node serves as the
+ cleanup list whenever an empty list is required. */
+static tree empty_cleanup_list;
+#endif
+
+/* Nonzero once virtual register instantiation has been done.
+ assign_stack_local uses frame_pointer_rtx when this is nonzero. */
+static int virtuals_instantiated;
+
+/* Nonzero if we need to distinguish between the return value of this function
+ and the return value of a function called by this function. This helps
+ integrate.c */
+
+extern int rtx_equal_function_value_matters;
+
+void fixup_gotos ();
+
+static tree round_down ();
+static rtx round_trampoline_addr ();
+static rtx fixup_stack_1 ();
+static void fixup_var_refs ();
+static void fixup_var_refs_insns ();
+static void fixup_var_refs_1 ();
+static void optimize_bit_field ();
+static void instantiate_decls ();
+static void instantiate_decls_1 ();
+static int instantiate_virtual_regs_1 ();
+static rtx fixup_memory_subreg ();
+static rtx walk_fixup_memory_subreg ();
+\f
+/* In order to evaluate some expressions, such as function calls returning
+ structures in memory, we need to temporarily allocate stack locations.
+ We record each allocated temporary in the following structure.
+
+ Associated with each temporary slot is a nesting level. When we pop up
+ one level, all temporaries associated with the previous level are freed.
+ Normally, all temporaries are freed after the execution of the statement
+ in which they were created. However, if we are inside a ({...}) grouping,
+ the result may be in a temporary and hence must be preserved. If the
+ result could be in a temporary, we preserve it if we can determine which
+ one it is in. If we cannot determine which temporary may contain the
+ result, all temporaries are preserved. A temporary is preserved by
+ pretending it was allocated at the previous nesting level.
+
+ Automatic variables are also assigned temporary slots, at the nesting
+ level where they are defined. They are marked a "kept" so that
+ free_temp_slots will not free them. */
+
+struct temp_slot
+{
+ /* Points to next temporary slot. */
+ struct temp_slot *next;
+ /* The rtx to used to reference the slot. */
+ rtx slot;
+ /* The size, in units, of the slot. */
+ int size;
+ /* Non-zero if this temporary is currently in use. */
+ char in_use;
+ /* Nesting level at which this slot is being used. */
+ int level;
+ /* Non-zero if this should survive a call to free_temp_slots. */
+ int keep;
+};
+
+/* List of all temporaries allocated, both available and in use. */
+
+struct temp_slot *temp_slots;
+
+/* Current nesting level for temporaries. */
+
+int temp_slot_level;
+\f
+/* Pointer to chain of `struct function' for containing functions. */
+struct function *outer_function_chain;
+
+/* Given a function decl for a containing function,
+ return the `struct function' for it. */
+
+struct function *
+find_function_data (decl)
+ tree decl;
+{
+ struct function *p;
+ for (p = outer_function_chain; p; p = p->next)
+ if (p->decl == decl)
+ return p;
+ abort ();
+}
+
+/* Save the current context for compilation of a nested function.
+ This is called from language-specific code.
+ The caller is responsible for saving any language-specific status,
+ since this function knows only about language-indepedent variables. */
+
+void
+push_function_context ()
+{
+ struct function *p = (struct function *) xmalloc (sizeof (struct function));
+
+ p->next = outer_function_chain;
+ outer_function_chain = p;
+
+ p->name = current_function_name;
+ p->decl = current_function_decl;
+ p->pops_args = current_function_pops_args;
+ p->returns_struct = current_function_returns_struct;
+ p->returns_pcc_struct = current_function_returns_pcc_struct;
+ p->needs_context = current_function_needs_context;
+ p->calls_setjmp = current_function_calls_setjmp;
+ p->calls_longjmp = current_function_calls_longjmp;
+ p->calls_alloca = current_function_calls_alloca;
+ p->has_nonlocal_label = current_function_has_nonlocal_label;
+ p->args_size = current_function_args_size;
+ p->pretend_args_size = current_function_pretend_args_size;
+ p->arg_offset_rtx = current_function_arg_offset_rtx;
+ p->uses_const_pool = current_function_uses_const_pool;
+ p->uses_pic_offset_table = current_function_uses_pic_offset_table;
+ p->internal_arg_pointer = current_function_internal_arg_pointer;
+ p->max_parm_reg = max_parm_reg;
+ p->parm_reg_stack_loc = parm_reg_stack_loc;
+ p->outgoing_args_size = current_function_outgoing_args_size;
+ p->return_rtx = current_function_return_rtx;
+ p->nonlocal_goto_handler_slot = nonlocal_goto_handler_slot;
+ p->nonlocal_goto_stack_level = nonlocal_goto_stack_level;
+ p->nonlocal_labels = nonlocal_labels;
+ p->cleanup_label = cleanup_label;
+ p->return_label = return_label;
+ p->save_expr_regs = save_expr_regs;
+ p->stack_slot_list = stack_slot_list;
+ p->parm_birth_insn = parm_birth_insn;
+ p->frame_offset = frame_offset;
+ p->tail_recursion_label = tail_recursion_label;
+ p->tail_recursion_reentry = tail_recursion_reentry;
+ p->arg_pointer_save_area = arg_pointer_save_area;
+ p->rtl_expr_chain = rtl_expr_chain;
+ p->last_parm_insn = last_parm_insn;
+ p->context_display = context_display;
+ p->trampoline_list = trampoline_list;
+ p->function_call_count = function_call_count;
+ p->temp_slots = temp_slots;
+ p->temp_slot_level = temp_slot_level;
+ p->fixup_var_refs_queue = 0;
+
+ save_tree_status (p);
+ save_storage_status (p);
+ save_emit_status (p);
+ init_emit ();
+ save_expr_status (p);
+ save_stmt_status (p);
+}
+
+/* Restore the last saved context, at the end of a nested function.
+ This function is called from language-specific code. */
+
+void
+pop_function_context ()
+{
+ struct function *p = outer_function_chain;
+
+ outer_function_chain = p->next;
+
+ current_function_name = p->name;
+ current_function_decl = p->decl;
+ current_function_pops_args = p->pops_args;
+ current_function_returns_struct = p->returns_struct;
+ current_function_returns_pcc_struct = p->returns_pcc_struct;
+ current_function_needs_context = p->needs_context;
+ current_function_calls_setjmp = p->calls_setjmp;
+ current_function_calls_longjmp = p->calls_longjmp;
+ current_function_calls_alloca = p->calls_alloca;
+ current_function_has_nonlocal_label = p->has_nonlocal_label;
+ current_function_contains_functions = 1;
+ current_function_args_size = p->args_size;
+ current_function_pretend_args_size = p->pretend_args_size;
+ current_function_arg_offset_rtx = p->arg_offset_rtx;
+ current_function_uses_const_pool = p->uses_const_pool;
+ current_function_uses_pic_offset_table = p->uses_pic_offset_table;
+ current_function_internal_arg_pointer = p->internal_arg_pointer;
+ max_parm_reg = p->max_parm_reg;
+ parm_reg_stack_loc = p->parm_reg_stack_loc;
+ current_function_outgoing_args_size = p->outgoing_args_size;
+ current_function_return_rtx = p->return_rtx;
+ nonlocal_goto_handler_slot = p->nonlocal_goto_handler_slot;
+ nonlocal_goto_stack_level = p->nonlocal_goto_stack_level;
+ nonlocal_labels = p->nonlocal_labels;
+ cleanup_label = p->cleanup_label;
+ return_label = p->return_label;
+ save_expr_regs = p->save_expr_regs;
+ stack_slot_list = p->stack_slot_list;
+ parm_birth_insn = p->parm_birth_insn;
+ frame_offset = p->frame_offset;
+ tail_recursion_label = p->tail_recursion_label;
+ tail_recursion_reentry = p->tail_recursion_reentry;
+ arg_pointer_save_area = p->arg_pointer_save_area;
+ rtl_expr_chain = p->rtl_expr_chain;
+ last_parm_insn = p->last_parm_insn;
+ context_display = p->context_display;
+ trampoline_list = p->trampoline_list;
+ function_call_count = p->function_call_count;
+ temp_slots = p->temp_slots;
+ temp_slot_level = p->temp_slot_level;
+
+ restore_tree_status (p);
+ restore_storage_status (p);
+ restore_expr_status (p);
+ restore_emit_status (p);
+ restore_stmt_status (p);
+
+ /* Finish doing put_var_into_stack for any of our variables
+ which became addressable during the nested function. */
+ {
+ struct var_refs_queue *queue = p->fixup_var_refs_queue;
+ for (; queue; queue = queue->next)
+ fixup_var_refs (queue->modified);
+ }
+
+ free (p);
+
+ /* Reset variables that have known state during rtx generation. */
+ rtx_equal_function_value_matters = 1;
+ virtuals_instantiated = 0;
+}
+\f
+/* Allocate fixed slots in the stack frame of the current function. */
+
+/* Return size needed for stack frame based on slots so far allocated.
+ This size counts from zero. It is not rounded to STACK_BOUNDARY;
+ the caller may have to do that. */
+
+int
+get_frame_size ()
+{
+#ifdef FRAME_GROWS_DOWNWARD
+ return -frame_offset;
+#else
+ return frame_offset;
+#endif
+}
+
+/* Allocate a stack slot of SIZE bytes and return a MEM rtx for it
+ with machine mode MODE.
+
+ ALIGN controls the amount of alignment for the address of the slot:
+ 0 means according to MODE,
+ -1 means use BIGGEST_ALIGNMENT and round size to multiple of that,
+ positive specifies alignment boundary in bits.
+
+ We do not round to stack_boundary here. */
+
+rtx
+assign_stack_local (mode, size, align)
+ enum machine_mode mode;
+ int size;
+ int align;
+{
+ register rtx x, addr;
+ int bigend_correction = 0;
+ int alignment;
+
+ if (align == 0)
+ {
+ alignment = GET_MODE_ALIGNMENT (mode) / BITS_PER_UNIT;
+ if (mode == BLKmode)
+ alignment = BIGGEST_ALIGNMENT / BITS_PER_UNIT;
+ }
+ else if (align == -1)
+ {
+ alignment = BIGGEST_ALIGNMENT / BITS_PER_UNIT;
+ size = CEIL_ROUND (size, alignment);
+ }
+ else
+ alignment = align / BITS_PER_UNIT;
+
+#if 0 /* Let's see if this is really needed--rms. */
+#ifdef STRICT_ALIGNMENT
+ /* Supposedly sub-word sized units may later be accessed
+ with word intructions. It's not certain this is really true. */
+ if (mode != BLKmode && align == 0 && alignment < UNITS_PER_WORD)
+ alignment = UNITS_PER_WORD;
+
+ /* This is in case we just made the alignment bigger than the size. */
+ size = CEIL_ROUND (size, alignment);
+#endif
+#endif
+
+ /* Round frame offset to that alignment.
+ We must be careful here, since FRAME_OFFSET might be negative and
+ division with a negative dividend isn't as well defined as we might
+ like. So we instead assume that ALIGNMENT is a power of two and
+ use logical operations which are unambiguous. */
+#ifdef FRAME_GROWS_DOWNWARD
+ frame_offset = FLOOR_ROUND (frame_offset, alignment);
+#else
+ frame_offset = CEIL_ROUND (frame_offset, alignment);
+#endif
+
+ /* On a big-endian machine, if we are allocating more space than we will use,
+ use the least significant bytes of those that are allocated. */
+#if BYTES_BIG_ENDIAN
+ if (mode != BLKmode)
+ bigend_correction = size - GET_MODE_SIZE (mode);
+#endif
+
+#ifdef FRAME_GROWS_DOWNWARD
+ frame_offset -= size;
+#endif
+
+ /* If we have already instantiated virtual registers, return the actual
+ address relative to the frame pointer. */
+ if (virtuals_instantiated)
+ addr = plus_constant (frame_pointer_rtx,
+ (frame_offset + bigend_correction
+ + STARTING_FRAME_OFFSET));
+ else
+ addr = plus_constant (virtual_stack_vars_rtx,
+ frame_offset + bigend_correction);
+
+#ifndef FRAME_GROWS_DOWNWARD
+ frame_offset += size;
+#endif
+
+ x = gen_rtx (MEM, mode, addr);
+
+ stack_slot_list = gen_rtx (EXPR_LIST, VOIDmode, x, stack_slot_list);
+
+ return x;
+}
+
+/* Assign a stack slot in a containing function.
+ First three arguments are same as in preceding function.
+ The last argument specifies the function to allocate in. */
+
+rtx
+assign_outer_stack_local (mode, size, align, function)
+ enum machine_mode mode;
+ int size;
+ int align;
+ struct function *function;
+{
+ register rtx x, addr;
+ int bigend_correction = 0;
+ int alignment;
+
+ /* Allocate in the memory associated with the function in whose frame
+ we are assigning. */
+ push_obstacks (function->function_obstack,
+ function->function_maybepermanent_obstack);
+
+ if (align == 0)
+ {
+ alignment = GET_MODE_ALIGNMENT (mode) / BITS_PER_UNIT;
+ if (mode == BLKmode)
+ alignment = BIGGEST_ALIGNMENT / BITS_PER_UNIT;
+ }
+ else if (align == -1)
+ {
+ alignment = BIGGEST_ALIGNMENT / BITS_PER_UNIT;
+ size = CEIL_ROUND (size, alignment);
+ }
+ else
+ alignment = align / BITS_PER_UNIT;
+
+#if 0 /* Let's see if this is really needed--rms. */
+#ifdef STRICT_ALIGNMENT
+ /* Sub-word sized units may later be accessed with word intructions.
+ This results from (SUBREG (MEM ...) ...). */
+ if (mode != BLKmode && align == 0 && alignment < UNITS_PER_WORD)
+ alignment = UNITS_PER_WORD;
+
+ /* This is in case we just made the alignment bigger than the size. */
+ size = CEIL_ROUND (size, alignment);
+#endif
+#endif
+
+ /* Round frame offset to that alignment. */
+#ifdef FRAME_GROWS_DOWNWARD
+ frame_offset = FLOOR_ROUND (frame_offset, alignment);
+#else
+ frame_offset = CEIL_ROUND (frame_offset, alignment);
+#endif
+
+ /* On a big-endian machine, if we are allocating more space than we will use,
+ use the least significant bytes of those that are allocated. */
+#if BYTES_BIG_ENDIAN
+ if (mode != BLKmode)
+ bigend_correction = size - GET_MODE_SIZE (mode);
+#endif
+
+#ifdef FRAME_GROWS_DOWNWARD
+ function->frame_offset -= size;
+#endif
+ addr = plus_constant (virtual_stack_vars_rtx,
+ function->frame_offset + bigend_correction);
+#ifndef FRAME_GROWS_DOWNWARD
+ function->frame_offset += size;
+#endif
+
+ x = gen_rtx (MEM, mode, addr);
+
+ function->stack_slot_list
+ = gen_rtx (EXPR_LIST, VOIDmode, x, function->stack_slot_list);
+
+ pop_obstacks ();
+
+ return x;
+}
+\f
+/* Allocate a temporary stack slot and record it for possible later
+ reuse.
+
+ MODE is the machine mode to be given to the returned rtx.
+
+ SIZE is the size in units of the space required. We do no rounding here
+ since assign_stack_local will do any required rounding.
+
+ KEEP is non-zero if this slot is to be retained after a call to
+ free_temp_slots. Automatic variables for a block are allocated with this
+ flag. */
+
+rtx
+assign_stack_temp (mode, size, keep)
+ enum machine_mode mode;
+ int size;
+ int keep;
+{
+ struct temp_slot *p, *best_p = 0;
+
+ /* First try to find an available, already-allocated temporary that is the
+ exact size we require. */
+ for (p = temp_slots; p; p = p->next)
+ if (p->size == size && GET_MODE (p->slot) == mode && ! p->in_use)
+ break;
+
+ /* If we didn't find, one, try one that is larger than what we want. We
+ find the smallest such. */
+ if (p == 0)
+ for (p = temp_slots; p; p = p->next)
+ if (p->size > size && GET_MODE (p->slot) == mode && ! p->in_use
+ && (best_p == 0 || best_p->size > p->size))
+ best_p = p;
+
+ /* Make our best, if any, the one to use. */
+ if (best_p)
+ p = best_p;
+
+ /* If we still didn't find one, make a new temporary. */
+ if (p == 0)
+ {
+ p = (struct temp_slot *) oballoc (sizeof (struct temp_slot));
+ p->size = size;
+ /* If the temp slot mode doesn't indicate the alignment,
+ use the largest possible, so no one will be disappointed. */
+ p->slot = assign_stack_local (mode, size, mode == BLKmode ? -1 : 0);
+ p->next = temp_slots;
+ temp_slots = p;
+ }
+
+ p->in_use = 1;
+ p->level = temp_slot_level;
+ p->keep = keep;
+ return p->slot;
+}
+\f
+/* If X could be a reference to a temporary slot, mark that slot as belonging
+ to the to one level higher. If X matched one of our slots, just mark that
+ one. Otherwise, we can't easily predict which it is, so upgrade all of
+ them. Kept slots need not be touched.
+
+ This is called when an ({...}) construct occurs and a statement
+ returns a value in memory. */
+
+void
+preserve_temp_slots (x)
+ rtx x;
+{
+ struct temp_slot *p;
+
+ /* If X is not in memory or is at a constant address, it cannot be in
+ a temporary slot. */
+ if (x == 0 || GET_CODE (x) != MEM || CONSTANT_P (XEXP (x, 0)))
+ return;
+
+ /* First see if we can find a match. */
+ for (p = temp_slots; p; p = p->next)
+ if (p->in_use && x == p->slot)
+ {
+ p->level--;
+ return;
+ }
+
+ /* Otherwise, preserve all non-kept slots at this level. */
+ for (p = temp_slots; p; p = p->next)
+ if (p->in_use && p->level == temp_slot_level && ! p->keep)
+ p->level--;
+}
+
+/* Free all temporaries used so far. This is normally called at the end
+ of generating code for a statement. */
+
+void
+free_temp_slots ()
+{
+ struct temp_slot *p;
+
+ for (p = temp_slots; p; p = p->next)
+ if (p->in_use && p->level == temp_slot_level && ! p->keep)
+ p->in_use = 0;
+}
+
+/* Push deeper into the nesting level for stack temporaries. */
+
+void
+push_temp_slots ()
+{
+ /* For GNU C++, we must allow a sequence to be emitted anywhere in
+ the level where the sequence was started. By not changing levels
+ when the compiler is inside a sequence, the temporaries for the
+ sequence and the temporaries will not unwittingly conflict with
+ the temporaries for other sequences and/or code at that level. */
+ if (in_sequence_p ())
+ return;
+
+ temp_slot_level++;
+}
+
+/* Pop a temporary nesting level. All slots in use in the current level
+ are freed. */
+
+void
+pop_temp_slots ()
+{
+ struct temp_slot *p;
+
+ /* See comment in push_temp_slots about why we don't change levels
+ in sequences. */
+ if (in_sequence_p ())
+ return;
+
+ for (p = temp_slots; p; p = p->next)
+ if (p->in_use && p->level == temp_slot_level)
+ p->in_use = 0;
+
+ temp_slot_level--;
+}
+\f
+/* Retroactively move an auto variable from a register to a stack slot.
+ This is done when an address-reference to the variable is seen. */
+
+void
+put_var_into_stack (decl)
+ tree decl;
+{
+ register rtx reg;
+ register rtx new = 0;
+ struct function *function = 0;
+ tree context = decl_function_context (decl);
+
+ /* Get the current rtl used for this object. */
+ reg = TREE_CODE (decl) == SAVE_EXPR ? SAVE_EXPR_RTL (decl) : DECL_RTL (decl);
+
+ /* If this variable comes from an outer function,
+ find that function's saved context. */
+ if (context != current_function_decl)
+ for (function = outer_function_chain; function; function = function->next)
+ if (function->decl == context)
+ break;
+
+ /* No need to do anything if decl has no rtx yet
+ since in that case caller is setting TREE_ADDRESSABLE
+ and a stack slot will be assigned when the rtl is made. */
+ if (reg == 0)
+ return;
+
+ /* If this is a variable-size object with a pseudo to address it,
+ put that pseudo into the stack, if the var is nonlocal. */
+ if (TREE_NONLOCAL (decl)
+ && GET_CODE (reg) == MEM
+ && GET_CODE (XEXP (reg, 0)) == REG
+ && REGNO (XEXP (reg, 0)) > LAST_VIRTUAL_REGISTER)
+ reg = XEXP (reg, 0);
+ if (GET_CODE (reg) != REG)
+ return;
+
+ if (function)
+ {
+ if (REGNO (reg) < function->max_parm_reg)
+ new = function->parm_reg_stack_loc[REGNO (reg)];
+ if (new == 0)
+ new = assign_outer_stack_local (GET_MODE (reg),
+ GET_MODE_SIZE (GET_MODE (reg)),
+ 0, function);
+ }
+ else
+ {
+ if (REGNO (reg) < max_parm_reg)
+ new = parm_reg_stack_loc[REGNO (reg)];
+ if (new == 0)
+ new = assign_stack_local (GET_MODE (reg),
+ GET_MODE_SIZE (GET_MODE (reg)),
+ 0);
+ }
+
+ XEXP (reg, 0) = XEXP (new, 0);
+ /* `volatil' bit means one thing for MEMs, another entirely for REGs. */
+ REG_USERVAR_P (reg) = 0;
+ PUT_CODE (reg, MEM);
+
+ /* If this is a memory ref that contains aggregate components,
+ mark it as such for cse and loop optimize. */
+ MEM_IN_STRUCT_P (reg)
+ = (TREE_CODE (TREE_TYPE (decl)) == ARRAY_TYPE
+ || TREE_CODE (TREE_TYPE (decl)) == RECORD_TYPE
+ || TREE_CODE (TREE_TYPE (decl)) == UNION_TYPE);
+
+ /* Now make sure that all refs to the variable, previously made
+ when it was a register, are fixed up to be valid again. */
+ if (function)
+ {
+ struct var_refs_queue *temp;
+
+ /* Variable is inherited; fix it up when we get back to its function. */
+ push_obstacks (function->function_obstack,
+ function->function_maybepermanent_obstack);
+ temp
+ = (struct var_refs_queue *) oballoc (sizeof (struct var_refs_queue));
+ temp->modified = reg;
+ temp->next = function->fixup_var_refs_queue;
+ function->fixup_var_refs_queue = temp;
+ pop_obstacks ();
+ }
+ else
+ /* Variable is local; fix it up now. */
+ fixup_var_refs (reg);
+}
+\f
+static void
+fixup_var_refs (var)
+ rtx var;
+{
+ tree pending;
+ rtx first_insn = get_insns ();
+ struct sequence_stack *stack = sequence_stack;
+ tree rtl_exps = rtl_expr_chain;
+
+ /* Must scan all insns for stack-refs that exceed the limit. */
+ fixup_var_refs_insns (var, first_insn, stack == 0);
+
+ /* Scan all pending sequences too. */
+ for (; stack; stack = stack->next)
+ {
+ push_to_sequence (stack->first);
+ fixup_var_refs_insns (var, stack->first, stack->next != 0);
+ /* Update remembered end of sequence
+ in case we added an insn at the end. */
+ stack->last = get_last_insn ();
+ end_sequence ();
+ }
+
+ /* Scan all waiting RTL_EXPRs too. */
+ for (pending = rtl_exps; pending; pending = TREE_CHAIN (pending))
+ {
+ rtx seq = RTL_EXPR_SEQUENCE (TREE_VALUE (pending));
+ if (seq != const0_rtx && seq != 0)
+ {
+ push_to_sequence (seq);
+ fixup_var_refs_insns (var, seq, 0);
+ end_sequence ();
+ }
+ }
+}
+\f
+/* This structure is used by the following two functions to record MEMs or
+ pseudos used to replace VAR, any SUBREGs of VAR, and any MEMs containing
+ VAR as an address. We need to maintain this list in case two operands of
+ an insn were required to match; in that case we must ensure we use the
+ same replacement. */
+
+struct fixup_replacement
+{
+ rtx old;
+ rtx new;
+ struct fixup_replacement *next;
+};
+
+/* REPLACEMENTS is a pointer to a list of the above structures and X is
+ some part of an insn. Return a struct fixup_replacement whose OLD
+ value is equal to X. Allocate a new structure if no such entry exists. */
+
+static struct fixup_replacement *
+find_replacement (replacements, x)
+ struct fixup_replacement **replacements;
+ rtx x;
+{
+ struct fixup_replacement *p;
+
+ /* See if we have already replaced this. */
+ for (p = *replacements; p && p->old != x; p = p->next)
+ ;
+
+ if (p == 0)
+ {
+ p = (struct fixup_replacement *) oballoc (sizeof (struct fixup_replacement));
+ p->old = x;
+ p->new = 0;
+ p->next = *replacements;
+ *replacements = p;
+ }
+
+ return p;
+}
+
+/* Scan the insn-chain starting with INSN for refs to VAR
+ and fix them up. TOPLEVEL is nonzero if this chain is the
+ main chain of insns for the current function. */
+
+static void
+fixup_var_refs_insns (var, insn, toplevel)
+ rtx var;
+ rtx insn;
+ int toplevel;
+{
+ while (insn)
+ {
+ rtx next = NEXT_INSN (insn);
+ rtx note;
+ if (GET_CODE (insn) == INSN || GET_CODE (insn) == CALL_INSN
+ || GET_CODE (insn) == JUMP_INSN)
+ {
+ /* The insn to load VAR from a home in the arglist
+ is now a no-op. When we see it, just delete it. */
+ if (toplevel
+ && GET_CODE (PATTERN (insn)) == SET
+ && SET_DEST (PATTERN (insn)) == var
+ && rtx_equal_p (SET_SRC (PATTERN (insn)), var))
+ {
+ next = delete_insn (insn);
+ if (insn == last_parm_insn)
+ last_parm_insn = PREV_INSN (next);
+ }
+ else
+ {
+ /* See if we have to do anything to INSN now that VAR is in
+ memory. If it needs to be loaded into a pseudo, use a single
+ pseudo for the entire insn in case there is a MATCH_DUP
+ between two operands. We pass a pointer to the head of
+ a list of struct fixup_replacements. If fixup_var_refs_1
+ needs to allocate pseudos or replacement MEMs (for SUBREGs),
+ it will record them in this list.
+
+ If it allocated a pseudo for any replacement, we copy into
+ it here. */
+
+ struct fixup_replacement *replacements = 0;
+
+ fixup_var_refs_1 (var, &PATTERN (insn), insn, &replacements);
+
+ while (replacements)
+ {
+ if (GET_CODE (replacements->new) == REG)
+ {
+ rtx insert_before;
+
+ /* OLD might be a (subreg (mem)). */
+ if (GET_CODE (replacements->old) == SUBREG)
+ replacements->old
+ = fixup_memory_subreg (replacements->old, insn, 0);
+ else
+ replacements->old
+ = fixup_stack_1 (replacements->old, insn);
+
+ /* We can not separate USE insns from the CALL_INSN
+ that they belong to. If this is a CALL_INSN, insert
+ the move insn before the USE insns preceeding it
+ instead of immediately before the insn. */
+ if (GET_CODE (insn) == CALL_INSN)
+ {
+ insert_before = insn;
+ while (GET_CODE (PREV_INSN (insert_before)) == INSN
+ && GET_CODE (PATTERN (PREV_INSN (insert_before))) == USE)
+ insert_before = PREV_INSN (insert_before);
+ }
+ else
+ insert_before = insn;
+
+ emit_insn_before (gen_move_insn (replacements->new,
+ replacements->old),
+ insert_before);
+ }
+
+ replacements = replacements->next;
+ }
+ }
+
+ /* Also fix up any invalid exprs in the REG_NOTES of this insn.
+ But don't touch other insns referred to by reg-notes;
+ we will get them elsewhere. */
+ for (note = REG_NOTES (insn); note; note = XEXP (note, 1))
+ if (GET_CODE (note) != INSN_LIST)
+ XEXP (note, 0) = walk_fixup_memory_subreg (XEXP (note, 0), insn);
+ }
+ insn = next;
+ }
+}
+\f
+/* VAR is a MEM that used to be a pseudo register. See if the rtx expression
+ at *LOC in INSN needs to be changed.
+
+ REPLACEMENTS is a pointer to a list head that starts out zero, but may
+ contain a list of original rtx's and replacements. If we find that we need
+ to modify this insn by replacing a memory reference with a pseudo or by
+ making a new MEM to implement a SUBREG, we consult that list to see if
+ we have already chosen a replacement. If none has already been allocated,
+ we allocate it and update the list. fixup_var_refs_insns will copy VAR
+ or the SUBREG, as appropriate, to the pseudo. */
+
+static void
+fixup_var_refs_1 (var, loc, insn, replacements)
+ register rtx var;
+ register rtx *loc;
+ rtx insn;
+ struct fixup_replacement **replacements;
+{
+ register int i;
+ register rtx x = *loc;
+ RTX_CODE code = GET_CODE (x);
+ register char *fmt;
+ register rtx tem, tem1;
+ struct fixup_replacement *replacement;
+
+ switch (code)
+ {
+ case MEM:
+ if (var == x)
+ {
+ /* If we already have a replacement, use it. Otherwise,
+ try to fix up this address in case it is invalid. */
+
+ replacement = find_replacement (replacements, var);
+ if (replacement->new)
+ {
+ *loc = replacement->new;
+ return;
+ }
+
+ *loc = replacement->new = x = fixup_stack_1 (x, insn);
+
+ /* Unless we are forcing memory to register, we can leave things
+ the way they are if the insn is valid. */
+
+ INSN_CODE (insn) = -1;
+ if (! flag_force_mem && recog_memoized (insn) >= 0)
+ return;
+
+ *loc = replacement->new = gen_reg_rtx (GET_MODE (x));
+ return;
+ }
+
+ /* If X contains VAR, we need to unshare it here so that we update
+ each occurrence separately. But all identical MEMs in one insn
+ must be replaced with the same rtx because of the possibility of
+ MATCH_DUPs. */
+
+ if (reg_mentioned_p (var, x))
+ {
+ replacement = find_replacement (replacements, x);
+ if (replacement->new == 0)
+ replacement->new = copy_most_rtx (x, var);
+
+ *loc = x = replacement->new;
+ }
+ break;
+
+ case REG:
+ case CC0:
+ case PC:
+ case CONST_INT:
+ case CONST:
+ case SYMBOL_REF:
+ case LABEL_REF:
+ case CONST_DOUBLE:
+ return;
+
+ case SIGN_EXTRACT:
+ case ZERO_EXTRACT:
+ /* Note that in some cases those types of expressions are altered
+ by optimize_bit_field, and do not survive to get here. */
+ if (XEXP (x, 0) == var
+ || (GET_CODE (XEXP (x, 0)) == SUBREG
+ && SUBREG_REG (XEXP (x, 0)) == var))
+ {
+ /* Get TEM as a valid MEM in the mode presently in the insn.
+
+ We don't worry about the possibility of MATCH_DUP here; it
+ is highly unlikely and would be tricky to handle. */
+
+ tem = XEXP (x, 0);
+ if (GET_CODE (tem) == SUBREG)
+ tem = fixup_memory_subreg (tem, insn, 1);
+ tem = fixup_stack_1 (tem, insn);
+
+ /* Unless we want to load from memory, get TEM into the proper mode
+ for an extract from memory. This can only be done if the
+ extract is at a constant position and length. */
+
+ if (! flag_force_mem && GET_CODE (XEXP (x, 1)) == CONST_INT
+ && GET_CODE (XEXP (x, 2)) == CONST_INT
+ && ! mode_dependent_address_p (XEXP (tem, 0))
+ && ! MEM_VOLATILE_P (tem))
+ {
+ enum machine_mode wanted_mode = VOIDmode;
+ enum machine_mode is_mode = GET_MODE (tem);
+ int width = INTVAL (XEXP (x, 1));
+ int pos = INTVAL (XEXP (x, 2));
+
+#ifdef HAVE_extzv
+ if (GET_CODE (x) == ZERO_EXTRACT)
+ wanted_mode = insn_operand_mode[(int) CODE_FOR_extzv][1];
+#endif
+#ifdef HAVE_extv
+ if (GET_CODE (x) == SIGN_EXTRACT)
+ wanted_mode = insn_operand_mode[(int) CODE_FOR_extv][1];
+#endif
+ /* If we have a narrower mode, we can do someting. */
+ if (wanted_mode != VOIDmode
+ && GET_MODE_SIZE (wanted_mode) < GET_MODE_SIZE (is_mode))
+ {
+ int offset = pos / BITS_PER_UNIT;
+ rtx old_pos = XEXP (x, 2);
+ rtx newmem;
+
+ /* If the bytes and bits are counted differently, we
+ must adjust the offset. */
+#if BYTES_BIG_ENDIAN != BITS_BIG_ENDIAN
+ offset = (GET_MODE_SIZE (is_mode)
+ - GET_MODE_SIZE (wanted_mode) - offset);
+#endif
+
+ pos %= GET_MODE_BITSIZE (wanted_mode);
+
+ newmem = gen_rtx (MEM, wanted_mode,
+ plus_constant (XEXP (tem, 0), offset));
+ RTX_UNCHANGING_P (newmem) = RTX_UNCHANGING_P (tem);
+ MEM_VOLATILE_P (newmem) = MEM_VOLATILE_P (tem);
+ MEM_IN_STRUCT_P (newmem) = MEM_IN_STRUCT_P (tem);
+
+ /* Make the change and see if the insn remains valid. */
+ INSN_CODE (insn) = -1;
+ XEXP (x, 0) = newmem;
+ XEXP (x, 2) = gen_rtx (CONST_INT, VOIDmode, pos);
+
+ if (recog_memoized (insn) >= 0)
+ return;
+
+ /* Otherwise, restore old position. XEXP (x, 0) will be
+ restored later. */
+ XEXP (x, 2) = old_pos;
+ }
+ }
+
+ /* If we get here, the bitfield extract insn can't accept a memory
+ reference. Copy the input into a register. */
+
+ tem1 = gen_reg_rtx (GET_MODE (tem));
+ emit_insn_before (gen_move_insn (tem1, tem), insn);
+ XEXP (x, 0) = tem1;
+ return;
+ }
+ break;
+
+ case SUBREG:
+ if (SUBREG_REG (x) == var)
+ {
+ /* If this SUBREG makes VAR wider, it has become a paradoxical
+ SUBREG with VAR in memory, but these aren't allowed at this
+ stage of the compilation. So load VAR into a pseudo and take
+ a SUBREG of that pseudo. */
+ if (GET_MODE_SIZE (GET_MODE (x)) > GET_MODE_SIZE (GET_MODE (var)))
+ {
+ replacement = find_replacement (replacements, var);
+ if (replacement->new == 0)
+ replacement->new = gen_reg_rtx (GET_MODE (var));
+ SUBREG_REG (x) = replacement->new;
+ return;
+ }
+
+ /* See if we have already found a replacement for this SUBREG.
+ If so, use it. Otherwise, make a MEM and see if the insn
+ is recognized. If not, or if we should force MEM into a register,
+ make a pseudo for this SUBREG. */
+ replacement = find_replacement (replacements, x);
+ if (replacement->new)
+ {
+ *loc = replacement->new;
+ return;
+ }
+
+ replacement->new = *loc = fixup_memory_subreg (x, insn, 0);
+
+ if (! flag_force_mem && recog_memoized (insn) >= 0)
+ return;
+
+ *loc = replacement->new = gen_reg_rtx (GET_MODE (x));
+ return;
+ }
+ break;
+
+ case SET:
+ /* First do special simplification of bit-field references. */
+ if (GET_CODE (SET_DEST (x)) == SIGN_EXTRACT
+ || GET_CODE (SET_DEST (x)) == ZERO_EXTRACT)
+ optimize_bit_field (x, insn, 0);
+ if (GET_CODE (SET_SRC (x)) == SIGN_EXTRACT
+ || GET_CODE (SET_SRC (x)) == ZERO_EXTRACT)
+ optimize_bit_field (x, insn, 0);
+
+ /* If SET_DEST is now a paradoxical SUBREG, put the result of this
+ insn into a pseudo and store the low part of the pseudo into VAR. */
+ if (GET_CODE (SET_DEST (x)) == SUBREG
+ && SUBREG_REG (SET_DEST (x)) == var
+ && (GET_MODE_SIZE (GET_MODE (SET_DEST (x)))
+ > GET_MODE_SIZE (GET_MODE (var))))
+ {
+ SET_DEST (x) = tem = gen_reg_rtx (GET_MODE (SET_DEST (x)));
+ emit_insn_after (gen_move_insn (var, gen_lowpart (GET_MODE (var),
+ tem)),
+ insn);
+ break;
+ }
+
+ {
+ rtx dest = SET_DEST (x);
+ rtx src = SET_SRC (x);
+ rtx outerdest = dest;
+
+ while (GET_CODE (dest) == SUBREG || GET_CODE (dest) == STRICT_LOW_PART
+ || GET_CODE (dest) == SIGN_EXTRACT
+ || GET_CODE (dest) == ZERO_EXTRACT)
+ dest = XEXP (dest, 0);
+
+ if (GET_CODE (src) == SUBREG)
+ src = XEXP (src, 0);
+
+ /* If VAR does not appear at the top level of the SET
+ just scan the lower levels of the tree. */
+
+ if (src != var && dest != var)
+ break;
+
+ /* We will need to rerecognize this insn. */
+ INSN_CODE (insn) = -1;
+
+#ifdef HAVE_insv
+ if (GET_CODE (outerdest) == ZERO_EXTRACT && dest == var)
+ {
+ /* Since this case will return, ensure we fixup all the
+ operands here. */
+ fixup_var_refs_1 (var, &XEXP (outerdest, 1), insn, replacements);
+ fixup_var_refs_1 (var, &XEXP (outerdest, 2), insn, replacements);
+ fixup_var_refs_1 (var, &SET_SRC (x), insn, replacements);
+
+ tem = XEXP (outerdest, 0);
+
+ /* Clean up (SUBREG:SI (MEM:mode ...) 0)
+ that may appear inside a ZERO_EXTRACT.
+ This was legitimate when the MEM was a REG. */
+ if (GET_CODE (tem) == SUBREG
+ && SUBREG_REG (tem) == var)
+ tem = fixup_memory_subreg (tem, insn, 1);
+ else
+ tem = fixup_stack_1 (tem, insn);
+
+ if (GET_CODE (XEXP (outerdest, 1)) == CONST_INT
+ && GET_CODE (XEXP (outerdest, 2)) == CONST_INT
+ && ! mode_dependent_address_p (XEXP (tem, 0))
+ && ! MEM_VOLATILE_P (tem))
+ {
+ enum machine_mode wanted_mode
+ = insn_operand_mode[(int) CODE_FOR_insv][0];
+ enum machine_mode is_mode = GET_MODE (tem);
+ int width = INTVAL (XEXP (outerdest, 1));
+ int pos = INTVAL (XEXP (outerdest, 2));
+
+ /* If we have a narrower mode, we can do someting. */
+ if (GET_MODE_SIZE (wanted_mode) < GET_MODE_SIZE (is_mode))
+ {
+ int offset = pos / BITS_PER_UNIT;
+ rtx old_pos = XEXP (outerdest, 2);
+ rtx newmem;
+
+#if BYTES_BIG_ENDIAN != BITS_BIG_ENDIAN
+ offset = (GET_MODE_SIZE (is_mode)
+ - GET_MODE_SIZE (wanted_mode) - offset);
+#endif
+
+ pos %= GET_MODE_BITSIZE (wanted_mode);
+
+ newmem = gen_rtx (MEM, wanted_mode,
+ plus_constant (XEXP (tem, 0), offset));
+ RTX_UNCHANGING_P (newmem) = RTX_UNCHANGING_P (tem);
+ MEM_VOLATILE_P (newmem) = MEM_VOLATILE_P (tem);
+ MEM_IN_STRUCT_P (newmem) = MEM_IN_STRUCT_P (tem);
+
+ /* Make the change and see if the insn remains valid. */
+ INSN_CODE (insn) = -1;
+ XEXP (outerdest, 0) = newmem;
+ XEXP (outerdest, 2) = gen_rtx (CONST_INT, VOIDmode, pos);
+
+ if (recog_memoized (insn) >= 0)
+ return;
+
+ /* Otherwise, restore old position. XEXP (x, 0) will be
+ restored later. */
+ XEXP (outerdest, 2) = old_pos;
+ }
+ }
+
+ /* If we get here, the bit-field store doesn't allow memory
+ or isn't located at a constant position. Load the value into
+ a register, do the store, and put it back into memory. */
+
+ tem1 = gen_reg_rtx (GET_MODE (tem));
+ emit_insn_before (gen_move_insn (tem1, tem), insn);
+ emit_insn_after (gen_move_insn (tem, tem1), insn);
+ XEXP (outerdest, 0) = tem1;
+ return;
+ }
+#endif
+
+ /* STRICT_LOW_PART is a no-op on memory references
+ and it can cause combinations to be unrecognizable,
+ so eliminate it. */
+
+ if (dest == var && GET_CODE (SET_DEST (x)) == STRICT_LOW_PART)
+ SET_DEST (x) = XEXP (SET_DEST (x), 0);
+
+ /* A valid insn to copy VAR into or out of a register
+ must be left alone, to avoid an infinite loop here.
+ If the reference to VAR is by a subreg, fix that up,
+ since SUBREG is not valid for a memref.
+ Also fix up the address of the stack slot. */
+
+ if ((SET_SRC (x) == var
+ || (GET_CODE (SET_SRC (x)) == SUBREG
+ && SUBREG_REG (SET_SRC (x)) == var))
+ && (GET_CODE (SET_DEST (x)) == REG
+ || (GET_CODE (SET_DEST (x)) == SUBREG
+ && GET_CODE (SUBREG_REG (SET_DEST (x))) == REG))
+ && recog_memoized (insn) >= 0)
+ {
+ replacement = find_replacement (replacements, SET_SRC (x));
+ if (replacement->new)
+ {
+ SET_SRC (x) = replacement->new;
+ return;
+ }
+ else if (GET_CODE (SET_SRC (x)) == SUBREG)
+ SET_SRC (x) = replacement->new
+ = fixup_memory_subreg (SET_SRC (x), insn, 0);
+ else
+ SET_SRC (x) = replacement->new
+ = fixup_stack_1 (SET_SRC (x), insn);
+ return;
+ }
+
+ if ((SET_DEST (x) == var
+ || (GET_CODE (SET_DEST (x)) == SUBREG
+ && SUBREG_REG (SET_DEST (x)) == var))
+ && (GET_CODE (SET_SRC (x)) == REG
+ || (GET_CODE (SET_SRC (x)) == SUBREG
+ && GET_CODE (SUBREG_REG (SET_SRC (x))) == REG))
+ && recog_memoized (insn) >= 0)
+ {
+ if (GET_CODE (SET_DEST (x)) == SUBREG)
+ SET_DEST (x) = fixup_memory_subreg (SET_DEST (x), insn, 0);
+ else
+ SET_DEST (x) = fixup_stack_1 (SET_DEST (x), insn);
+ return;
+ }
+
+ /* Otherwise, storing into VAR must be handled specially
+ by storing into a temporary and copying that into VAR
+ with a new insn after this one. */
+
+ if (dest == var)
+ {
+ rtx temp;
+ rtx fixeddest;
+ tem = SET_DEST (x);
+ /* STRICT_LOW_PART can be discarded, around a MEM. */
+ if (GET_CODE (tem) == STRICT_LOW_PART)
+ tem = XEXP (tem, 0);
+ /* Convert (SUBREG (MEM)) to a MEM in a changed mode. */
+ if (GET_CODE (tem) == SUBREG)
+ fixeddest = fixup_memory_subreg (tem, insn, 0);
+ else
+ fixeddest = fixup_stack_1 (tem, insn);
+
+ temp = gen_reg_rtx (GET_MODE (tem));
+ emit_insn_after (gen_move_insn (fixeddest, temp), insn);
+ SET_DEST (x) = temp;
+ }
+ }
+ }
+
+ /* Nothing special about this RTX; fix its operands. */
+
+ fmt = GET_RTX_FORMAT (code);
+ for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
+ {
+ if (fmt[i] == 'e')
+ fixup_var_refs_1 (var, &XEXP (x, i), insn, replacements);
+ if (fmt[i] == 'E')
+ {
+ register int j;
+ for (j = 0; j < XVECLEN (x, i); j++)
+ fixup_var_refs_1 (var, &XVECEXP (x, i, j), insn, replacements);
+ }
+ }
+}
+\f
+/* Given X, an rtx of the form (SUBREG:m1 (MEM:m2 addr)),
+ return an rtx (MEM:m1 newaddr) which is equivalent.
+ If any insns must be emitted to compute NEWADDR, put them before INSN.
+
+ UNCRITICAL nonzero means accept paradoxical subregs.
+ This is used for subregs found inside of ZERO_EXTRACTs. */
+
+static rtx
+fixup_memory_subreg (x, insn, uncritical)
+ rtx x;
+ rtx insn;
+ int uncritical;
+{
+ int offset = SUBREG_WORD (x) * UNITS_PER_WORD;
+ rtx addr = XEXP (SUBREG_REG (x), 0);
+ enum machine_mode mode = GET_MODE (x);
+ rtx saved, result;
+
+ /* Paradoxical SUBREGs are usually invalid during RTL generation. */
+ if (GET_MODE_SIZE (mode) > GET_MODE_SIZE (GET_MODE (SUBREG_REG (x)))
+ && ! uncritical)
+ abort ();
+
+#if BYTES_BIG_ENDIAN
+ offset += (MIN (UNITS_PER_WORD, GET_MODE_SIZE (GET_MODE (SUBREG_REG (x))))
+ - MIN (UNITS_PER_WORD, GET_MODE_SIZE (mode)));
+#endif
+ addr = plus_constant (addr, offset);
+ if (!flag_force_addr && memory_address_p (mode, addr))
+ /* Shortcut if no insns need be emitted. */
+ return change_address (SUBREG_REG (x), mode, addr);
+ start_sequence ();
+ result = change_address (SUBREG_REG (x), mode, addr);
+ emit_insn_before (gen_sequence (), insn);
+ end_sequence ();
+ return result;
+}
+
+/* Do fixup_memory_subreg on all (SUBREG (MEM ...) ...) contained in X.
+ Replace subexpressions of X in place.
+ If X itself is a (SUBREG (MEM ...) ...), return the replacement expression.
+ Otherwise return X, with its contents possibly altered.
+
+ If any insns must be emitted to compute NEWADDR, put them before INSN. */
+
+static rtx
+walk_fixup_memory_subreg (x, insn)
+ register rtx x;
+ rtx insn;
+{
+ register enum rtx_code code;
+ register char *fmt;
+ register int i;
+
+ if (x == 0)
+ return 0;
+
+ code = GET_CODE (x);
+
+ if (code == SUBREG && GET_CODE (SUBREG_REG (x)) == MEM)
+ return fixup_memory_subreg (x, insn, 0);
+
+ /* Nothing special about this RTX; fix its operands. */
+
+ fmt = GET_RTX_FORMAT (code);
+ for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
+ {
+ if (fmt[i] == 'e')
+ XEXP (x, i) = walk_fixup_memory_subreg (XEXP (x, i), insn);
+ if (fmt[i] == 'E')
+ {
+ register int j;
+ for (j = 0; j < XVECLEN (x, i); j++)
+ XVECEXP (x, i, j)
+ = walk_fixup_memory_subreg (XVECEXP (x, i, j), insn);
+ }
+ }
+ return x;
+}
+\f
+#if 0
+/* Fix up any references to stack slots that are invalid memory addresses
+ because they exceed the maximum range of a displacement. */
+
+void
+fixup_stack_slots ()
+{
+ register rtx insn;
+
+ /* Did we generate a stack slot that is out of range
+ or otherwise has an invalid address? */
+ if (invalid_stack_slot)
+ {
+ /* Yes. Must scan all insns for stack-refs that exceed the limit. */
+ for (insn = get_insns (); insn; insn = NEXT_INSN (insn))
+ if (GET_CODE (insn) == INSN || GET_CODE (insn) == CALL_INSN
+ || GET_CODE (insn) == JUMP_INSN)
+ fixup_stack_1 (PATTERN (insn), insn);
+ }
+}
+#endif
+
+/* For each memory ref within X, if it refers to a stack slot
+ with an out of range displacement, put the address in a temp register
+ (emitting new insns before INSN to load these registers)
+ and alter the memory ref to use that register.
+ Replace each such MEM rtx with a copy, to avoid clobberage. */
+
+static rtx
+fixup_stack_1 (x, insn)
+ rtx x;
+ rtx insn;
+{
+ register int i;
+ register RTX_CODE code = GET_CODE (x);
+ register char *fmt;
+
+ if (code == MEM)
+ {
+ register rtx ad = XEXP (x, 0);
+ /* If we have address of a stack slot but it's not valid
+ (displacement is too large), compute the sum in a register. */
+ if (GET_CODE (ad) == PLUS
+ && GET_CODE (XEXP (ad, 0)) == REG
+ && REGNO (XEXP (ad, 0)) >= FIRST_VIRTUAL_REGISTER
+ && REGNO (XEXP (ad, 0)) <= LAST_VIRTUAL_REGISTER
+ && GET_CODE (XEXP (ad, 1)) == CONST_INT)
+ {
+ rtx temp, seq;
+ if (memory_address_p (GET_MODE (x), ad))
+ return x;
+
+ start_sequence ();
+ temp = copy_to_reg (ad);
+ seq = gen_sequence ();
+ end_sequence ();
+ emit_insn_before (seq, insn);
+ return change_address (x, VOIDmode, temp);
+ }
+ return x;
+ }
+
+ fmt = GET_RTX_FORMAT (code);
+ for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
+ {
+ if (fmt[i] == 'e')
+ XEXP (x, i) = fixup_stack_1 (XEXP (x, i), insn);
+ if (fmt[i] == 'E')
+ {
+ register int j;
+ for (j = 0; j < XVECLEN (x, i); j++)
+ XVECEXP (x, i, j) = fixup_stack_1 (XVECEXP (x, i, j), insn);
+ }
+ }
+ return x;
+}
+\f
+/* Optimization: a bit-field instruction whose field
+ happens to be a byte or halfword in memory
+ can be changed to a move instruction.
+
+ We call here when INSN is an insn to examine or store into a bit-field.
+ BODY is the SET-rtx to be altered.
+
+ EQUIV_MEM is the table `reg_equiv_mem' if that is available; else 0.
+ (Currently this is called only from function.c, and EQUIV_MEM
+ is always 0.) */
+
+static void
+optimize_bit_field (body, insn, equiv_mem)
+ rtx body;
+ rtx insn;
+ rtx *equiv_mem;
+{
+ register rtx bitfield;
+ int destflag;
+ rtx seq = 0;
+ enum machine_mode mode;
+
+ if (GET_CODE (SET_DEST (body)) == SIGN_EXTRACT
+ || GET_CODE (SET_DEST (body)) == ZERO_EXTRACT)
+ bitfield = SET_DEST (body), destflag = 1;
+ else
+ bitfield = SET_SRC (body), destflag = 0;
+
+ /* First check that the field being stored has constant size and position
+ and is in fact a byte or halfword suitably aligned. */
+
+ if (GET_CODE (XEXP (bitfield, 1)) == CONST_INT
+ && GET_CODE (XEXP (bitfield, 2)) == CONST_INT
+ && ((mode = mode_for_size (INTVAL (XEXP (bitfield, 1)), MODE_INT, 1))
+ != BLKmode)
+ && INTVAL (XEXP (bitfield, 2)) % INTVAL (XEXP (bitfield, 1)) == 0)
+ {
+ register rtx memref = 0;
+
+ /* Now check that the containing word is memory, not a register,
+ and that it is safe to change the machine mode. */
+
+ if (GET_CODE (XEXP (bitfield, 0)) == MEM)
+ memref = XEXP (bitfield, 0);
+ else if (GET_CODE (XEXP (bitfield, 0)) == REG
+ && equiv_mem != 0)
+ memref = equiv_mem[REGNO (XEXP (bitfield, 0))];
+ else if (GET_CODE (XEXP (bitfield, 0)) == SUBREG
+ && GET_CODE (SUBREG_REG (XEXP (bitfield, 0))) == MEM)
+ memref = SUBREG_REG (XEXP (bitfield, 0));
+ else if (GET_CODE (XEXP (bitfield, 0)) == SUBREG
+ && equiv_mem != 0
+ && GET_CODE (SUBREG_REG (XEXP (bitfield, 0))) == REG)
+ memref = equiv_mem[REGNO (SUBREG_REG (XEXP (bitfield, 0)))];
+
+ if (memref
+ && ! mode_dependent_address_p (XEXP (memref, 0))
+ && ! MEM_VOLATILE_P (memref))
+ {
+ /* Now adjust the address, first for any subreg'ing
+ that we are now getting rid of,
+ and then for which byte of the word is wanted. */
+
+ register int offset = INTVAL (XEXP (bitfield, 2));
+ /* Adjust OFFSET to count bits from low-address byte. */
+#if BITS_BIG_ENDIAN != BYTES_BIG_ENDIAN
+ offset = (GET_MODE_BITSIZE (GET_MODE (XEXP (bitfield, 0)))
+ - offset - INTVAL (XEXP (bitfield, 1)));
+#endif
+ /* Adjust OFFSET to count bytes from low-address byte. */
+ offset /= BITS_PER_UNIT;
+ if (GET_CODE (XEXP (bitfield, 0)) == SUBREG)
+ {
+ offset += SUBREG_WORD (XEXP (bitfield, 0)) * UNITS_PER_WORD;
+#if BYTES_BIG_ENDIAN
+ offset -= (MIN (UNITS_PER_WORD,
+ GET_MODE_SIZE (GET_MODE (XEXP (bitfield, 0))))
+ - MIN (UNITS_PER_WORD,
+ GET_MODE_SIZE (GET_MODE (memref))));
+#endif
+ }
+
+ memref = change_address (memref, mode,
+ plus_constant (XEXP (memref, 0), offset));
+
+ /* Store this memory reference where
+ we found the bit field reference. */
+
+ if (destflag)
+ {
+ validate_change (insn, &SET_DEST (body), memref, 1);
+ if (! CONSTANT_ADDRESS_P (SET_SRC (body)))
+ {
+ rtx src = SET_SRC (body);
+ while (GET_CODE (src) == SUBREG
+ && SUBREG_WORD (src) == 0)
+ src = SUBREG_REG (src);
+ if (GET_MODE (src) != GET_MODE (memref))
+ src = gen_lowpart (GET_MODE (memref), SET_SRC (body));
+ validate_change (insn, &SET_SRC (body), src, 1);
+ }
+ else if (GET_MODE (SET_SRC (body)) != VOIDmode
+ && GET_MODE (SET_SRC (body)) != GET_MODE (memref))
+ /* This shouldn't happen because anything that didn't have
+ one of these modes should have got converted explicitly
+ and then referenced through a subreg.
+ This is so because the original bit-field was
+ handled by agg_mode and so its tree structure had
+ the same mode that memref now has. */
+ abort ();
+ }
+ else
+ {
+ rtx dest = SET_DEST (body);
+
+ while (GET_CODE (dest) == SUBREG
+ && SUBREG_WORD (dest) == 0)
+ dest = SUBREG_REG (dest);
+
+ validate_change (insn, &SET_DEST (body), dest, 1);
+
+ if (GET_MODE (dest) == GET_MODE (memref))
+ validate_change (insn, &SET_SRC (body), memref, 1);
+ else
+ {
+ /* Convert the mem ref to the destination mode. */
+ rtx newreg = gen_reg_rtx (GET_MODE (dest));
+
+ start_sequence ();
+ convert_move (newreg, memref,
+ GET_CODE (SET_SRC (body)) == ZERO_EXTRACT);
+ seq = get_insns ();
+ end_sequence ();
+
+ validate_change (insn, &SET_SRC (body), newreg, 1);
+ }
+ }
+
+ /* See if we can convert this extraction or insertion into
+ a simple move insn. We might not be able to do so if this
+ was, for example, part of a PARALLEL.
+
+ If we succeed, write out any needed conversions. If we fail,
+ it is hard to guess why we failed, so don't do anything
+ special; just let the optimization be suppressed. */
+
+ if (apply_change_group () && seq)
+ emit_insns_before (seq, insn);
+ }
+ }
+}
+\f
+/* These routines are responsible for converting virtual register references
+ to the actual hard register references once RTL generation is complete.
+
+ The following four variables are used for communication between the
+ routines. They contain the offsets of the virtual registers from their
+ respective hard registers. */
+
+static int in_arg_offset;
+static int var_offset;
+static int dynamic_offset;
+static int out_arg_offset;
+
+/* In most machines, the stack pointer register is equivalent to the bottom
+ of the stack. */
+
+#ifndef STACK_POINTER_OFFSET
+#define STACK_POINTER_OFFSET 0
+#endif
+
+/* If not defined, pick an appropriate default for the offset of dynamically
+ allocated memory depending on the value of ACCUMULATE_OUTGOING_ARGS,
+ REG_PARM_STACK_SPACE, and OUTGOING_REG_PARM_STACK_SPACE. */
+
+#ifndef STACK_DYNAMIC_OFFSET
+
+#ifdef ACCUMULATE_OUTGOING_ARGS
+/* The bottom of the stack points to the actual arguments. If
+ REG_PARM_STACK_SPACE is defined, this includes the space for the register
+ parameters. However, if OUTGOING_REG_PARM_STACK space is not defined,
+ stack space for register parameters is not pushed by the caller, but
+ rather part of the fixed stack areas and hence not included in
+ `current_function_outgoing_args_size'. Nevertheless, we must allow
+ for it when allocating stack dynamic objects. */
+
+#if defined(REG_PARM_STACK_SPACE) && ! defined(OUTGOING_REG_PARM_STACK_SPACE)
+#define STACK_DYNAMIC_OFFSET(FNDECL) \
+(current_function_outgoing_args_size \
+ + REG_PARM_STACK_SPACE (FNDECL) + (STACK_POINTER_OFFSET))
+
+#else
+#define STACK_DYNAMIC_OFFSET(FNDECL) \
+(current_function_outgoing_args_size + (STACK_POINTER_OFFSET))
+#endif
+
+#else
+#define STACK_DYNAMIC_OFFSET(FNDECL) STACK_POINTER_OFFSET
+#endif
+#endif
+
+/* Pass through the INSNS of function FNDECL and convert virtual register
+ references to hard register references. */
+
+void
+instantiate_virtual_regs (fndecl, insns)
+ tree fndecl;
+ rtx insns;
+{
+ rtx insn;
+
+ /* Compute the offsets to use for this function. */
+ in_arg_offset = FIRST_PARM_OFFSET (fndecl);
+ var_offset = STARTING_FRAME_OFFSET;
+ dynamic_offset = STACK_DYNAMIC_OFFSET (fndecl);
+ out_arg_offset = STACK_POINTER_OFFSET;
+
+ /* Scan all variables and parameters of this function. For each that is
+ in memory, instantiate all virtual registers if the result is a valid
+ address. If not, we do it later. That will handle most uses of virtual
+ regs on many machines. */
+ instantiate_decls (fndecl, 1);
+
+ /* Initialize recognition, indicating that volatile is OK. */
+ init_recog ();
+
+ /* Scan through all the insns, instantiating every virtual register still
+ present. */
+ for (insn = insns; insn; insn = NEXT_INSN (insn))
+ if (GET_CODE (insn) == INSN || GET_CODE (insn) == JUMP_INSN
+ || GET_CODE (insn) == CALL_INSN)
+ {
+ instantiate_virtual_regs_1 (&PATTERN (insn), insn, 1);
+ instantiate_virtual_regs_1 (®_NOTES (insn), 0, 0);
+ }
+
+ /* Now instantiate the remaining register equivalences for debugging info.
+ These will not be valid addresses. */
+ instantiate_decls (fndecl, 0);
+
+ /* Indicate that, from now on, assign_stack_local should use
+ frame_pointer_rtx. */
+ virtuals_instantiated = 1;
+}
+
+/* Scan all decls in FNDECL (both variables and parameters) and instantiate
+ all virtual registers in their DECL_RTL's.
+
+ If VALID_ONLY, do this only if the resulting address is still valid.
+ Otherwise, always do it. */
+
+static void
+instantiate_decls (fndecl, valid_only)
+ tree fndecl;
+ int valid_only;
+{
+ tree decl;
+
+ if (TREE_INLINE (fndecl))
+ /* When compiling an inline function, the obstack used for
+ rtl allocation is the maybepermanent_obstack. Calling
+ `resume_temporary_allocation' switches us back to that
+ obstack while we process this function's parameters. */
+ resume_temporary_allocation ();
+
+ /* Process all parameters of the function. */
+ for (decl = DECL_ARGUMENTS (fndecl); decl; decl = TREE_CHAIN (decl))
+ {
+ if (DECL_RTL (decl) && GET_CODE (DECL_RTL (decl)) == MEM)
+ instantiate_virtual_regs_1 (&XEXP (DECL_RTL (decl), 0),
+ valid_only ? DECL_RTL (decl) : 0, 0);
+ if (DECL_INCOMING_RTL (decl)
+ && GET_CODE (DECL_INCOMING_RTL (decl)) == MEM)
+ instantiate_virtual_regs_1 (&XEXP (DECL_INCOMING_RTL (decl), 0),
+ valid_only ? DECL_INCOMING_RTL (decl) : 0,
+ 0);
+ }
+
+ /* Now process all variables defined in the function or its subblocks. */
+ instantiate_decls_1 (DECL_INITIAL (fndecl), valid_only);
+
+ if (TREE_INLINE (fndecl))
+ {
+ /* Save all rtl allocated for this function by raising the
+ high-water mark on the maybepermanent_obstack. */
+ preserve_data ();
+ /* All further rtl allocation is now done in the current_obstack. */
+ rtl_in_current_obstack ();
+ }
+}
+
+/* Subroutine of instantiate_decls: Process all decls in the given
+ BLOCK node and all its subblocks. */
+
+static void
+instantiate_decls_1 (let, valid_only)
+ tree let;
+ int valid_only;
+{
+ tree t;
+
+ for (t = BLOCK_VARS (let); t; t = TREE_CHAIN (t))
+ if (DECL_RTL (t) && GET_CODE (DECL_RTL (t)) == MEM)
+ instantiate_virtual_regs_1 (& XEXP (DECL_RTL (t), 0),
+ valid_only ? DECL_RTL (t) : 0, 0);
+
+ /* Process all subblocks. */
+ for (t = BLOCK_SUBBLOCKS (let); t; t = TREE_CHAIN (t))
+ instantiate_decls_1 (t, valid_only);
+}
+\f
+/* Given a pointer to a piece of rtx and an optional pointer to the
+ containing object, instantiate any virtual registers present in it.
+
+ If EXTRA_INSNS, we always do the replacement and generate
+ any extra insns before OBJECT. If it zero, we do nothing if replacement
+ is not valid.
+
+ Return 1 if we either had nothing to do or if we were able to do the
+ needed replacement. Return 0 otherwise; we only return zero if
+ EXTRA_INSNS is zero.
+
+ We first try some simple transformations to avoid the creation of extra
+ pseudos. */
+
+static int
+instantiate_virtual_regs_1 (loc, object, extra_insns)
+ rtx *loc;
+ rtx object;
+ int extra_insns;
+{
+ rtx x;
+ RTX_CODE code;
+ rtx new = 0;
+ int offset;
+ rtx temp;
+ rtx seq;
+ int i, j;
+ char *fmt;
+
+ /* Re-start here to avoid recursion in common cases. */
+ restart:
+
+ x = *loc;
+ if (x == 0)
+ return 1;
+
+ code = GET_CODE (x);
+
+ /* Check for some special cases. */
+ switch (code)
+ {
+ case CONST_INT:
+ case CONST_DOUBLE:
+ case CONST:
+ case SYMBOL_REF:
+ case CODE_LABEL:
+ case PC:
+ case CC0:
+ case ASM_INPUT:
+ case ADDR_VEC:
+ case ADDR_DIFF_VEC:
+ case RETURN:
+ return 1;
+
+ case SET:
+ /* We are allowed to set the virtual registers. This means that
+ that the actual register should receive the source minus the
+ appropriate offset. This is used, for example, in the handling
+ of non-local gotos. */
+ if (SET_DEST (x) == virtual_incoming_args_rtx)
+ new = arg_pointer_rtx, offset = - in_arg_offset;
+ else if (SET_DEST (x) == virtual_stack_vars_rtx)
+ new = frame_pointer_rtx, offset = - var_offset;
+ else if (SET_DEST (x) == virtual_stack_dynamic_rtx)
+ new = stack_pointer_rtx, offset = - dynamic_offset;
+ else if (SET_DEST (x) == virtual_outgoing_args_rtx)
+ new = stack_pointer_rtx, offset = - out_arg_offset;
+
+ if (new)
+ {
+ /* The only valid sources here are PLUS or REG. Just do
+ the simplest possible thing to handle them. */
+ if (GET_CODE (SET_SRC (x)) != REG
+ && GET_CODE (SET_SRC (x)) != PLUS)
+ abort ();
+
+ start_sequence ();
+ if (GET_CODE (SET_SRC (x)) != REG)
+ temp = force_operand (SET_SRC (x), 0);
+ else
+ temp = SET_SRC (x);
+ temp = force_operand (plus_constant (temp, offset), 0);
+ seq = get_insns ();
+ end_sequence ();
+
+ emit_insns_before (seq, object);
+ SET_DEST (x) = new;
+
+ if (!validate_change (object, &SET_SRC (x), temp, 0)
+ || ! extra_insns)
+ abort ();
+
+ return 1;
+ }
+
+ instantiate_virtual_regs_1 (&SET_DEST (x), object, extra_insns);
+ loc = &SET_SRC (x);
+ goto restart;
+
+ case PLUS:
+ /* Handle special case of virtual register plus constant. */
+ if (CONSTANT_P (XEXP (x, 1)))
+ {
+ rtx old;
+
+ /* Check for (plus (plus VIRT foo) (const_int)) first. */
+ if (GET_CODE (XEXP (x, 0)) == PLUS)
+ {
+ rtx inner = XEXP (XEXP (x, 0), 0);
+
+ if (inner == virtual_incoming_args_rtx)
+ new = arg_pointer_rtx, offset = in_arg_offset;
+ else if (inner == virtual_stack_vars_rtx)
+ new = frame_pointer_rtx, offset = var_offset;
+ else if (inner == virtual_stack_dynamic_rtx)
+ new = stack_pointer_rtx, offset = dynamic_offset;
+ else if (inner == virtual_outgoing_args_rtx)
+ new = stack_pointer_rtx, offset = out_arg_offset;
+ else
+ {
+ loc = &XEXP (x, 0);
+ goto restart;
+ }
+
+ instantiate_virtual_regs_1 (&XEXP (XEXP (x, 0), 1), object,
+ extra_insns);
+ new = gen_rtx (PLUS, Pmode, new, XEXP (XEXP (x, 0), 1));
+ }
+
+ else if (XEXP (x, 0) == virtual_incoming_args_rtx)
+ new = arg_pointer_rtx, offset = in_arg_offset;
+ else if (XEXP (x, 0) == virtual_stack_vars_rtx)
+ new = frame_pointer_rtx, offset = var_offset;
+ else if (XEXP (x, 0) == virtual_stack_dynamic_rtx)
+ new = stack_pointer_rtx, offset = dynamic_offset;
+ else if (XEXP (x, 0) == virtual_outgoing_args_rtx)
+ new = stack_pointer_rtx, offset = out_arg_offset;
+ else
+ {
+ /* We know the second operand is a constant. Unless the
+ first operand is a REG (which has been already checked),
+ it needs to be checked. */
+ if (GET_CODE (XEXP (x, 0)) != REG)
+ {
+ loc = &XEXP (x, 0);
+ goto restart;
+ }
+ return 1;
+ }
+
+ old = XEXP (x, 0);
+ XEXP (x, 0) = new;
+ new = plus_constant (XEXP (x, 1), offset);
+
+ /* If the new constant is zero, try to replace the sum with its
+ first operand. */
+ if (new == const0_rtx
+ && validate_change (object, loc, XEXP (x, 0), 0))
+ return 1;
+
+ /* Next try to replace constant with new one. */
+ if (!validate_change (object, &XEXP (x, 1), new, 0))
+ {
+ if (! extra_insns)
+ {
+ XEXP (x, 0) = old;
+ return 0;
+ }
+
+ /* Otherwise copy the new constant into a register and replace
+ constant with that register. */
+ temp = gen_reg_rtx (Pmode);
+ if (validate_change (object, &XEXP (x, 1), temp, 0))
+ emit_insn_before (gen_move_insn (temp, new), object);
+ else
+ {
+ /* If that didn't work, replace this expression with a
+ register containing the sum. */
+
+ new = gen_rtx (PLUS, Pmode, XEXP (x, 0), new);
+ XEXP (x, 0) = old;
+
+ start_sequence ();
+ temp = force_operand (new, 0);
+ seq = get_insns ();
+ end_sequence ();
+
+ emit_insns_before (seq, object);
+ if (! validate_change (object, loc, temp, 0)
+ && ! validate_replace_rtx (x, temp, object))
+ abort ();
+ }
+ }
+
+ return 1;
+ }
+
+ /* Fall through to generic two-operand expression case. */
+ case EXPR_LIST:
+ case CALL:
+ case COMPARE:
+ case MINUS:
+ case MULT:
+ case DIV: case UDIV:
+ case MOD: case UMOD:
+ case AND: case IOR: case XOR:
+ case LSHIFT: case ASHIFT: case ROTATE:
+ case ASHIFTRT: case LSHIFTRT: case ROTATERT:
+ case NE: case EQ:
+ case GE: case GT: case GEU: case GTU:
+ case LE: case LT: case LEU: case LTU:
+ if (XEXP (x, 1) && ! CONSTANT_P (XEXP (x, 1)))
+ instantiate_virtual_regs_1 (&XEXP (x, 1), object, extra_insns);
+ loc = &XEXP (x, 0);
+ goto restart;
+
+ case MEM:
+ /* Most cases of MEM that convert to valid addresses have already been
+ handled by our scan of regno_reg_rtx. The only special handling we
+ need here is to make a copy of the rtx to ensure it isn't being
+ shared if we have to change it to a psuedo.
+
+ If the rtx is a simple reference to an address via a virtual register,
+ it can potentially be shared. In such cases, first try to make it
+ a valid address, which can also be shared. Otherwise, copy it and
+ proceed normally.
+
+ First check for common cases that need no processing. These are
+ usually due to instantiation already being done on a previous instance
+ of a shared rtx. */
+
+ temp = XEXP (x, 0);
+ if (CONSTANT_ADDRESS_P (temp)
+#if FRAME_POINTER_REGNUM != ARG_POINTER_REGNUM
+ || temp == arg_pointer_rtx
+#endif
+ || temp == frame_pointer_rtx)
+ return 1;
+
+ if (GET_CODE (temp) == PLUS
+ && CONSTANT_ADDRESS_P (XEXP (temp, 1))
+ && (XEXP (temp, 0) == frame_pointer_rtx
+#if FRAME_POINTER_REGNUM != ARG_POINTER_REGNUM
+ || XEXP (temp, 0) == arg_pointer_rtx
+#endif
+ ))
+ return 1;
+
+ if (temp == virtual_stack_vars_rtx
+ || temp == virtual_incoming_args_rtx
+ || (GET_CODE (temp) == PLUS
+ && CONSTANT_ADDRESS_P (XEXP (temp, 1))
+ && (XEXP (temp, 0) == virtual_stack_vars_rtx
+ || XEXP (temp, 0) == virtual_incoming_args_rtx)))
+ {
+ /* This MEM may be shared. If the substitution can be done without
+ the need to generate new pseudos, we want to do it in place
+ so all copies of the shared rtx benefit. The call below will
+ only make substitutions if the resulting address is still
+ valid.
+
+ Note that we cannot pass X as the object in the recursive call
+ since the insn being processed may not allow all valid
+ addresses. */
+
+ if (instantiate_virtual_regs_1 (&XEXP (x, 0), object, 0))
+ return 1;
+
+ /* Otherwise make a copy and process that copy. We copy the entire
+ RTL expression since it might be a PLUS which could also be
+ shared. */
+ *loc = x = copy_rtx (x);
+ }
+
+ /* Fall through to generic unary operation case. */
+ case USE:
+ case CLOBBER:
+ case SUBREG:
+ case STRICT_LOW_PART:
+ case NEG: case NOT:
+ case PRE_DEC: case PRE_INC: case POST_DEC: case POST_INC:
+ case SIGN_EXTEND: case ZERO_EXTEND:
+ case TRUNCATE: case FLOAT_EXTEND: case FLOAT_TRUNCATE:
+ case FLOAT: case FIX:
+ case UNSIGNED_FIX: case UNSIGNED_FLOAT:
+ case ABS:
+ case SQRT:
+ case FFS:
+ /* These case either have just one operand or we know that we need not
+ check the rest of the operands. */
+ loc = &XEXP (x, 0);
+ goto restart;
+
+ case REG:
+ /* Try to replace with a PLUS. If that doesn't work, compute the sum
+ in front of this insn and substitute the temporary. */
+ if (x == virtual_incoming_args_rtx)
+ new = arg_pointer_rtx, offset = in_arg_offset;
+ else if (x == virtual_stack_vars_rtx)
+ new = frame_pointer_rtx, offset = var_offset;
+ else if (x == virtual_stack_dynamic_rtx)
+ new = stack_pointer_rtx, offset = dynamic_offset;
+ else if (x == virtual_outgoing_args_rtx)
+ new = stack_pointer_rtx, offset = out_arg_offset;
+
+ if (new)
+ {
+ temp = plus_constant (new, offset);
+ if (!validate_change (object, loc, temp, 0))
+ {
+ if (! extra_insns)
+ return 0;
+
+ start_sequence ();
+ temp = force_operand (temp, 0);
+ seq = get_insns ();
+ end_sequence ();
+
+ emit_insns_before (seq, object);
+ if (! validate_change (object, loc, temp, 0)
+ && ! validate_replace_rtx (x, temp, object))
+ abort ();
+ }
+ }
+
+ return 1;
+ }
+
+ /* Scan all subexpressions. */
+ fmt = GET_RTX_FORMAT (code);
+ for (i = 0; i < GET_RTX_LENGTH (code); i++, fmt++)
+ if (*fmt == 'e')
+ {
+ if (!instantiate_virtual_regs_1 (&XEXP (x, i), object, extra_insns))
+ return 0;
+ }
+ else if (*fmt == 'E')
+ for (j = 0; j < XVECLEN (x, i); j++)
+ if (! instantiate_virtual_regs_1 (&XVECEXP (x, i, j), object,
+ extra_insns))
+ return 0;
+
+ return 1;
+}
+\f
+/* Optimization: assuming this function does not receive nonlocal gotos,
+ delete the handlers for such, as well as the insns to establish
+ and disestablish them. */
+
+static void
+delete_handlers ()
+{
+ rtx insn;
+ for (insn = get_insns (); insn; insn = NEXT_INSN (insn))
+ {
+ /* Delete the handler by turning off the flag that would
+ prevent jump_optimize from deleting it.
+ Also permit deletion of the nonlocal labels themselves
+ if nothing local refers to them. */
+ if (GET_CODE (insn) == CODE_LABEL)
+ LABEL_PRESERVE_P (insn) = 0;
+ if (GET_CODE (insn) == INSN
+ && GET_CODE (PATTERN (insn)) == SET
+ && (SET_DEST (PATTERN (insn)) == nonlocal_goto_handler_slot
+ || SET_SRC (PATTERN (insn)) == nonlocal_goto_handler_slot
+ || SET_DEST (PATTERN (insn)) == nonlocal_goto_stack_level
+ || SET_SRC (PATTERN (insn)) == nonlocal_goto_stack_level))
+ delete_insn (insn);
+ }
+}
+
+/* Return a list (chain of EXPR_LIST nodes) for the nonlocal labels
+ of the current function. */
+
+rtx
+nonlocal_label_rtx_list ()
+{
+ tree t;
+ rtx x = 0;
+
+ for (t = nonlocal_labels; t; t = TREE_CHAIN (t))
+ x = gen_rtx (EXPR_LIST, VOIDmode, label_rtx (TREE_VALUE (t)), x);
+
+ return x;
+}
+\f
+/* Output a USE for any register use in RTL.
+ This is used with -noreg to mark the extent of lifespan
+ of any registers used in a user-visible variable's DECL_RTL. */
+
+void
+use_variable (rtl)
+ rtx rtl;
+{
+ if (GET_CODE (rtl) == REG)
+ /* This is a register variable. */
+ emit_insn (gen_rtx (USE, VOIDmode, rtl));
+ else if (GET_CODE (rtl) == MEM
+ && GET_CODE (XEXP (rtl, 0)) == REG
+ && (REGNO (XEXP (rtl, 0)) < FIRST_VIRTUAL_REGISTER
+ || REGNO (XEXP (rtl, 0)) > LAST_VIRTUAL_REGISTER)
+ && XEXP (rtl, 0) != current_function_internal_arg_pointer)
+ /* This is a variable-sized structure. */
+ emit_insn (gen_rtx (USE, VOIDmode, XEXP (rtl, 0)));
+}
+
+/* Like use_variable except that it outputs the USEs after INSN
+ instead of at the end of the insn-chain. */
+
+void
+use_variable_after (rtl, insn)
+ rtx rtl, insn;
+{
+ if (GET_CODE (rtl) == REG)
+ /* This is a register variable. */
+ emit_insn_after (gen_rtx (USE, VOIDmode, rtl), insn);
+ else if (GET_CODE (rtl) == MEM
+ && GET_CODE (XEXP (rtl, 0)) == REG
+ && (REGNO (XEXP (rtl, 0)) < FIRST_VIRTUAL_REGISTER
+ || REGNO (XEXP (rtl, 0)) > LAST_VIRTUAL_REGISTER)
+ && XEXP (rtl, 0) != current_function_internal_arg_pointer)
+ /* This is a variable-sized structure. */
+ emit_insn_after (gen_rtx (USE, VOIDmode, XEXP (rtl, 0)), insn);
+}
+\f
+int
+max_parm_reg_num ()
+{
+ return max_parm_reg;
+}
+
+/* Return the first insn following those generated by `assign_parms'. */
+
+rtx
+get_first_nonparm_insn ()
+{
+ if (last_parm_insn)
+ return NEXT_INSN (last_parm_insn);
+ return get_insns ();
+}
+
+/* Return 1 if EXP returns an aggregate value, for which an address
+ must be passed to the function or returned by the function. */
+
+int
+aggregate_value_p (exp)
+ tree exp;
+{
+ if (TYPE_MODE (TREE_TYPE (exp)) == BLKmode)
+ return 1;
+ if (RETURN_IN_MEMORY (TREE_TYPE (exp)))
+ return 1;
+ if (flag_pcc_struct_return
+ && (TREE_CODE (TREE_TYPE (exp)) == RECORD_TYPE
+ || TREE_CODE (TREE_TYPE (exp)) == UNION_TYPE))
+ return 1;
+ return 0;
+}
+\f
+/* Assign RTL expressions to the function's parameters.
+ This may involve copying them into registers and using
+ those registers as the RTL for them.
+
+ If SECOND_TIME is non-zero it means that this function is being
+ called a second time. This is done by integrate.c when a function's
+ compilation is deferred. We need to come back here in case the
+ FUNCTION_ARG macro computes items needed for the rest of the compilation
+ (such as changing which registers are fixed or caller-saved). But suppress
+ writing any insns or setting DECL_RTL of anything in this case. */
+
+void
+assign_parms (fndecl, second_time)
+ tree fndecl;
+ int second_time;
+{
+ register tree parm;
+ register rtx entry_parm = 0;
+ register rtx stack_parm = 0;
+ CUMULATIVE_ARGS args_so_far;
+ enum machine_mode passed_mode, nominal_mode;
+ /* Total space needed so far for args on the stack,
+ given as a constant and a tree-expression. */
+ struct args_size stack_args_size;
+ tree fntype = TREE_TYPE (fndecl);
+ tree fnargs = DECL_ARGUMENTS (fndecl);
+ /* This is used for the arg pointer when referring to stack args. */
+ rtx internal_arg_pointer;
+ /* This is a dummy PARM_DECL that we used for the function result if
+ the function returns a structure. */
+ tree function_result_decl = 0;
+ int nparmregs = list_length (fnargs) + LAST_VIRTUAL_REGISTER + 1;
+ int varargs_setup = 0;
+
+ /* Nonzero if the last arg is named `__builtin_va_alist',
+ which is used on some machines for old-fashioned non-ANSI varargs.h;
+ this should be stuck onto the stack as if it had arrived there. */
+ int vararg
+ = (fnargs
+ && (parm = tree_last (fnargs)) != 0
+ && DECL_NAME (parm)
+ && (! strcmp (IDENTIFIER_POINTER (DECL_NAME (parm)),
+ "__builtin_va_alist")));
+
+ /* Nonzero if function takes extra anonymous args.
+ This means the last named arg must be on the stack
+ right before the anonymous ones. */
+ int stdarg
+ = (TYPE_ARG_TYPES (fntype) != 0
+ && (TREE_VALUE (tree_last (TYPE_ARG_TYPES (fntype)))
+ != void_type_node));
+
+ /* If the reg that the virtual arg pointer will be translated into is
+ not a fixed reg or is the stack pointer, make a copy of the virtual
+ arg pointer, and address parms via the copy. The frame pointer is
+ considered fixed even though it is not marked as such.
+
+ The second time through, simply use ap to avoid generating rtx. */
+
+ if ((ARG_POINTER_REGNUM == STACK_POINTER_REGNUM
+ || ! (fixed_regs[ARG_POINTER_REGNUM]
+ || ARG_POINTER_REGNUM == FRAME_POINTER_REGNUM))
+ && ! second_time)
+ internal_arg_pointer = copy_to_reg (virtual_incoming_args_rtx);
+ else
+ internal_arg_pointer = virtual_incoming_args_rtx;
+ current_function_internal_arg_pointer = internal_arg_pointer;
+
+ stack_args_size.constant = 0;
+ stack_args_size.var = 0;
+
+ /* If struct value address is treated as the first argument, make it so. */
+ if (aggregate_value_p (DECL_RESULT (fndecl))
+ && ! current_function_returns_pcc_struct
+ && struct_value_incoming_rtx == 0)
+ {
+ tree type = build_pointer_type (fntype);
+
+ function_result_decl = build_decl (PARM_DECL, 0, type);
+
+ DECL_ARG_TYPE (function_result_decl) = type;
+ TREE_CHAIN (function_result_decl) = fnargs;
+ fnargs = function_result_decl;
+ }
+
+ parm_reg_stack_loc = (rtx *) oballoc (nparmregs * sizeof (rtx));
+ bzero (parm_reg_stack_loc, nparmregs * sizeof (rtx));
+
+#ifdef INIT_CUMULATIVE_INCOMING_ARGS
+ INIT_CUMULATIVE_INCOMING_ARGS (args_so_far, fntype, 0);
+#else
+ INIT_CUMULATIVE_ARGS (args_so_far, fntype, 0);
+#endif
+
+ /* We haven't yet found an argument that we must push and pretend the
+ caller did. */
+ current_function_pretend_args_size = 0;
+
+ for (parm = fnargs; parm; parm = TREE_CHAIN (parm))
+ {
+ int aggregate
+ = (TREE_CODE (TREE_TYPE (parm)) == ARRAY_TYPE
+ || TREE_CODE (TREE_TYPE (parm)) == RECORD_TYPE
+ || TREE_CODE (TREE_TYPE (parm)) == UNION_TYPE);
+ struct args_size stack_offset;
+ struct args_size arg_size;
+ int passed_pointer = 0;
+ tree passed_type = DECL_ARG_TYPE (parm);
+
+ /* Set LAST_NAMED if this is last named arg before some
+ anonymous args. We treat it as if it were anonymous too. */
+ int last_named = ((TREE_CHAIN (parm) == 0
+ || DECL_NAME (TREE_CHAIN (parm)) == 0)
+ && (vararg || stdarg));
+
+ if (TREE_TYPE (parm) == error_mark_node
+ /* This can happen after weird syntax errors
+ or if an enum type is defined among the parms. */
+ || TREE_CODE (parm) != PARM_DECL
+ || passed_type == NULL)
+ {
+ DECL_RTL (parm) = gen_rtx (MEM, BLKmode, const0_rtx);
+ TREE_USED (parm) = 1;
+ continue;
+ }
+
+ /* For varargs.h function, save info about regs and stack space
+ used by the individual args, not including the va_alist arg. */
+ if (vararg && last_named)
+ current_function_args_info = args_so_far;
+
+ /* Find mode of arg as it is passed, and mode of arg
+ as it should be during execution of this function. */
+ passed_mode = TYPE_MODE (passed_type);
+ nominal_mode = TYPE_MODE (TREE_TYPE (parm));
+
+#ifdef FUNCTION_ARG_PASS_BY_REFERENCE
+ /* See if this arg was passed by invisible reference. */
+ if (FUNCTION_ARG_PASS_BY_REFERENCE (args_so_far, passed_mode,
+ passed_type, ! last_named))
+ {
+ passed_type = build_pointer_type (passed_type);
+ passed_pointer = 1;
+ passed_mode = nominal_mode = Pmode;
+ }
+#endif
+
+ /* Let machine desc say which reg (if any) the parm arrives in.
+ 0 means it arrives on the stack. */
+#ifdef FUNCTION_INCOMING_ARG
+ entry_parm = FUNCTION_INCOMING_ARG (args_so_far, passed_mode,
+ passed_type, ! last_named);
+#else
+ entry_parm = FUNCTION_ARG (args_so_far, passed_mode,
+ passed_type, ! last_named);
+#endif
+
+#ifdef SETUP_INCOMING_VARARGS
+ /* If this is the last named parameter, do any required setup for
+ varargs or stdargs. We need to know about the case of this being an
+ addressable type, in which case we skip the registers it
+ would have arrived in.
+
+ For stdargs, LAST_NAMED will be set for two parameters, the one that
+ is actually the last named, and the dummy parameter. We only
+ want to do this action once.
+
+ Also, indicate when RTL generation is to be suppressed. */
+ if (last_named && !varargs_setup)
+ {
+ SETUP_INCOMING_VARARGS (args_so_far, passed_mode, passed_type,
+ current_function_pretend_args_size,
+ second_time);
+ varargs_setup = 1;
+ }
+#endif
+
+ /* Determine parm's home in the stack,
+ in case it arrives in the stack or we should pretend it did.
+
+ Compute the stack position and rtx where the argument arrives
+ and its size.
+
+ There is one complexity here: If this was a parameter that would
+ have been passed in registers, but wasn't only because it is
+ __builtin_va_alist, we want locate_and_pad_parm to treat it as if
+ it came in a register so that REG_PARM_STACK_SPACE isn't skipped.
+ In this case, we call FUNCTION_ARG with NAMED set to 1 instead of
+ 0 as it was the previous time. */
+
+ locate_and_pad_parm (passed_mode, passed_type,
+#ifdef STACK_PARMS_IN_REG_PARM_AREA
+ 1,
+#else
+#ifdef FUNCTION_INCOMING_ARG
+ FUNCTION_INCOMING_ARG (args_so_far, passed_mode,
+ passed_type,
+ (! last_named
+ || varargs_setup)) != 0,
+#else
+ FUNCTION_ARG (args_so_far, passed_mode,
+ passed_type,
+ ! last_named || varargs_setup) != 0,
+#endif
+#endif
+ fndecl, &stack_args_size, &stack_offset, &arg_size);
+
+ if (! second_time)
+ {
+ rtx offset_rtx = ARGS_SIZE_RTX (stack_offset);
+
+ if (offset_rtx == const0_rtx)
+ stack_parm = gen_rtx (MEM, passed_mode, internal_arg_pointer);
+ else
+ stack_parm = gen_rtx (MEM, passed_mode,
+ gen_rtx (PLUS, Pmode,
+ internal_arg_pointer, offset_rtx));
+
+ /* If this is a memory ref that contains aggregate components,
+ mark it as such for cse and loop optimize. */
+ MEM_IN_STRUCT_P (stack_parm) = aggregate;
+ }
+
+ /* If this parameter was passed both in registers and in the stack,
+ use the copy on the stack. */
+ if (MUST_PASS_IN_STACK (passed_mode, passed_type))
+ entry_parm = 0;
+
+ /* If this parm was passed part in regs and part in memory,
+ pretend it arrived entirely in memory
+ by pushing the register-part onto the stack.
+
+ In the special case of a DImode or DFmode that is split,
+ we could put it together in a pseudoreg directly,
+ but for now that's not worth bothering with. */
+
+ if (entry_parm)
+ {
+ int nregs = 0;
+#ifdef FUNCTION_ARG_PARTIAL_NREGS
+ nregs = FUNCTION_ARG_PARTIAL_NREGS (args_so_far, passed_mode,
+ passed_type, ! last_named);
+#endif
+
+ if (nregs > 0)
+ {
+ current_function_pretend_args_size
+ = (((nregs * UNITS_PER_WORD) + (PARM_BOUNDARY / BITS_PER_UNIT) - 1)
+ / (PARM_BOUNDARY / BITS_PER_UNIT)
+ * (PARM_BOUNDARY / BITS_PER_UNIT));
+
+ if (! second_time)
+ move_block_from_reg (REGNO (entry_parm),
+ validize_mem (stack_parm), nregs);
+ entry_parm = stack_parm;
+ }
+ }
+
+ /* If we didn't decide this parm came in a register,
+ by default it came on the stack. */
+ if (entry_parm == 0)
+ entry_parm = stack_parm;
+
+ /* Record permanently how this parm was passed. */
+ if (! second_time)
+ DECL_INCOMING_RTL (parm) = entry_parm;
+
+ /* If there is actually space on the stack for this parm,
+ count it in stack_args_size; otherwise set stack_parm to 0
+ to indicate there is no preallocated stack slot for the parm. */
+
+ if (entry_parm == stack_parm
+#ifdef REG_PARM_STACK_SPACE
+ /* On some machines, even if a parm value arrives in a register
+ there is still an (uninitialized) stack slot allocated for it. */
+ || REG_PARM_STACK_SPACE (fndecl) > 0
+#endif
+ )
+ {
+ stack_args_size.constant += arg_size.constant;
+ if (arg_size.var)
+ ADD_PARM_SIZE (stack_args_size, arg_size.var);
+ }
+ else
+ /* No stack slot was pushed for this parm. */
+ stack_parm = 0;
+
+ /* Update info on where next arg arrives in registers. */
+
+ FUNCTION_ARG_ADVANCE (args_so_far, passed_mode,
+ passed_type, ! last_named);
+
+ /* If this is our second time through, we are done with this parm. */
+ if (second_time)
+ continue;
+
+ /* Now adjust STACK_PARM to the mode and precise location
+ where this parameter should live during execution,
+ if we discover that it must live in the stack during execution.
+ To make debuggers happier on big-endian machines, we store
+ the value in the last bytes of the space available. */
+
+ if (nominal_mode != BLKmode && nominal_mode != passed_mode
+ && stack_parm != 0)
+ {
+ rtx offset_rtx;
+
+#if BYTES_BIG_ENDIAN
+ if (GET_MODE_SIZE (nominal_mode) < UNITS_PER_WORD)
+ stack_offset.constant += (GET_MODE_SIZE (passed_mode)
+ - GET_MODE_SIZE (nominal_mode));
+#endif
+
+ offset_rtx = ARGS_SIZE_RTX (stack_offset);
+ if (offset_rtx == const0_rtx)
+ stack_parm = gen_rtx (MEM, nominal_mode, internal_arg_pointer);
+ else
+ stack_parm = gen_rtx (MEM, nominal_mode,
+ gen_rtx (PLUS, Pmode,
+ internal_arg_pointer, offset_rtx));
+
+ /* If this is a memory ref that contains aggregate components,
+ mark it as such for cse and loop optimize. */
+ MEM_IN_STRUCT_P (stack_parm) = aggregate;
+ }
+
+ /* ENTRY_PARM is an RTX for the parameter as it arrives,
+ in the mode in which it arrives.
+ STACK_PARM is an RTX for a stack slot where the parameter can live
+ during the function (in case we want to put it there).
+ STACK_PARM is 0 if no stack slot was pushed for it.
+
+ Now output code if necessary to convert ENTRY_PARM to
+ the type in which this function declares it,
+ and store that result in an appropriate place,
+ which may be a pseudo reg, may be STACK_PARM,
+ or may be a local stack slot if STACK_PARM is 0.
+
+ Set DECL_RTL to that place. */
+
+ if (nominal_mode == BLKmode)
+ {
+ /* If a BLKmode arrives in registers, copy it to a stack slot. */
+ if (GET_CODE (entry_parm) == REG)
+ {
+ int size_stored = CEIL_ROUND (int_size_in_bytes (TREE_TYPE (parm)),
+ UNITS_PER_WORD);
+
+ /* Note that we will be storing an integral number of words.
+ So we have to be careful to ensure that we allocate an
+ integral number of words. We do this below in the
+ assign_stack_local if space was not allocated in the argument
+ list. If it was, this will not work if PARM_BOUNDARY is not
+ a multiple of BITS_PER_WORD. It isn't clear how to fix this
+ if it becomes a problem. */
+
+ if (stack_parm == 0)
+ stack_parm
+ = assign_stack_local (GET_MODE (entry_parm), size_stored, 0);
+ else if (PARM_BOUNDARY % BITS_PER_WORD != 0)
+ abort ();
+
+ move_block_from_reg (REGNO (entry_parm),
+ validize_mem (stack_parm),
+ size_stored / UNITS_PER_WORD);
+ }
+ DECL_RTL (parm) = stack_parm;
+ }
+ else if (! (
+#if 0 /* This change was turned off because it makes compilation bigger. */
+ !optimize
+#else /* It's not clear why the following was replaced. */
+ /* Obsoleted by preceeding line. */
+ (obey_regdecls && ! TREE_REGDECL (parm)
+ && ! TREE_INLINE (fndecl))
+#endif
+ /* layout_decl may set this. */
+ || TREE_ADDRESSABLE (parm)
+ || TREE_SIDE_EFFECTS (parm)
+ /* If -ffloat-store specified, don't put explicit
+ float variables into registers. */
+ || (flag_float_store
+ && TREE_CODE (TREE_TYPE (parm)) == REAL_TYPE))
+ /* Always assign pseudo to structure return or item passed
+ by invisible reference. */
+ || passed_pointer || parm == function_result_decl)
+ {
+ /* Store the parm in a pseudoregister during the function. */
+ register rtx parmreg = gen_reg_rtx (nominal_mode);
+
+ REG_USERVAR_P (parmreg) = 1;
+
+ /* If this was an item that we received a pointer to, set DECL_RTL
+ appropriately. */
+ if (passed_pointer)
+ {
+ DECL_RTL (parm) = gen_rtx (MEM, TYPE_MODE (TREE_TYPE (passed_type)), parmreg);
+ MEM_IN_STRUCT_P (DECL_RTL (parm)) = aggregate;
+ }
+ else
+ DECL_RTL (parm) = parmreg;
+
+ /* Copy the value into the register. */
+ if (GET_MODE (parmreg) != GET_MODE (entry_parm))
+ convert_move (parmreg, validize_mem (entry_parm), 0);
+ else
+ emit_move_insn (parmreg, validize_mem (entry_parm));
+
+ /* In any case, record the parm's desired stack location
+ in case we later discover it must live in the stack. */
+ if (REGNO (parmreg) >= nparmregs)
+ {
+ rtx *new;
+ nparmregs = REGNO (parmreg) + 5;
+ new = (rtx *) oballoc (nparmregs * sizeof (rtx));
+ bcopy (parm_reg_stack_loc, new, nparmregs * sizeof (rtx));
+ parm_reg_stack_loc = new;
+ }
+ parm_reg_stack_loc[REGNO (parmreg)] = stack_parm;
+
+ /* Mark the register as eliminable if we did no conversion
+ and it was copied from memory at a fixed offset,
+ and the arg pointer was not copied to a pseudo-reg.
+ If the arg pointer is a pseudo reg or the offset formed
+ an invalid address, such memory-equivalences
+ as we make here would screw up life analysis for it. */
+ if (nominal_mode == passed_mode
+ && GET_CODE (entry_parm) == MEM
+ && stack_offset.var == 0
+ && reg_mentioned_p (virtual_incoming_args_rtx,
+ XEXP (entry_parm, 0)))
+ REG_NOTES (get_last_insn ())
+ = gen_rtx (EXPR_LIST, REG_EQUIV,
+ entry_parm, REG_NOTES (get_last_insn ()));
+
+ /* For pointer data type, suggest pointer register. */
+ if (TREE_CODE (TREE_TYPE (parm)) == POINTER_TYPE)
+ mark_reg_pointer (parmreg);
+ }
+ else
+ {
+ /* Value must be stored in the stack slot STACK_PARM
+ during function execution. */
+
+ if (passed_mode != nominal_mode)
+ /* Conversion is required. */
+ entry_parm = convert_to_mode (nominal_mode, entry_parm, 0);
+
+ if (entry_parm != stack_parm)
+ {
+ if (stack_parm == 0)
+ stack_parm = assign_stack_local (GET_MODE (entry_parm),
+ GET_MODE_SIZE (GET_MODE (entry_parm)), 0);
+ emit_move_insn (validize_mem (stack_parm),
+ validize_mem (entry_parm));
+ }
+
+ DECL_RTL (parm) = stack_parm;
+ }
+
+ /* If this "parameter" was the place where we are receiving the
+ function's incoming structure pointer, set up the result. */
+ if (parm == function_result_decl)
+ DECL_RTL (DECL_RESULT (fndecl))
+ = gen_rtx (MEM, DECL_MODE (DECL_RESULT (fndecl)), DECL_RTL (parm));
+
+ if (TREE_THIS_VOLATILE (parm))
+ MEM_VOLATILE_P (DECL_RTL (parm)) = 1;
+ if (TREE_READONLY (parm))
+ RTX_UNCHANGING_P (DECL_RTL (parm)) = 1;
+ }
+
+ max_parm_reg = max_reg_num ();
+ last_parm_insn = get_last_insn ();
+
+ current_function_args_size = stack_args_size.constant;
+
+ /* Adjust function incoming argument size for alignment and
+ minimum length. */
+
+#ifdef REG_PARM_STACK_SPACE
+ current_function_args_size = MAX (current_function_args_size,
+ REG_PARM_STACK_SPACE (fndecl));
+#endif
+
+#ifdef STACK_BOUNDARY
+#define STACK_BYTES (STACK_BOUNDARY / BITS_PER_UNIT)
+
+ current_function_args_size
+ = ((current_function_args_size + STACK_BYTES - 1)
+ / STACK_BYTES) * STACK_BYTES;
+#endif
+
+#ifdef ARGS_GROW_DOWNWARD
+ current_function_arg_offset_rtx
+ = (stack_args_size.var == 0 ? gen_rtx (CONST_INT, VOIDmode,
+ -stack_args_size.constant)
+ : expand_expr (size_binop (MINUS_EXPR, stack_args_size.var,
+ size_int (-stack_args_size.constant)),
+ 0, VOIDmode, 0));
+#else
+ current_function_arg_offset_rtx = ARGS_SIZE_RTX (stack_args_size);
+#endif
+
+ /* See how many bytes, if any, of its args a function should try to pop
+ on return. */
+
+ current_function_pops_args = RETURN_POPS_ARGS (TREE_TYPE (fndecl),
+ current_function_args_size);
+
+ /* For stdarg.h function, save info about regs and stack space
+ used by the named args. */
+
+ if (stdarg)
+ current_function_args_info = args_so_far;
+
+ /* Set the rtx used for the function return value. Put this in its
+ own variable so any optimizers that need this information don't have
+ to include tree.h. Do this here so it gets done when an inlined
+ function gets output. */
+
+ current_function_return_rtx = DECL_RTL (DECL_RESULT (fndecl));
+}
+\f
+/* Compute the size and offset from the start of the stacked arguments for a
+ parm passed in mode PASSED_MODE and with type TYPE.
+
+ INITIAL_OFFSET_PTR points to the current offset into the stacked
+ arguments.
+
+ The starting offset and size for this parm are returned in *OFFSET_PTR
+ and *ARG_SIZE_PTR, respectively.
+
+ IN_REGS is non-zero if the argument will be passed in registers. It will
+ never be set if REG_PARM_STACK_SPACE is not defined.
+
+ FNDECL is the function in which the argument was defined.
+
+ There are two types of rounding that are done. The first, controlled by
+ FUNCTION_ARG_BOUNDARY, forces the offset from the start of the argument
+ list to be aligned to the specific boundary (in bits). This rounding
+ affects the initial and starting offsets, but not the argument size.
+
+ The second, controlled by FUNCTION_ARG_PADDING and PARM_BOUNDARY,
+ optionally rounds the size of the parm to PARM_BOUNDARY. The
+ initial offset is not affected by this rounding, while the size always
+ is and the starting offset may be. */
+
+/* offset_ptr will be negative for ARGS_GROW_DOWNWARD case;
+ initial_offset_ptr is positive because locate_and_pad_parm's
+ callers pass in the total size of args so far as
+ initial_offset_ptr. arg_size_ptr is always positive.*/
+
+static void pad_to_arg_alignment (), pad_below ();
+
+void
+locate_and_pad_parm (passed_mode, type, in_regs, fndecl,
+ initial_offset_ptr, offset_ptr, arg_size_ptr)
+ enum machine_mode passed_mode;
+ tree type;
+ int in_regs;
+ tree fndecl;
+ struct args_size *initial_offset_ptr;
+ struct args_size *offset_ptr;
+ struct args_size *arg_size_ptr;
+{
+ tree sizetree
+ = type ? size_in_bytes (type) : size_int (GET_MODE_SIZE (passed_mode));
+ enum direction where_pad = FUNCTION_ARG_PADDING (passed_mode, type);
+ int boundary = FUNCTION_ARG_BOUNDARY (passed_mode, type);
+ int boundary_in_bytes = boundary / BITS_PER_UNIT;
+ int reg_parm_stack_space = 0;
+
+#ifdef REG_PARM_STACK_SPACE
+ /* If we have found a stack parm before we reach the end of the
+ area reserved for registers, skip that area. */
+ if (! in_regs)
+ {
+ reg_parm_stack_space = REG_PARM_STACK_SPACE (fndecl);
+ if (reg_parm_stack_space > 0)
+ {
+ if (initial_offset_ptr->var)
+ {
+ initial_offset_ptr->var
+ = size_binop (MAX_EXPR, ARGS_SIZE_TREE (*initial_offset_ptr),
+ size_int (reg_parm_stack_space));
+ initial_offset_ptr->constant = 0;
+ }
+ else if (initial_offset_ptr->constant < reg_parm_stack_space)
+ initial_offset_ptr->constant = reg_parm_stack_space;
+ }
+ }
+#endif /* REG_PARM_STACK_SPACE */
+
+ arg_size_ptr->var = 0;
+ arg_size_ptr->constant = 0;
+
+#ifdef ARGS_GROW_DOWNWARD
+ if (initial_offset_ptr->var)
+ {
+ offset_ptr->constant = 0;
+ offset_ptr->var = size_binop (MINUS_EXPR, integer_zero_node,
+ initial_offset_ptr->var);
+ }
+ else
+ {
+ offset_ptr->constant = - initial_offset_ptr->constant;
+ offset_ptr->var = 0;
+ }
+ if (where_pad == upward
+ && (TREE_CODE (sizetree) != INTEGER_CST
+ || ((TREE_INT_CST_LOW (sizetree) * BITS_PER_UNIT) % PARM_BOUNDARY)))
+ sizetree = round_up (sizetree, PARM_BOUNDARY / BITS_PER_UNIT);
+ SUB_PARM_SIZE (*offset_ptr, sizetree);
+ pad_to_arg_alignment (offset_ptr, boundary);
+ if (initial_offset_ptr->var)
+ {
+ arg_size_ptr->var = size_binop (MINUS_EXPR,
+ size_binop (MINUS_EXPR,
+ integer_zero_node,
+ initial_offset_ptr->var),
+ offset_ptr->var);
+ }
+ else
+ {
+ arg_size_ptr->constant = (- initial_offset_ptr->constant -
+ offset_ptr->constant);
+ }
+/* ADD_PARM_SIZE (*arg_size_ptr, sizetree); */
+ if (where_pad == downward)
+ pad_below (arg_size_ptr, passed_mode, sizetree);
+#else /* !ARGS_GROW_DOWNWARD */
+ pad_to_arg_alignment (initial_offset_ptr, boundary);
+ *offset_ptr = *initial_offset_ptr;
+ if (where_pad == downward)
+ pad_below (offset_ptr, passed_mode, sizetree);
+
+#ifdef PUSH_ROUNDING
+ if (passed_mode != BLKmode)
+ sizetree = size_int (PUSH_ROUNDING (TREE_INT_CST_LOW (sizetree)));
+#endif
+
+ if (where_pad != none
+ && (TREE_CODE (sizetree) != INTEGER_CST
+ || ((TREE_INT_CST_LOW (sizetree) * BITS_PER_UNIT) % PARM_BOUNDARY)))
+ sizetree = round_up (sizetree, PARM_BOUNDARY / BITS_PER_UNIT);
+
+ ADD_PARM_SIZE (*arg_size_ptr, sizetree);
+#endif /* ARGS_GROW_DOWNWARD */
+}
+
+static void
+pad_to_arg_alignment (offset_ptr, boundary)
+ struct args_size *offset_ptr;
+ int boundary;
+{
+ int boundary_in_bytes = boundary / BITS_PER_UNIT;
+
+ if (boundary > BITS_PER_UNIT)
+ {
+ if (offset_ptr->var)
+ {
+ offset_ptr->var =
+#ifdef ARGS_GROW_DOWNWARD
+ round_down
+#else
+ round_up
+#endif
+ (ARGS_SIZE_TREE (*offset_ptr),
+ boundary / BITS_PER_UNIT);
+ offset_ptr->constant = 0; /*?*/
+ }
+ else
+ offset_ptr->constant =
+#ifdef ARGS_GROW_DOWNWARD
+ FLOOR_ROUND (offset_ptr->constant, boundary_in_bytes);
+#else
+ CEIL_ROUND (offset_ptr->constant, boundary_in_bytes);
+#endif
+ }
+}
+
+static void
+pad_below (offset_ptr, passed_mode, sizetree)
+ struct args_size *offset_ptr;
+ enum machine_mode passed_mode;
+ tree sizetree;
+{
+ if (passed_mode != BLKmode)
+ {
+ if (GET_MODE_BITSIZE (passed_mode) % PARM_BOUNDARY)
+ offset_ptr->constant
+ += (((GET_MODE_BITSIZE (passed_mode) + PARM_BOUNDARY - 1)
+ / PARM_BOUNDARY * PARM_BOUNDARY / BITS_PER_UNIT)
+ - GET_MODE_SIZE (passed_mode));
+ }
+ else
+ {
+ if (TREE_CODE (sizetree) != INTEGER_CST
+ || (TREE_INT_CST_LOW (sizetree) * BITS_PER_UNIT) % PARM_BOUNDARY)
+ {
+ /* Round the size up to multiple of PARM_BOUNDARY bits. */
+ tree s2 = round_up (sizetree, PARM_BOUNDARY / BITS_PER_UNIT);
+ /* Add it in. */
+ ADD_PARM_SIZE (*offset_ptr, s2);
+ SUB_PARM_SIZE (*offset_ptr, sizetree);
+ }
+ }
+}
+
+static tree
+round_down (value, divisor)
+ tree value;
+ int divisor;
+{
+ return size_binop (MULT_EXPR,
+ size_binop (FLOOR_DIV_EXPR, value, size_int (divisor)),
+ size_int (divisor));
+}
+\f
+/* Walk the tree of blocks describing the binding levels within a function
+ and warn about uninitialized variables.
+ This is done after calling flow_analysis and before global_alloc
+ clobbers the pseudo-regs to hard regs. */
+
+void
+uninitialized_vars_warning (block)
+ tree block;
+{
+ register tree decl, sub;
+ for (decl = BLOCK_VARS (block); decl; decl = TREE_CHAIN (decl))
+ {
+ if (TREE_CODE (decl) == VAR_DECL
+ /* These warnings are unreliable for and aggregates
+ because assigning the fields one by one can fail to convince
+ flow.c that the entire aggregate was initialized.
+ Unions are troublesome because members may be shorter. */
+ && TREE_CODE (TREE_TYPE (decl)) != RECORD_TYPE
+ && TREE_CODE (TREE_TYPE (decl)) != UNION_TYPE
+ && TREE_CODE (TREE_TYPE (decl)) != ARRAY_TYPE
+ && DECL_RTL (decl) != 0
+ && GET_CODE (DECL_RTL (decl)) == REG
+ && regno_uninitialized (REGNO (DECL_RTL (decl))))
+ warning_with_decl (decl,
+ "`%s' may be used uninitialized in this function");
+ if (TREE_CODE (decl) == VAR_DECL
+ && DECL_RTL (decl) != 0
+ && GET_CODE (DECL_RTL (decl)) == REG
+ && regno_clobbered_at_setjmp (REGNO (DECL_RTL (decl))))
+ warning_with_decl (decl,
+ "variable `%s' may be clobbered by `longjmp'");
+ }
+ for (sub = BLOCK_SUBBLOCKS (block); sub; sub = TREE_CHAIN (sub))
+ uninitialized_vars_warning (sub);
+}
+
+/* Do the appropriate part of uninitialized_vars_warning
+ but for arguments instead of local variables. */
+
+void
+setjmp_args_warning (block)
+ tree block;
+{
+ register tree decl;
+ for (decl = DECL_ARGUMENTS (current_function_decl);
+ decl; decl = TREE_CHAIN (decl))
+ if (DECL_RTL (decl) != 0
+ && GET_CODE (DECL_RTL (decl)) == REG
+ && regno_clobbered_at_setjmp (REGNO (DECL_RTL (decl))))
+ warning_with_decl (decl, "argument `%s' may be clobbered by `longjmp'");
+}
+
+/* If this function call setjmp, put all vars into the stack
+ unless they were declared `register'. */
+
+void
+setjmp_protect (block)
+ tree block;
+{
+ register tree decl, sub;
+ for (decl = BLOCK_VARS (block); decl; decl = TREE_CHAIN (decl))
+ if ((TREE_CODE (decl) == VAR_DECL
+ || TREE_CODE (decl) == PARM_DECL)
+ && DECL_RTL (decl) != 0
+ && GET_CODE (DECL_RTL (decl)) == REG
+ && (
+#ifdef NON_SAVING_SETJMP
+ /* If longjmp doesn't restore the registers,
+ don't put anything in them. */
+ NON_SAVING_SETJMP
+ ||
+#endif
+ ! TREE_REGDECL (decl)))
+ put_var_into_stack (decl);
+ for (sub = BLOCK_SUBBLOCKS (block); sub; sub = TREE_CHAIN (sub))
+ setjmp_protect (sub);
+}
+\f
+/* Like the previous function, but for args instead of local variables. */
+
+void
+setjmp_protect_args ()
+{
+ register tree decl, sub;
+ for (decl = DECL_ARGUMENTS (current_function_decl);
+ decl; decl = TREE_CHAIN (decl))
+ if ((TREE_CODE (decl) == VAR_DECL
+ || TREE_CODE (decl) == PARM_DECL)
+ && DECL_RTL (decl) != 0
+ && GET_CODE (DECL_RTL (decl)) == REG
+ && (
+ /* If longjmp doesn't restore the registers,
+ don't put anything in them. */
+#ifdef NON_SAVING_SETJMP
+ NON_SAVING_SETJMP
+ ||
+#endif
+ ! TREE_REGDECL (decl)))
+ put_var_into_stack (decl);
+}
+\f
+/* Return the context-pointer register corresponding to DECL,
+ or 0 if it does not need one. */
+
+rtx
+lookup_static_chain (decl)
+ tree decl;
+{
+ tree context = decl_function_context (decl);
+ tree link;
+
+ if (context == 0)
+ return 0;
+
+ /* We treat inline_function_decl as an alias for the current function
+ because that is the inline function whose vars, types, etc.
+ are being merged into the current function.
+ See expand_inline_function. */
+ if (context == current_function_decl || context == inline_function_decl)
+ return virtual_stack_vars_rtx;
+
+ for (link = context_display; link; link = TREE_CHAIN (link))
+ if (TREE_PURPOSE (link) == context)
+ return RTL_EXPR_RTL (TREE_VALUE (link));
+
+ abort ();
+}
+\f
+/* Convert a stack slot address ADDR for variable VAR
+ (from a containing function)
+ into an address valid in this function (using a static chain). */
+
+rtx
+fix_lexical_addr (addr, var)
+ rtx addr;
+ tree var;
+{
+ rtx basereg;
+ int displacement;
+ tree context = decl_function_context (var);
+ struct function *fp;
+ rtx base = 0;
+
+ /* If this is the present function, we need not do anything. */
+ if (context == current_function_decl || context == inline_function_decl)
+ return addr;
+
+ for (fp = outer_function_chain; fp; fp = fp->next)
+ if (fp->decl == context)
+ break;
+
+ if (fp == 0)
+ abort ();
+
+ /* Decode given address as base reg plus displacement. */
+ if (GET_CODE (addr) == REG)
+ basereg = addr, displacement = 0;
+ else if (GET_CODE (addr) == PLUS && GET_CODE (XEXP (addr, 1)) == CONST_INT)
+ basereg = XEXP (addr, 0), displacement = INTVAL (XEXP (addr, 1));
+ else
+ abort ();
+
+ /* We accept vars reached via the containing function's
+ incoming arg pointer and via its stack variables pointer. */
+ if (basereg == fp->internal_arg_pointer)
+ {
+ /* If reached via arg pointer, get the arg pointer value
+ out of that function's stack frame.
+
+ There are two cases: If a separate ap is needed, allocate a
+ slot in the outer function for it and dereference it that way.
+ This is correct even if the real ap is actually a pseudo.
+ Otherwise, just adjust the offset from the frame pointer to
+ compensate. */
+
+#ifdef NEED_SEPARATE_AP
+ rtx addr;
+
+ if (fp->arg_pointer_save_area == 0)
+ fp->arg_pointer_save_area
+ = assign_outer_stack_local (Pmode, GET_MODE_SIZE (Pmode), 0, fp);
+
+ addr = fix_lexical_addr (XEXP (fp->arg_pointer_save_area, 0), var);
+ addr = memory_address (Pmode, addr);
+
+ base = copy_to_reg (gen_rtx (MEM, Pmode, addr));
+#else
+ displacement += (FIRST_PARM_OFFSET (context) - STARTING_FRAME_OFFSET);
+#endif
+ }
+
+ else if (basereg == virtual_stack_vars_rtx)
+ {
+ /* This is the same code as lookup_static_chain, duplicated here to
+ avoid an extra call to decl_function_context. */
+ tree link;
+
+ for (link = context_display; link; link = TREE_CHAIN (link))
+ if (TREE_PURPOSE (link) == context)
+ {
+ base = RTL_EXPR_RTL (TREE_VALUE (link));
+ break;
+ }
+ }
+
+ if (base == 0)
+ abort ();
+
+ /* Use same offset, relative to appropriate static chain or argument
+ pointer. */
+ return plus_constant (base, displacement);
+}
+\f
+/* Return the address of the trampoline for entering nested fn FUNCTION.
+ If necessary, allocate a trampoline (in the stack frame)
+ and emit rtl to initialize its contents (at entry to this function). */
+
+rtx
+trampoline_address (function)
+ tree function;
+{
+ tree link;
+ tree rtlexp;
+ rtx tramp;
+ struct function *fp;
+ tree fn_context;
+
+ /* Find an existing trampoline and return it. */
+ for (link = trampoline_list; link; link = TREE_CHAIN (link))
+ if (TREE_PURPOSE (link) == function)
+ return XEXP (RTL_EXPR_RTL (TREE_VALUE (link)), 0);
+ for (fp = outer_function_chain; fp; fp = fp->next)
+ for (link = fp->trampoline_list; link; link = TREE_CHAIN (link))
+ if (TREE_PURPOSE (link) == function)
+ {
+ tramp = fix_lexical_addr (XEXP (RTL_EXPR_RTL (TREE_VALUE (link)), 0),
+ function);
+ return round_trampoline_addr (tramp);
+ }
+
+ /* None exists; we must make one. */
+
+ /* Find the `struct function' for the function containing FUNCTION. */
+ fp = 0;
+ fn_context = decl_function_context (function);
+ if (fn_context != current_function_decl)
+ for (fp = outer_function_chain; fp; fp = fp->next)
+ if (fp->decl == fn_context)
+ break;
+
+ /* Allocate run-time space for this trampoline
+ (usually in the defining function's stack frame). */
+#ifdef ALLOCATE_TRAMPOLINE
+ tramp = ALLOCATE_TRAMPOLINE (fp);
+#else
+ /* If rounding needed, allocate extra space
+ to ensure we have TRAMPOLINE_SIZE bytes left after rounding up. */
+#ifdef TRAMPOLINE_ALIGNMENT
+#define TRAMPOLINE_REAL_SIZE (TRAMPOLINE_SIZE + TRAMPOLINE_ALIGNMENT - 1)
+#else
+#define TRAMPOLINE_REAL_SIZE (TRAMPOLINE_SIZE)
+#endif
+ if (fp != 0)
+ tramp = assign_outer_stack_local (BLKmode, TRAMPOLINE_REAL_SIZE, 0, fp);
+ else
+ tramp = assign_stack_local (BLKmode, TRAMPOLINE_REAL_SIZE, 0);
+#endif
+
+ /* Record the trampoline for reuse and note it for later initialization
+ by expand_function_end. */
+ if (fp != 0)
+ {
+ push_obstacks (fp->current_obstack, fp->function_maybepermanent_obstack);
+ rtlexp = make_node (RTL_EXPR);
+ RTL_EXPR_RTL (rtlexp) = tramp;
+ fp->trampoline_list = tree_cons (function, rtlexp, fp->trampoline_list);
+ pop_obstacks ();
+ }
+ else
+ {
+ /* Make the RTL_EXPR node temporary, not momentary, so that the
+ trampoline_list doesn't become garbage. */
+ int momentary = suspend_momentary ();
+ rtlexp = make_node (RTL_EXPR);
+ resume_momentary (momentary);
+
+ RTL_EXPR_RTL (rtlexp) = tramp;
+ trampoline_list = tree_cons (function, rtlexp, trampoline_list);
+ }
+
+ tramp = fix_lexical_addr (XEXP (tramp, 0), function);
+ return round_trampoline_addr (tramp);
+}
+
+/* Given a trampoline address,
+ round it to multiple of TRAMPOLINE_ALIGNMENT. */
+
+static rtx
+round_trampoline_addr (tramp)
+ rtx tramp;
+{
+#ifdef TRAMPOLINE_ALIGNMENT
+ /* Round address up to desired boundary. */
+ rtx temp = gen_reg_rtx (Pmode);
+ temp = expand_binop (Pmode, add_optab, tramp,
+ gen_rtx (CONST_INT, VOIDmode, TRAMPOLINE_ALIGNMENT - 1),
+ temp, 0, OPTAB_LIB_WIDEN);
+ tramp = expand_binop (Pmode, and_optab, temp,
+ gen_rtx (CONST_INT, VOIDmode, - TRAMPOLINE_ALIGNMENT),
+ temp, 0, OPTAB_LIB_WIDEN);
+#endif
+ return tramp;
+}
+\f
+/* Generate RTL for the start of the function SUBR (a FUNCTION_DECL tree node)
+ and initialize static variables for generating RTL for the statements
+ of the function. */
+
+void
+init_function_start (subr, filename, line)
+ tree subr;
+ char *filename;
+ int line;
+{
+ char *junk;
+
+ init_stmt_for_function ();
+
+ cse_not_expected = ! optimize;
+
+ /* Caller save not needed yet. */
+ caller_save_needed = 0;
+
+ /* No stack slots have been made yet. */
+ stack_slot_list = 0;
+
+ /* There is no stack slot for handling nonlocal gotos. */
+ nonlocal_goto_handler_slot = 0;
+ nonlocal_goto_stack_level = 0;
+
+ /* No labels have been declared for nonlocal use. */
+ nonlocal_labels = 0;
+
+ /* No function calls so far in this function. */
+ function_call_count = 0;
+
+ /* No parm regs have been allocated.
+ (This is important for output_inline_function.) */
+ max_parm_reg = LAST_VIRTUAL_REGISTER + 1;
+
+ /* Initialize the RTL mechanism. */
+ init_emit ();
+
+ /* Initialize the queue of pending postincrement and postdecrements,
+ and some other info in expr.c. */
+ init_expr ();
+
+ /* We haven't done register allocation yet. */
+ reg_renumber = 0;
+
+ init_const_rtx_hash_table ();
+
+ current_function_name = (*decl_printable_name) (subr, &junk);
+
+ /* Nonzero if this is a nested function that uses a static chain. */
+
+ current_function_needs_context
+ = (decl_function_context (current_function_decl) != 0);
+
+ /* Set if a call to setjmp is seen. */
+ current_function_calls_setjmp = 0;
+
+ /* Set if a call to longjmp is seen. */
+ current_function_calls_longjmp = 0;
+
+ current_function_calls_alloca = 0;
+ current_function_has_nonlocal_label = 0;
+ current_function_contains_functions = 0;
+
+ current_function_returns_pcc_struct = 0;
+ current_function_returns_struct = 0;
+ current_function_epilogue_delay_list = 0;
+ current_function_uses_const_pool = 0;
+ current_function_uses_pic_offset_table = 0;
+
+ /* We have not yet needed to make a label to jump to for tail-recursion. */
+ tail_recursion_label = 0;
+
+ /* We haven't had a need to make a save area for ap yet. */
+
+ arg_pointer_save_area = 0;
+
+ /* No stack slots allocated yet. */
+ frame_offset = 0;
+
+ /* No SAVE_EXPRs in this function yet. */
+ save_expr_regs = 0;
+
+ /* No RTL_EXPRs in this function yet. */
+ rtl_expr_chain = 0;
+
+ /* We have not allocated any temporaries yet. */
+ temp_slots = 0;
+ temp_slot_level = 0;
+
+ /* Within function body, compute a type's size as soon it is laid out. */
+ immediate_size_expand++;
+
+ init_pending_stack_adjust ();
+ inhibit_defer_pop = 0;
+
+ current_function_outgoing_args_size = 0;
+
+ /* Initialize the insn lengths. */
+ init_insn_lengths ();
+
+ /* Prevent ever trying to delete the first instruction of a function.
+ Also tell final how to output a linenum before the function prologue. */
+ emit_line_note (filename, line);
+
+ /* Make sure first insn is a note even if we don't want linenums.
+ This makes sure the first insn will never be deleted.
+ Also, final expects a note to appear there. */
+ emit_note (0, NOTE_INSN_DELETED);
+
+ /* Set flags used by final.c. */
+ if (aggregate_value_p (DECL_RESULT (subr)))
+ {
+#ifdef PCC_STATIC_STRUCT_RETURN
+ if (flag_pcc_struct_return)
+ current_function_returns_pcc_struct = 1;
+ else
+#endif
+ current_function_returns_struct = 1;
+ }
+
+ /* Warn if this value is an aggregate type,
+ regardless of which calling convention we are using for it. */
+ if (warn_aggregate_return
+ && (TREE_CODE (TREE_TYPE (DECL_RESULT (subr))) == RECORD_TYPE
+ || TREE_CODE (TREE_TYPE (DECL_RESULT (subr))) == UNION_TYPE
+ || TREE_CODE (TREE_TYPE (DECL_RESULT (subr))) == ARRAY_TYPE))
+ warning ("function returns an aggregate");
+
+ current_function_returns_pointer
+ = (TREE_CODE (TREE_TYPE (DECL_RESULT (subr))) == POINTER_TYPE);
+
+ /* Indicate that we need to distinguish between the return value of the
+ present function and the return value of a function being called. */
+ rtx_equal_function_value_matters = 1;
+
+ /* Indicate that we have not instantiated virtual registers yet. */
+ virtuals_instantiated = 0;
+
+ /* Indicate we have no need of a frame pointer yet. */
+ frame_pointer_needed = 0;
+
+ /* By default assume not varargs. */
+ current_function_varargs = 0;
+}
+
+/* Indicate that the current function uses extra args
+ not explicitly mentioned in the argument list in any fashion. */
+
+void
+mark_varargs ()
+{
+ current_function_varargs = 1;
+}
+
+/* Expand a call to __main at the beginning of a possible main function. */
+
+void
+expand_main_function ()
+{
+#ifndef INIT_SECTION_ASM_OP
+ emit_library_call (gen_rtx (SYMBOL_REF, Pmode, "__main"), 0,
+ VOIDmode, 0);
+#endif /* not INIT_SECTION_ASM_OP */
+}
+\f
+/* Start the RTL for a new function, and set variables used for
+ emitting RTL.
+ SUBR is the FUNCTION_DECL node.
+ PARMS_HAVE_CLEANUPS is nonzero if there are cleanups associated with
+ the function's parameters, which must be run at any return statement. */
+
+void
+expand_function_start (subr, parms_have_cleanups)
+ tree subr;
+ int parms_have_cleanups;
+{
+ register int i;
+ tree tem;
+ rtx last_ptr;
+
+ /* Make sure volatile mem refs aren't considered
+ valid operands of arithmetic insns. */
+ init_recog_no_volatile ();
+
+ /* If function gets a static chain arg, store it in the stack frame.
+ Do this first, so it gets the first stack slot offset. */
+ if (current_function_needs_context)
+ emit_move_insn (assign_stack_local (Pmode, GET_MODE_SIZE (Pmode), 0),
+ static_chain_incoming_rtx);
+
+ /* If the parameters of this function need cleaning up, get a label
+ for the beginning of the code which executes those cleanups. This must
+ be done before doing anything with return_label. */
+ if (parms_have_cleanups)
+ cleanup_label = gen_label_rtx ();
+ else
+ cleanup_label = 0;
+
+ /* Make the label for return statements to jump to, if this machine
+ does not have a one-instruction return and uses an epilogue,
+ or if it returns a structure, or if it has parm cleanups. */
+#ifdef HAVE_return
+ if (cleanup_label == 0 && HAVE_return
+ && ! current_function_returns_pcc_struct
+ && ! (current_function_returns_struct && ! optimize))
+ return_label = 0;
+ else
+ return_label = gen_label_rtx ();
+#else
+ return_label = gen_label_rtx ();
+#endif
+
+ /* Initialize rtx used to return the value. */
+ /* Do this before assign_parms so that we copy the struct value address
+ before any library calls that assign parms might generate. */
+
+ /* Decide whether to return the value in memory or in a register. */
+ if (aggregate_value_p (DECL_RESULT (subr)))
+ {
+ /* Returning something that won't go in a register. */
+ register rtx value_address;
+
+#ifdef PCC_STATIC_STRUCT_RETURN
+ if (current_function_returns_pcc_struct)
+ {
+ int size = int_size_in_bytes (TREE_TYPE (DECL_RESULT (subr)));
+ value_address = assemble_static_space (size);
+ }
+ else
+#endif
+ {
+ /* Expect to be passed the address of a place to store the value.
+ If it is passed as an argument, assign_parms will take care of
+ it. */
+ if (struct_value_incoming_rtx)
+ {
+ value_address = gen_reg_rtx (Pmode);
+ emit_move_insn (value_address, struct_value_incoming_rtx);
+ }
+ }
+ if (value_address)
+ DECL_RTL (DECL_RESULT (subr))
+ = gen_rtx (MEM, DECL_MODE (DECL_RESULT (subr)),
+ value_address);
+ }
+ else if (DECL_MODE (DECL_RESULT (subr)) == VOIDmode)
+ /* If return mode is void, this decl rtl should not be used. */
+ DECL_RTL (DECL_RESULT (subr)) = 0;
+ else if (parms_have_cleanups)
+ /* If function will end with cleanup code for parms,
+ compute the return values into a pseudo reg,
+ which we will copy into the true return register
+ after the cleanups are done. */
+ DECL_RTL (DECL_RESULT (subr))
+ = gen_reg_rtx (DECL_MODE (DECL_RESULT (subr)));
+ else
+ /* Scalar, returned in a register. */
+ {
+#ifdef FUNCTION_OUTGOING_VALUE
+ DECL_RTL (DECL_RESULT (subr))
+ = FUNCTION_OUTGOING_VALUE (TREE_TYPE (DECL_RESULT (subr)), subr);
+#else
+ DECL_RTL (DECL_RESULT (subr))
+ = FUNCTION_VALUE (TREE_TYPE (DECL_RESULT (subr)), subr);
+#endif
+
+ /* Mark this reg as the function's return value. */
+ if (GET_CODE (DECL_RTL (DECL_RESULT (subr))) == REG)
+ {
+ REG_FUNCTION_VALUE_P (DECL_RTL (DECL_RESULT (subr))) = 1;
+ /* Needed because we may need to move this to memory
+ in case it's a named return value whose address is taken. */
+ TREE_REGDECL (DECL_RESULT (subr)) = 1;
+ }
+ }
+
+ /* Initialize rtx for parameters and local variables.
+ In some cases this requires emitting insns. */
+
+ assign_parms (subr, 0);
+
+ /* The following was moved from init_function_start.
+ The move is supposed to make sdb output more accurate. */
+ /* Indicate the beginning of the function body,
+ as opposed to parm setup. */
+ emit_note (0, NOTE_INSN_FUNCTION_BEG);
+
+ /* If doing stupid allocation, mark parms as born here. */
+
+ if (GET_CODE (get_last_insn ()) != NOTE)
+ emit_note (0, NOTE_INSN_DELETED);
+ parm_birth_insn = get_last_insn ();
+
+ if (obey_regdecls)
+ {
+ for (i = LAST_VIRTUAL_REGISTER + 1; i < max_parm_reg; i++)
+ use_variable (regno_reg_rtx[i]);
+
+ if (current_function_internal_arg_pointer != virtual_incoming_args_rtx)
+ use_variable (current_function_internal_arg_pointer);
+ }
+
+ /* Fetch static chain values for containing functions. */
+ tem = decl_function_context (current_function_decl);
+ if (tem)
+ last_ptr = copy_to_reg (static_chain_incoming_rtx);
+ context_display = 0;
+ while (tem)
+ {
+ tree rtlexp = make_node (RTL_EXPR);
+
+ RTL_EXPR_RTL (rtlexp) = last_ptr;
+ context_display = tree_cons (tem, rtlexp, context_display);
+ tem = decl_function_context (tem);
+ if (tem == 0)
+ break;
+ /* Chain thru stack frames, assuming pointer to next lexical frame
+ is found at the place we always store it. */
+#ifdef FRAME_GROWS_DOWNWARD
+ last_ptr = plus_constant (last_ptr, - GET_MODE_SIZE (Pmode));
+#endif
+ last_ptr = copy_to_reg (gen_rtx (MEM, Pmode,
+ memory_address (Pmode, last_ptr)));
+ }
+
+ /* After the display initializations is where the tail-recursion label
+ should go, if we end up needing one. Ensure we have a NOTE here
+ since some things (like trampolines) get placed before this. */
+ tail_recursion_reentry = emit_note (0, NOTE_INSN_DELETED);
+
+ /* Evaluate now the sizes of any types declared among the arguments. */
+ for (tem = nreverse (get_pending_sizes ()); tem; tem = TREE_CHAIN (tem))
+ expand_expr (TREE_VALUE (tem), 0, VOIDmode, 0);
+
+ /* Make sure there is a line number after the function entry setup code. */
+ force_next_line_note ();
+}
+\f
+/* Generate RTL for the end of the current function.
+ FILENAME and LINE are the current position in the source file. */
+
+/* It is up to language-specific callers to do cleanups for parameters. */
+
+void
+expand_function_end (filename, line)
+ char *filename;
+ int line;
+{
+ register int i;
+ tree link;
+
+ static rtx initial_trampoline;
+
+#ifdef NON_SAVING_SETJMP
+ /* Don't put any variables in registers if we call setjmp
+ on a machine that fails to restore the registers. */
+ if (NON_SAVING_SETJMP && current_function_calls_setjmp)
+ {
+ setjmp_protect (DECL_INITIAL (current_function_decl));
+ setjmp_protect_args ();
+ }
+#endif
+
+ /* Save the argument pointer if a save area was made for it. */
+ if (arg_pointer_save_area)
+ {
+ rtx x = gen_move_insn (arg_pointer_save_area, virtual_incoming_args_rtx);
+ emit_insn_before (x, tail_recursion_reentry);
+ }
+
+ /* Initialize any trampolines required by this function. */
+ for (link = trampoline_list; link; link = TREE_CHAIN (link))
+ {
+ tree function = TREE_PURPOSE (link);
+ rtx context = lookup_static_chain (function);
+ rtx tramp = RTL_EXPR_RTL (TREE_VALUE (link));
+ rtx seq;
+
+ /* First make sure this compilation has a template for
+ initializing trampolines. */
+ if (initial_trampoline == 0)
+ initial_trampoline
+ = gen_rtx (MEM, BLKmode, assemble_trampoline_template ());
+
+ /* Generate insns to initialize the trampoline. */
+ start_sequence ();
+ tramp = change_address (initial_trampoline, BLKmode,
+ round_trampoline_addr (XEXP (tramp, 0)));
+ emit_block_move (tramp, initial_trampoline,
+ gen_rtx (CONST_INT, VOIDmode, TRAMPOLINE_SIZE),
+ FUNCTION_BOUNDARY / BITS_PER_UNIT);
+ INITIALIZE_TRAMPOLINE (XEXP (tramp, 0),
+ XEXP (DECL_RTL (function), 0), context);
+ seq = get_insns ();
+ end_sequence ();
+
+ /* Put those insns at entry to the containing function (this one). */
+ emit_insns_before (seq, tail_recursion_reentry);
+ }
+ /* Clear the trampoline_list for the next function. */
+ trampoline_list = 0;
+
+#if 0 /* I think unused parms are legitimate enough. */
+ /* Warn about unused parms. */
+ if (warn_unused)
+ {
+ rtx decl;
+
+ for (decl = DECL_ARGUMENTS (current_function_decl);
+ decl; decl = TREE_CHAIN (decl))
+ if (! TREE_USED (decl) && TREE_CODE (decl) == VAR_DECL)
+ warning_with_decl (decl, "unused parameter `%s'");
+ }
+#endif
+
+ /* Delete handlers for nonlocal gotos if nothing uses them. */
+ if (nonlocal_goto_handler_slot != 0 && !current_function_has_nonlocal_label)
+ delete_handlers ();
+
+ /* End any sequences that failed to be closed due to syntax errors. */
+ while (in_sequence_p ())
+ end_sequence (0);
+
+ /* Outside function body, can't compute type's actual size
+ until next function's body starts. */
+ immediate_size_expand--;
+
+ /* If doing stupid register allocation,
+ mark register parms as dying here. */
+
+ if (obey_regdecls)
+ {
+ rtx tem;
+ for (i = LAST_VIRTUAL_REGISTER + 1; i < max_parm_reg; i++)
+ use_variable (regno_reg_rtx[i]);
+
+ /* Likewise for the regs of all the SAVE_EXPRs in the function. */
+
+ for (tem = save_expr_regs; tem; tem = XEXP (tem, 1))
+ {
+ use_variable (XEXP (tem, 0));
+ use_variable_after (XEXP (tem, 0), parm_birth_insn);
+ }
+
+ if (current_function_internal_arg_pointer != virtual_incoming_args_rtx)
+ use_variable (current_function_internal_arg_pointer);
+ }
+
+ clear_pending_stack_adjust ();
+ do_pending_stack_adjust ();
+
+ /* Mark the end of the function body.
+ If control reaches this insn, the function can drop through
+ without returning a value. */
+ emit_note (0, NOTE_INSN_FUNCTION_END);
+
+ /* Output a linenumber for the end of the function.
+ SDB depends on this. */
+ emit_line_note_force (filename, line);
+
+ /* Output the label for the actual return from the function,
+ if one is expected. This happens either because a function epilogue
+ is used instead of a return instruction, or because a return was done
+ with a goto in order to run local cleanups, or because of pcc-style
+ structure returning. */
+
+ if (return_label)
+ emit_label (return_label);
+
+ /* If we had calls to alloca, and this machine needs
+ an accurate stack pointer to exit the function,
+ insert some code to save and restore the stack pointer. */
+#ifdef EXIT_IGNORE_STACK
+ if (! EXIT_IGNORE_STACK)
+#endif
+ if (current_function_calls_alloca)
+ {
+ rtx tem = gen_reg_rtx (Pmode);
+ emit_insn_after (gen_rtx (SET, VOIDmode, tem, stack_pointer_rtx),
+ parm_birth_insn);
+ emit_insn (gen_rtx (SET, VOIDmode, stack_pointer_rtx, tem));
+ }
+
+ /* If scalar return value was computed in a pseudo-reg,
+ copy that to the hard return register. */
+ if (DECL_RTL (DECL_RESULT (current_function_decl)) != 0
+ && GET_CODE (DECL_RTL (DECL_RESULT (current_function_decl))) == REG
+ && (REGNO (DECL_RTL (DECL_RESULT (current_function_decl)))
+ >= FIRST_PSEUDO_REGISTER))
+ {
+ rtx real_decl_result;
+
+#ifdef FUNCTION_OUTGOING_VALUE
+ real_decl_result
+ = FUNCTION_OUTGOING_VALUE (TREE_TYPE (DECL_RESULT (current_function_decl)),
+ current_function_decl);
+#else
+ real_decl_result
+ = FUNCTION_VALUE (TREE_TYPE (DECL_RESULT (current_function_decl)),
+ current_function_decl);
+#endif
+ REG_FUNCTION_VALUE_P (real_decl_result) = 1;
+ emit_move_insn (real_decl_result,
+ DECL_RTL (DECL_RESULT (current_function_decl)));
+ emit_insn (gen_rtx (USE, VOIDmode, real_decl_result));
+ }
+
+ /* If returning a structure, arrange to return the address of the value
+ in a place where debuggers expect to find it.
+
+ If returning a structure PCC style,
+ the caller also depends on this value.
+ And current_function_returns_pcc_struct is not necessarily set. */
+ if (current_function_returns_struct
+ || current_function_returns_pcc_struct)
+ {
+ rtx value_address = XEXP (DECL_RTL (DECL_RESULT (current_function_decl)), 0);
+ tree type = TREE_TYPE (DECL_RESULT (current_function_decl));
+#ifdef FUNCTION_OUTGOING_VALUE
+ rtx outgoing
+ = FUNCTION_OUTGOING_VALUE (build_pointer_type (type),
+ current_function_decl);
+#else
+ rtx outgoing
+ = FUNCTION_VALUE (build_pointer_type (type),
+ current_function_decl);
+#endif
+
+ /* Mark this as a function return value so integrate will delete the
+ assignment and USE below when inlining this function. */
+ REG_FUNCTION_VALUE_P (outgoing) = 1;
+
+ emit_move_insn (outgoing, value_address);
+ use_variable (outgoing);
+ }
+
+ /* Output a return insn if we are using one.
+ Otherwise, let the rtl chain end here, to drop through
+ into the epilogue. */
+
+#ifdef HAVE_return
+ if (HAVE_return)
+ {
+ emit_jump_insn (gen_return ());
+ emit_barrier ();
+ }
+#endif
+
+ /* Fix up any gotos that jumped out to the outermost
+ binding level of the function.
+ Must follow emitting RETURN_LABEL. */
+
+ /* If you have any cleanups to do at this point,
+ and they need to create temporary variables,
+ then you will lose. */
+ fixup_gotos (0, 0, 0, get_insns (), 0);
+}