OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

pa.c (output_function_prologue): Undo Aug.

Browse Source 
* pa.c (output_function_prologue): Undo Aug. 13 change.
	If profiling, then this function makes calls.  Reflect this in
	CALLINFO.
	(output_function_epilogue): If profiling, then be restore "rp" here.

	* pa.c (use_milli_regs): Deleted.

From-SVN: r2065
This commit is contained in:
Jeff Law 1992-09-06 18:42:04 -06:00
parent 29662692f4
commit 2040c37b07
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gcc/config/pa/pa.c
View File

@ -1464,7 +1464,7 @@ output_function_prologue (file, size, leaf_function)
/* Let's not try to bullshit more than we need to here. */ /* Let's not try to bullshit more than we need to here. */
/* This might be right a lot of the time */ /* This might be right a lot of the time */
fprintf (file, "\t.PROC\n\t.CALLINFO FRAME=%d", actual_fsize); fprintf (file, "\t.PROC\n\t.CALLINFO FRAME=%d", actual_fsize);
if (regs_ever_live[2]) if (regs_ever_live[2] || profile_flag)
fprintf (file, ",CALLS,SAVE_RP\n"); fprintf (file, ",CALLS,SAVE_RP\n");
else else
fprintf (file, ",NO_CALLS\n"); fprintf (file, ",NO_CALLS\n");
@ -1539,7 +1539,6 @@ output_function_prologue (file, size, leaf_function)
for (i = 26, arg_offset = -36 - offsetadj; i >= 23; i--, arg_offset -= 4) for (i = 26, arg_offset = -36 - offsetadj; i >= 23; i--, arg_offset -= 4)
if (regs_ever_live[i]) if (regs_ever_live[i])
print_ldw (file, i, arg_offset, basereg); print_ldw (file, i, arg_offset, basereg);
print_ldw (file, 2, -20 - offsetadj, basereg);
} }
/* Normal register save. */ /* Normal register save. */
@ -1680,16 +1679,17 @@ output_function_epilogue (file, size, leaf_function)
if (frame_pointer_needed) if (frame_pointer_needed)
{ {
fprintf (file, "\tldo 8(4),30\n"); fprintf (file, "\tldo 8(4),30\n");
if (regs_ever_live[2]) if (regs_ever_live[2] || profile_flag)
fprintf (file, "\tldw -28(0,30),2\n"); fprintf (file, "\tldw -28(0,30),2\n");
fprintf (file, "\tbv 0(2)\n\tldwm -8(30),4\n"); fprintf (file, "\tbv 0(2)\n\tldwm -8(30),4\n");
} }
else if (actual_fsize) else if (actual_fsize)
{ {
if (regs_ever_live[2] && VAL_14_BITS_P (actual_fsize + 20)) if ((regs_ever_live[2] || profile_flag)
&& VAL_14_BITS_P (actual_fsize + 20))
fprintf (file, "\tldw %d(30),2\n\tbv 0(2)\n\tldo %d(30),30\n", fprintf (file, "\tldw %d(30),2\n\tbv 0(2)\n\tldo %d(30),30\n",
-(actual_fsize + 20), -actual_fsize); -(actual_fsize + 20), -actual_fsize);
else if (regs_ever_live[2]) else if (regs_ever_live[2] || profile_flag)
fprintf (file, fprintf (file,
"\taddil L'%d,30\n\tldw %d(1),2\n\tbv 0(2)\n\tldo R'%d(1),30\n", "\taddil L'%d,30\n\tldw %d(1),2\n\tbv 0(2)\n\tldo R'%d(1),30\n",
- actual_fsize, - actual_fsize,
@ -2379,16 +2379,6 @@ function_arg_padding (mode, type)
return none; return none;
} }
int
use_milli_regs (insn)
rtx insn;
{
return (reg_mentioned_p (gen_rtx (REG, SImode, 1), insn) ||
reg_mentioned_p (gen_rtx (REG, SImode, 25), insn) ||
reg_mentioned_p (gen_rtx (REG, SImode, 26), insn) ||
reg_mentioned_p (gen_rtx (REG, SImode, 29), insn) ||
reg_mentioned_p (gen_rtx (REG, SImode, 31), insn));
}
/* Do what is necessary for `va_start'. The argument is ignored; /* Do what is necessary for `va_start'. The argument is ignored;
We look at the current function to determine if stdargs or varargs We look at the current function to determine if stdargs or varargs