MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(call_operand): Any reg is valid for NT.

Browse Source 
(output_prologue): Never need GP for Windows/NT.
Set SYMBOL_REF_FLAG in current function decl.

From-SVN: r9381
This commit is contained in:
Richard Kenner 1995-04-14 09:08:58 -04:00
parent 1c3b948b07
commit 9973f4a294
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -369,7 +369,8 @@ call_operand (op, mode)
return 0;
return (GET_CODE (op) == SYMBOL_REF
|| (GET_CODE (op) == REG && REGNO (op) == 27));
|| (GET_CODE (op) == REG
&& (REGNO (op) == 27 || WINDOWS_NT)));
}
/* Return 1 if OP is a valid Alpha comparison operator. Here we know which
@ -1341,7 +1342,9 @@ output_prolog (file, size)
/* If we need a GP (we have a LDSYM insn or a CALL_INSN), load it first.
Even if we are a static function, we still need to do this in case
our address is taken and passed to something like qsort. */
our address is taken and passed to something like qsort.
We never need a GP for Windows/NT. */
alpha_function_needs_gp = 0;
for (insn = get_insns (); insn; insn = NEXT_INSN (insn))
@ -1356,12 +1359,15 @@ output_prolog (file, size)
break;
}
if (alpha_function_needs_gp)
fprintf (file, "\tldgp $29,0($27)\n");
if (WINDOWS_NT == 0)
{
if (alpha_function_needs_gp)
fprintf (file, "\tldgp $29,0($27)\n");
/* Put a label after the GP load so we can enter the function at it. */
assemble_name (file, alpha_function_name);
fprintf (file, "..ng:\n");
/* Put a label after the GP load so we can enter the function at it. */
assemble_name (file, alpha_function_name);
fprintf (file, "..ng:\n");
}
/* Adjust the stack by the frame size. If the frame size is > 4096
bytes, we need to be sure we probe somewhere in the first and last
@ -1578,6 +1584,9 @@ output_epilog (file, size)
assemble_name (file, alpha_function_name);
fprintf (file, "\n");
inside_function = FALSE;
/* Show that we know this function if it is called again. */
SYMBOL_REF_FLAG (XEXP (DECL_RTL (current_function_decl), 0)) = 1;
}
/* Debugging support. */