diff options
Diffstat (limited to 'contrib/gcc/global.c')
-rw-r--r-- | contrib/gcc/global.c | 248 |
1 files changed, 123 insertions, 125 deletions
diff --git a/contrib/gcc/global.c b/contrib/gcc/global.c index 0840b87..de765b3 100644 --- a/contrib/gcc/global.c +++ b/contrib/gcc/global.c @@ -1,6 +1,6 @@ /* Allocate registers for pseudo-registers that span basic blocks. Copyright (C) 1987, 1988, 1991, 1994, 1996, 1997, 1998, - 1999, 2000, 2002 Free Software Foundation, Inc. + 1999, 2000, 2002, 2003 Free Software Foundation, Inc. This file is part of GCC. @@ -22,6 +22,8 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "config.h" #include "system.h" +#include "coretypes.h" +#include "tm.h" #include "machmode.h" #include "hard-reg-set.h" @@ -287,24 +289,23 @@ static int n_regs_set; static HARD_REG_SET eliminable_regset; -static int allocno_compare PARAMS ((const PTR, const PTR)); -static void global_conflicts PARAMS ((void)); -static void mirror_conflicts PARAMS ((void)); -static void expand_preferences PARAMS ((void)); -static void prune_preferences PARAMS ((void)); -static void find_reg PARAMS ((int, HARD_REG_SET, int, int, int)); -static void record_one_conflict PARAMS ((int)); -static void record_conflicts PARAMS ((int *, int)); -static void mark_reg_store PARAMS ((rtx, rtx, void *)); -static void mark_reg_clobber PARAMS ((rtx, rtx, void *)); -static void mark_reg_conflicts PARAMS ((rtx)); -static void mark_reg_death PARAMS ((rtx)); -static void mark_reg_live_nc PARAMS ((int, enum machine_mode)); -static void set_preference PARAMS ((rtx, rtx)); -static void dump_conflicts PARAMS ((FILE *)); -static void reg_becomes_live PARAMS ((rtx, rtx, void *)); -static void reg_dies PARAMS ((int, enum machine_mode, - struct insn_chain *)); +static int allocno_compare (const void *, const void *); +static void global_conflicts (void); +static void mirror_conflicts (void); +static void expand_preferences (void); +static void prune_preferences (void); +static void find_reg (int, HARD_REG_SET, int, int, int); +static void record_one_conflict (int); +static void record_conflicts (int *, int); +static void mark_reg_store (rtx, rtx, void *); +static void mark_reg_clobber (rtx, rtx, void *); +static void mark_reg_conflicts (rtx); +static void mark_reg_death (rtx); +static void mark_reg_live_nc (int, enum machine_mode); +static void set_preference (rtx, rtx); +static void dump_conflicts (FILE *); +static void reg_becomes_live (rtx, rtx, void *); +static void reg_dies (int, enum machine_mode, struct insn_chain *); /* Perform allocation of pseudo-registers not allocated by local_alloc. FILE is a file to output debugging information on, @@ -314,8 +315,7 @@ static void reg_dies PARAMS ((int, enum machine_mode, and we must not do any more for this function. */ int -global_alloc (file) - FILE *file; +global_alloc (FILE *file) { int retval; #ifdef ELIMINABLE_REGS @@ -323,9 +323,7 @@ global_alloc (file) #endif int need_fp = (! flag_omit_frame_pointer -#ifdef EXIT_IGNORE_STACK || (current_function_calls_alloca && EXIT_IGNORE_STACK) -#endif || FRAME_POINTER_REQUIRED); size_t i; @@ -343,22 +341,48 @@ global_alloc (file) #ifdef ELIMINABLE_REGS for (i = 0; i < ARRAY_SIZE (eliminables); i++) { - SET_HARD_REG_BIT (eliminable_regset, eliminables[i].from); + bool cannot_elim + = (! CAN_ELIMINATE (eliminables[i].from, eliminables[i].to) + || (eliminables[i].to == STACK_POINTER_REGNUM && need_fp)); + + if (!regs_asm_clobbered[eliminables[i].from]) + { + SET_HARD_REG_BIT (eliminable_regset, eliminables[i].from); - if (! CAN_ELIMINATE (eliminables[i].from, eliminables[i].to) - || (eliminables[i].to == STACK_POINTER_REGNUM && need_fp)) - SET_HARD_REG_BIT (no_global_alloc_regs, eliminables[i].from); + if (cannot_elim) + SET_HARD_REG_BIT (no_global_alloc_regs, eliminables[i].from); + } + else if (cannot_elim) + error ("%s cannot be used in asm here", + reg_names[eliminables[i].from]); + else + regs_ever_live[eliminables[i].from] = 1; } #if FRAME_POINTER_REGNUM != HARD_FRAME_POINTER_REGNUM - SET_HARD_REG_BIT (eliminable_regset, HARD_FRAME_POINTER_REGNUM); - if (need_fp) - SET_HARD_REG_BIT (no_global_alloc_regs, HARD_FRAME_POINTER_REGNUM); + if (!regs_asm_clobbered[HARD_FRAME_POINTER_REGNUM]) + { + SET_HARD_REG_BIT (eliminable_regset, HARD_FRAME_POINTER_REGNUM); + if (need_fp) + SET_HARD_REG_BIT (no_global_alloc_regs, HARD_FRAME_POINTER_REGNUM); + } + else if (need_fp) + error ("%s cannot be used in asm here", + reg_names[HARD_FRAME_POINTER_REGNUM]); + else + regs_ever_live[HARD_FRAME_POINTER_REGNUM] = 1; #endif #else - SET_HARD_REG_BIT (eliminable_regset, FRAME_POINTER_REGNUM); - if (need_fp) - SET_HARD_REG_BIT (no_global_alloc_regs, FRAME_POINTER_REGNUM); + if (!regs_asm_clobbered[FRAME_POINTER_REGNUM]) + { + SET_HARD_REG_BIT (eliminable_regset, FRAME_POINTER_REGNUM); + if (need_fp) + SET_HARD_REG_BIT (no_global_alloc_regs, FRAME_POINTER_REGNUM); + } + else if (need_fp) + error ("%s cannot be used in asm here", reg_names[FRAME_POINTER_REGNUM]); + else + regs_ever_live[FRAME_POINTER_REGNUM] = 1; #endif /* Track which registers have already been used. Start with registers @@ -398,14 +422,14 @@ global_alloc (file) /* Establish mappings from register number to allocation number and vice versa. In the process, count the allocnos. */ - reg_allocno = (int *) xmalloc (max_regno * sizeof (int)); + reg_allocno = xmalloc (max_regno * sizeof (int)); for (i = 0; i < FIRST_PSEUDO_REGISTER; i++) reg_allocno[i] = -1; /* Initialize the shared-hard-reg mapping from the list of pairs that may share. */ - reg_may_share = (int *) xcalloc (max_regno, sizeof (int)); + reg_may_share = xcalloc (max_regno, sizeof (int)); for (x = regs_may_share; x; x = XEXP (XEXP (x, 1), 1)) { int r1 = REGNO (XEXP (x, 0)); @@ -436,7 +460,7 @@ global_alloc (file) else reg_allocno[i] = -1; - allocno = (struct allocno *) xcalloc (max_allocno, sizeof (struct allocno)); + allocno = xcalloc (max_allocno, sizeof (struct allocno)); for (i = FIRST_PSEUDO_REGISTER; i < (size_t) max_regno; i++) if (reg_allocno[i] >= 0) @@ -454,9 +478,9 @@ global_alloc (file) /* Calculate amount of usage of each hard reg by pseudos allocated by local-alloc. This is to see if we want to override it. */ - memset ((char *) local_reg_live_length, 0, sizeof local_reg_live_length); - memset ((char *) local_reg_n_refs, 0, sizeof local_reg_n_refs); - memset ((char *) local_reg_freq, 0, sizeof local_reg_freq); + memset (local_reg_live_length, 0, sizeof local_reg_live_length); + memset (local_reg_n_refs, 0, sizeof local_reg_n_refs); + memset (local_reg_freq, 0, sizeof local_reg_freq); for (i = FIRST_PSEUDO_REGISTER; i < (size_t) max_regno; i++) if (reg_renumber[i] >= 0) { @@ -482,10 +506,9 @@ global_alloc (file) /* We used to use alloca here, but the size of what it would try to allocate would occasionally cause it to exceed the stack limit and cause unpredictable core dumps. Some examples were > 2Mb in size. */ - conflicts = (INT_TYPE *) xcalloc (max_allocno * allocno_row_words, - sizeof (INT_TYPE)); + conflicts = xcalloc (max_allocno * allocno_row_words, sizeof (INT_TYPE)); - allocnos_live = (INT_TYPE *) xmalloc (allocno_row_words * sizeof (INT_TYPE)); + allocnos_live = xmalloc (allocno_row_words * sizeof (INT_TYPE)); /* If there is work to be done (at least one reg to allocate), perform global conflict analysis and allocate the regs. */ @@ -522,7 +545,7 @@ global_alloc (file) /* Determine the order to allocate the remaining pseudo registers. */ - allocno_order = (int *) xmalloc (max_allocno * sizeof (int)); + allocno_order = xmalloc (max_allocno * sizeof (int)); for (i = 0; i < (size_t) max_allocno; i++) allocno_order[i] = i; @@ -597,9 +620,7 @@ global_alloc (file) Returns -1 (1) if *v1 should be allocated before (after) *v2. */ static int -allocno_compare (v1p, v2p) - const PTR v1p; - const PTR v2p; +allocno_compare (const void *v1p, const void *v2p) { int v1 = *(const int *)v1p, v2 = *(const int *)v2p; /* Note that the quotient will never be bigger than @@ -627,7 +648,7 @@ allocno_compare (v1p, v2p) conflict matrices and preference tables. */ static void -global_conflicts () +global_conflicts (void) { int i; basic_block b; @@ -635,13 +656,13 @@ global_conflicts () int *block_start_allocnos; /* Make a vector that mark_reg_{store,clobber} will store in. */ - regs_set = (rtx *) xmalloc (max_parallel * sizeof (rtx) * 2); + regs_set = xmalloc (max_parallel * sizeof (rtx) * 2); - block_start_allocnos = (int *) xmalloc (max_allocno * sizeof (int)); + block_start_allocnos = xmalloc (max_allocno * sizeof (int)); FOR_EACH_BB (b) { - memset ((char *) allocnos_live, 0, allocno_row_words * sizeof (INT_TYPE)); + memset (allocnos_live, 0, allocno_row_words * sizeof (INT_TYPE)); /* Initialize table of registers currently live to the state at the beginning of this basic block. @@ -693,7 +714,7 @@ global_conflicts () 2. Y is live at some instruction on the path that evaluates X. - 3. Either X or Y is not evaluted on the path to P + 3. Either X or Y is not evaluated on the path to P (ie it is used uninitialized) and thus the conflict can be ignored. @@ -701,29 +722,41 @@ global_conflicts () scan the instruction that makes either X or Y become live. */ record_conflicts (block_start_allocnos, ax); -#ifdef STACK_REGS + /* Pseudos can't go in stack regs at the start of a basic block that + is reached by an abnormal edge. Likewise for call clobbered regs, + because because caller-save, fixup_abnormal_edges, and possibly + the table driven EH machinery are not quite ready to handle such + regs live across such edges. */ { - /* Pseudos can't go in stack regs at the start of a basic block - that is reached by an abnormal edge. */ - edge e; + for (e = b->pred; e ; e = e->pred_next) if (e->flags & EDGE_ABNORMAL) break; + if (e != NULL) { +#ifdef STACK_REGS EXECUTE_IF_SET_IN_ALLOCNO_SET (allocnos_live, ax, - { - allocno[ax].no_stack_reg = 1; - }); + { + allocno[ax].no_stack_reg = 1; + }); for (ax = FIRST_STACK_REG; ax <= LAST_STACK_REG; ax++) - record_one_conflict (ax); + record_one_conflict (ax); +#endif + + /* No need to record conflicts for call clobbered regs if we have + nonlocal labels around, as we don't ever try to allocate such + regs in this case. */ + if (! current_function_has_nonlocal_label) + for (ax = 0; ax < FIRST_PSEUDO_REGISTER; ax++) + if (call_used_regs [ax]) + record_one_conflict (ax); } } -#endif } - insn = b->head; + insn = BB_HEAD (b); /* Scan the code of this basic block, noting which allocnos and hard regs are born or die. When one is born, @@ -823,7 +856,7 @@ global_conflicts () } } - if (insn == b->end) + if (insn == BB_END (b)) break; insn = NEXT_INSN (insn); } @@ -838,7 +871,7 @@ global_conflicts () merge any preferences between those allocnos. */ static void -expand_preferences () +expand_preferences (void) { rtx insn; rtx link; @@ -889,11 +922,11 @@ expand_preferences () we will avoid using these registers. */ static void -prune_preferences () +prune_preferences (void) { int i; int num; - int *allocno_to_order = (int *) xmalloc (max_allocno * sizeof (int)); + int *allocno_to_order = xmalloc (max_allocno * sizeof (int)); /* Scan least most important to most important. For each allocno, remove from preferences registers that cannot be used, @@ -977,12 +1010,7 @@ prune_preferences () If not, do nothing. */ static void -find_reg (num, losers, alt_regs_p, accept_call_clobbered, retrying) - int num; - HARD_REG_SET losers; - int alt_regs_p; - int accept_call_clobbered; - int retrying; +find_reg (int num, HARD_REG_SET losers, int alt_regs_p, int accept_call_clobbered, int retrying) { int i, best_reg, pass; HARD_REG_SET used, used1, used2; @@ -1096,7 +1124,7 @@ find_reg (num, losers, alt_regs_p, accept_call_clobbered, retrying) (j < lim && ! TEST_HARD_REG_BIT (used, j) && (REGNO_REG_CLASS (j) - == REGNO_REG_CLASS (best_reg + (j - i)) + == REGNO_REG_CLASS (best_reg + (j - i)) || reg_class_subset_p (REGNO_REG_CLASS (j), REGNO_REG_CLASS (best_reg + (j - i))) || reg_class_subset_p (REGNO_REG_CLASS (best_reg + (j - i)), @@ -1135,7 +1163,7 @@ find_reg (num, losers, alt_regs_p, accept_call_clobbered, retrying) (j < lim && ! TEST_HARD_REG_BIT (used, j) && (REGNO_REG_CLASS (j) - == REGNO_REG_CLASS (best_reg + (j - i)) + == REGNO_REG_CLASS (best_reg + (j - i)) || reg_class_subset_p (REGNO_REG_CLASS (j), REGNO_REG_CLASS (best_reg + (j - i))) || reg_class_subset_p (REGNO_REG_CLASS (best_reg + (j - i)), @@ -1216,8 +1244,8 @@ find_reg (num, losers, alt_regs_p, accept_call_clobbered, retrying) mode) #endif #ifdef STACK_REGS - && (!allocno[num].no_stack_reg - || regno < FIRST_STACK_REG || regno > LAST_STACK_REG) + && (!allocno[num].no_stack_reg + || regno < FIRST_STACK_REG || regno > LAST_STACK_REG) #endif ) { @@ -1297,9 +1325,7 @@ find_reg (num, losers, alt_regs_p, accept_call_clobbered, retrying) If FORBIDDEN_REGS is zero, no regs are forbidden. */ void -retry_global_alloc (regno, forbidden_regs) - int regno; - HARD_REG_SET forbidden_regs; +retry_global_alloc (int regno, HARD_REG_SET forbidden_regs) { int alloc_no = reg_allocno[regno]; if (alloc_no >= 0) @@ -1330,8 +1356,7 @@ retry_global_alloc (regno, forbidden_regs) reg_renumber before calling here. */ static void -record_one_conflict (regno) - int regno; +record_one_conflict (int regno) { int j; @@ -1374,24 +1399,16 @@ record_one_conflict (regno) are currently live. Their bits are also flagged in allocnos_live. */ static void -record_conflicts (allocno_vec, len) - int *allocno_vec; - int len; +record_conflicts (int *allocno_vec, int len) { - int num; - int ialloc_prod; - while (--len >= 0) - { - num = allocno_vec[len]; - ialloc_prod = num * allocno_row_words; - IOR_HARD_REG_SET (allocno[num].hard_reg_conflicts, hard_regs_live); - } + IOR_HARD_REG_SET (allocno[allocno_vec[len]].hard_reg_conflicts, + hard_regs_live); } /* If CONFLICTP (i, j) is true, make sure CONFLICTP (j, i) is also true. */ static void -mirror_conflicts () +mirror_conflicts (void) { int i, j; int rw = allocno_row_words; @@ -1439,9 +1456,7 @@ mirror_conflicts () a REG_INC note was found for it). */ static void -mark_reg_store (reg, setter, data) - rtx reg, setter; - void *data ATTRIBUTE_UNUSED; +mark_reg_store (rtx reg, rtx setter, void *data ATTRIBUTE_UNUSED) { int regno; @@ -1488,9 +1503,7 @@ mark_reg_store (reg, setter, data) /* Like mark_reg_set except notice just CLOBBERs; ignore SETs. */ static void -mark_reg_clobber (reg, setter, data) - rtx reg, setter; - void *data ATTRIBUTE_UNUSED; +mark_reg_clobber (rtx reg, rtx setter, void *data ATTRIBUTE_UNUSED) { if (GET_CODE (setter) == CLOBBER) mark_reg_store (reg, setter, data); @@ -1500,8 +1513,7 @@ mark_reg_clobber (reg, setter, data) Do not mark REG itself as live. */ static void -mark_reg_conflicts (reg) - rtx reg; +mark_reg_conflicts (rtx reg) { int regno; @@ -1540,8 +1552,7 @@ mark_reg_conflicts (reg) Store a 0 in regs_live or allocnos_live for this register. */ static void -mark_reg_death (reg) - rtx reg; +mark_reg_death (rtx reg) { int regno = REGNO (reg); @@ -1577,9 +1588,7 @@ mark_reg_death (reg) it is assumed that the caller will do that. */ static void -mark_reg_live_nc (regno, mode) - int regno; - enum machine_mode mode; +mark_reg_live_nc (int regno, enum machine_mode mode) { int last = regno + HARD_REGNO_NREGS (regno, mode); while (regno < last) @@ -1599,8 +1608,7 @@ mark_reg_live_nc (regno, mode) pseudo-register to a hard register. */ static void -set_preference (dest, src) - rtx dest, src; +set_preference (rtx dest, rtx src) { unsigned int src_regno, dest_regno; /* Amount to add to the hard regno for SRC, or subtract from that for DEST, @@ -1707,8 +1715,7 @@ set_preference (dest, src) a use of TO. */ void -mark_elimination (from, to) - int from, to; +mark_elimination (int from, int to) { basic_block bb; @@ -1730,10 +1737,7 @@ static regset live_relevant_regs; /* Record in live_relevant_regs and REGS_SET that register REG became live. This is called via note_stores. */ static void -reg_becomes_live (reg, setter, regs_set) - rtx reg; - rtx setter ATTRIBUTE_UNUSED; - void *regs_set; +reg_becomes_live (rtx reg, rtx setter ATTRIBUTE_UNUSED, void *regs_set) { int regno; @@ -1764,10 +1768,7 @@ reg_becomes_live (reg, setter, regs_set) /* Record in live_relevant_regs that register REGNO died. */ static void -reg_dies (regno, mode, chain) - int regno; - enum machine_mode mode; - struct insn_chain *chain; +reg_dies (int regno, enum machine_mode mode, struct insn_chain *chain) { if (regno < FIRST_PSEUDO_REGISTER) { @@ -1791,8 +1792,7 @@ reg_dies (regno, mode, chain) /* Walk the insns of the current function and build reload_insn_chain, and record register life information. */ void -build_insn_chain (first) - rtx first; +build_insn_chain (rtx first) { struct insn_chain **p = &reload_insn_chain; struct insn_chain *prev = 0; @@ -1805,7 +1805,7 @@ build_insn_chain (first) { struct insn_chain *c; - if (first == b->head) + if (first == BB_HEAD (b)) { int i; @@ -1867,7 +1867,7 @@ build_insn_chain (first) } } - if (first == b->end) + if (first == BB_END (b)) b = b->next_bb; /* Stop after we pass the end of the last basic block. Verify that @@ -1897,8 +1897,7 @@ build_insn_chain (first) showing the information on which the allocation decisions are based. */ static void -dump_conflicts (file) - FILE *file; +dump_conflicts (FILE *file) { int i; int has_preferences; @@ -1955,8 +1954,7 @@ dump_conflicts (file) } void -dump_global_regs (file) - FILE *file; +dump_global_regs (FILE *file) { int i, j; |