darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* gas/config/tc-hppa.c (pa_ip): Replace "L$0\001" with FAKE_LABEL_NAME.

Browse source 
(hppa_force_relocation): Check if a stub just before the start symbol
	of the last call_info is reachable before forcing relocation.  Fix
	typo.
This commit is contained in:
Jeff Law 2002-06-06 06:50:12 +00:00
parent 8b579b7ab6
commit ec8b3afdf2
2 changed files with 31 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gas/ChangeLog
View file

@ -1,3 +1,10 @@
2002-06-06 John David Anglin <dave@hiauly1.hia.nrc.ca>
* gas/config/tc-hppa.c (pa_ip): Replace "L$0\001" with FAKE_LABEL_NAME.
(hppa_force_relocation): Check if a stub just before the start symbol
of the last call_info is reachable before forcing relocation. Fix
typo.
2002-06-04 Maciej W. Rozycki <macro@ds2.pg.gda.pl> 2002-06-04 Maciej W. Rozycki <macro@ds2.pg.gda.pl>
* config/tc-mips.c (mips_after_parse_args): New function. * config/tc-mips.c (mips_after_parse_args): New function.

36
gas/config/tc-hppa.c
View file

@ -3251,7 +3251,7 @@ pa_ip (str)
the_insn.pcrel = 1; the_insn.pcrel = 1;
if (!the_insn.exp.X_add_symbol if (!the_insn.exp.X_add_symbol
|| !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol), || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
"L$0\001")) FAKE_LABEL_NAME))
{ {
num = evaluate_absolute (&the_insn); num = evaluate_absolute (&the_insn);
if (num % 4) if (num % 4)
@ -3283,7 +3283,7 @@ pa_ip (str)
the_insn.pcrel = 1; the_insn.pcrel = 1;
if (!the_insn.exp.X_add_symbol if (!the_insn.exp.X_add_symbol
|| !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol), || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
"L$0\001")) FAKE_LABEL_NAME))
{ {
num = evaluate_absolute (&the_insn); num = evaluate_absolute (&the_insn);
if (num % 4) if (num % 4)
@ -3314,7 +3314,7 @@ pa_ip (str)
the_insn.pcrel = 1; the_insn.pcrel = 1;
if (!the_insn.exp.X_add_symbol if (!the_insn.exp.X_add_symbol
|| !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol), || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
"L$0\001")) FAKE_LABEL_NAME))
{ {
num = evaluate_absolute (&the_insn); num = evaluate_absolute (&the_insn);
if (num % 4) if (num % 4)
@ -3344,7 +3344,7 @@ pa_ip (str)
the_insn.pcrel = 0; the_insn.pcrel = 0;
if (!the_insn.exp.X_add_symbol if (!the_insn.exp.X_add_symbol
|| !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol), || !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
"L$0\001")) FAKE_LABEL_NAME))
{ {
num = evaluate_absolute (&the_insn); num = evaluate_absolute (&the_insn);
if (num % 4) if (num % 4)
@ -8547,15 +8547,27 @@ hppa_force_relocation (fixp)
/* Now check to see if we're going to need a long-branch stub. */ /* Now check to see if we're going to need a long-branch stub. */
if (fixp->fx_r_type == (int) R_HPPA_PCREL_CALL) if (fixp->fx_r_type == (int) R_HPPA_PCREL_CALL)
{ {
valueT distance; long pc = md_pcrel_from (fixp);
valueT distance, min_stub_distance;
distance = (fixp->fx_offset + S_GET_VALUE (fixp->fx_addsy) distance = fixp->fx_offset + S_GET_VALUE (fixp->fx_addsy) - pc - 8;
- md_pcrel_from (fixp) - 8);
if (distance + 8388608 >= 16777216 /* Distance to the closest possible stub. This will detect most
|| (hppa_fixp->fx_r_format == 17 && distance + 262144 >= 524288) but not all circumstances where a stub will not work. */
#ifdef OBJ_ELF min_stub_distance = pc + 16;
|| (hppa_fixp->fx_r_format == 12 && distance + 8192 >= 16384) #ifdef OBJ_SOM
if (last_call_info != NULL)
min_stub_distance -= S_GET_VALUE (last_call_info->start_symbol);
#endif #endif
if ((distance + 8388608 >= 16777216
&& min_stub_distance <= 8388608)
|| (hppa_fixp->fx_r_format == 17
&& distance + 262144 >= 524288
&& min_stub_distance <= 262144)
|| (hppa_fixp->fx_r_format == 12
&& distance + 8192 >= 16384
&& min_stub_distance <= 8192)
) )
return 1; return 1;
} }
@ -8570,7 +8582,7 @@ hppa_force_relocation (fixp)
/* Now for some ELF specific code. FIXME. */ /* Now for some ELF specific code. FIXME. */
#ifdef OBJ_ELF #ifdef OBJ_ELF
/* Mark the end of a function so that it's possible to compute /* Mark the end of a function so that it's possible to compute
the size of the function in hppa_elf_final_processing. */ the size of the function in elf_hppa_final_processing. */
static void static void
hppa_elf_mark_end_of_function () hppa_elf_mark_end_of_function ()