OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* config/tc-hppa.c (pa_procend): Handle case where label was

Browse Source 
defined after the .proc directive.
This commit is contained in:
Jeff Law 1994-04-11 16:11:12 +00:00
parent 61b3c2c58b
commit caed9e8251
2 changed files with 40 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gas/ChangeLog
View File

@ -1,5 +1,8 @@
Mon Apr 11 09:00:57 1994 Jeffrey A. Law (law@snake.cs.utah.edu)
* config/tc-hppa.c (pa_procend): Handle case where label was
defined after the .proc directive.
* config/tc-hppa.c (pa_procend): Give an error if we encounter a
procend for a procedure without a name.

39
gas/config/tc-hppa.c
View File

@ -5008,8 +5008,43 @@ pa_procend (unused)
int unused;
{
if (last_call_info->start_symbol == NULL)
as_bad ("Missing function name for .PROC");
/* If we are within a procedure definition, make sure we've
defined a label for the procedure; handle case where the
label was defined after the .PROC directive.
Note there's not need to diddle with the segment or fragment
for the label symbol in this case. We have already switched
into the new $CODE$ subspace at this point. */
if (within_procedure && last_call_info->start_symbol == NULL)
{
label_symbol_struct *label_symbol = pa_get_label ();
if (label_symbol)
{
if (label_symbol->lss_label)
{
last_call_info->start_symbol = label_symbol->lss_label;
label_symbol->lss_label->bsym->flags |= BSF_FUNCTION;
#ifdef OBJ_SOM
/* Also handle allocation of a fixup to hold the unwind
information when the label appears after the proc/procend. */
if (within_entry_exit)
{
char *where = frag_more (0);
fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
last_call_info->start_symbol, (offsetT) 0, NULL,
0, R_HPPA_ENTRY, e_fsel, 0, 0,
(char *) &last_call_info->ci_unwind.descriptor);
}
#endif
}
else
as_bad ("Missing function name for .PROC (corrupted label chain)");
}
else
as_bad ("Missing function name for .PROC");
}
if (!within_procedure)
as_bad ("misplaced .procend");