mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-19 17:19:48 +08:00
Code Issues Packages Projects Releases Wiki Activity

Patch from Richard Henderson for large frames.

Browse Source 
* alpha/alpha.c (output_prolog): New variable sa_reg.  Use it for
	out-or-range reg_offset.
	(output_epilog): Likewise.

From-SVN: r15458
This commit is contained in:
Richard Henderson 1997-09-15 15:28:34 -07:00 committed by Jim Wilson
parent 4da0677ba7
commit 0d24ff5d24
2 changed files with 51 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ChangeLog
View File

@ -1,3 +1,9 @@
Mon Sep 15 15:24:00 1997 Richard Henderson <rth@cygnus.com>
* alpha/alpha.c (output_prolog): New variable sa_reg. Use it for
out-or-range reg_offset.
(output_epilog): Likewise.
Mon Sep 15 15:39:26 1997 Jeffrey A Law (law@cygnus.com)
* cse.c (simplify_relational_operation): If MODE specifies a

53
gcc/config/alpha/alpha.c
View File

@ -2317,7 +2317,7 @@ output_prolog (file, size)
int int_reg_save_area_size = 0;
rtx insn;
unsigned reg_mask = 0;
int i;
int i, sa_reg;
/* Ecoff can handle multiple .file directives, so put out file and lineno.
We have to do that before the .ent directive as we cannot switch
@ -2463,12 +2463,30 @@ output_prolog (file, size)
? HARD_FRAME_POINTER_REGNUM : STACK_POINTER_REGNUM),
frame_size, current_function_pretend_args_size);
}
/* Cope with very large offsets to the register save area. */
sa_reg = 30;
if (reg_offset + sa_size > 0x8000)
{
int low = ((reg_offset & 0xffff) ^ 0x8000) - 0x8000;
if (low + sa_size <= 0x8000)
{
add_long_const (file, reg_offset - low, 30, 24, 24);
reg_offset = low;
}
else
{
add_long_const (file, reg_offset, 30, 24, 24);
reg_offset = 0;
}
sa_reg = 24;
}
/* Save register 26 if any other register needs to be saved. */
if (sa_size != 0)
{
reg_mask |= 1 << 26;
fprintf (file, "\tstq $26,%d($30)\n", reg_offset);
fprintf (file, "\tstq $26,%d($%d)\n", reg_offset, sa_reg);
reg_offset += 8;
int_reg_save_area_size += 8;
}
@ -2478,7 +2496,7 @@ output_prolog (file, size)
if (! fixed_regs[i] && ! call_used_regs[i] && regs_ever_live[i] && i != 26)
{
reg_mask |= 1 << i;
fprintf (file, "\tstq $%d,%d($30)\n", i, reg_offset);
fprintf (file, "\tstq $%d,%d($%d)\n", i, reg_offset, sa_reg);
reg_offset += 8;
int_reg_save_area_size += 8;
}
@ -2496,7 +2514,7 @@ output_prolog (file, size)
&& regs_ever_live[i + 32])
{
reg_mask |= 1 << i;
fprintf (file, "\tstt $f%d,%d($30)\n", i, reg_offset);
fprintf (file, "\tstt $f%d,%d($%d)\n", i, reg_offset, sa_reg);
reg_offset += 8;
}
@ -2542,6 +2560,7 @@ output_epilog (file, size)
if (insn == 0 || GET_CODE (insn) != BARRIER)
{
int fp_offset = 0;
int sa_reg;
final_prescan_insn (NULL_RTX, NULL_PTR, 0);
@ -2549,11 +2568,29 @@ output_epilog (file, size)
if (frame_pointer_needed)
fprintf (file, "\tbis $15,$15,$30\n");
/* Cope with large offsets to the register save area. */
sa_reg = 30;
if (reg_offset + sa_size > 0x8000)
{
int low = ((reg_offset & 0xffff) ^ 0x8000) - 0x8000;
if (low + sa_size <= 0x8000)
{
add_long_const (file, reg_offset - low, 30, 24, 24);
reg_offset = low;
}
else
{
add_long_const (file, reg_offset, 30, 24, 24);
reg_offset = 0;
}
sa_reg = 24;
}
/* Restore all the registers, starting with the return address
register. */
if (sa_size != 0)
{
fprintf (file, "\tldq $26,%d($30)\n", reg_offset);
fprintf (file, "\tldq $26,%d($%d)\n", reg_offset, sa_reg);
reg_offset += 8;
}
@ -2568,7 +2605,7 @@ output_epilog (file, size)
if (i == HARD_FRAME_POINTER_REGNUM && frame_pointer_needed)
fp_offset = reg_offset;
else
fprintf (file, "\tldq $%d,%d($30)\n", i, reg_offset);
fprintf (file, "\tldq $%d,%d($%d)\n", i, reg_offset, sa_reg);
reg_offset += 8;
}
@ -2576,7 +2613,7 @@ output_epilog (file, size)
if (! fixed_regs[i + 32] && ! call_used_regs[i + 32]
&& regs_ever_live[i + 32])
{
fprintf (file, "\tldt $f%d,%d($30)\n", i, reg_offset);
fprintf (file, "\tldt $f%d,%d($%d)\n", i, reg_offset, sa_reg);
reg_offset += 8;
}
@ -2591,7 +2628,7 @@ output_epilog (file, size)
now. This must be done in one instruction immediately
before the SP update. */
if (restore_fp && fp_offset)
fprintf (file, "\tldq $15,%d($30)\n", fp_offset);
fprintf (file, "\tldq $15,%d($%d)\n", fp_offset, sa_reg);
/* Now update the stack pointer, if needed. Only one instruction must
modify the stack pointer. It must be the last instruction in the