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

* write.c (write_contents): Compute the relocs before writing out 

the section contents.
	* config/obj-ecoff.h, config/obj-ecoff.c: Numerous changes to get
	symbol table and values right.
	* config/tc-mips.h (LOCAL_LABEL): If OBJ_ECOFF, any label starting
	with $L is local.
	* config/tc-mips.c (tc_gen_reloc): If OBJ_ECOFF, adjust the addend
	by the section vma.

	* config/z8k.mt (TARG_CPU_DEPENDENTS): The relevant file is
	z8k-opc.h, not z8k.h.
This commit is contained in:
Ian Lance Taylor 1993-03-15 23:58:22 +00:00
parent 6deb169cc8
commit 3d3c503955
5 changed files with 7882 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gas/ChangeLog
View File

@ -1,5 +1,17 @@
Mon Mar 15 12:17:28 1993 Ian Lance Taylor (ian@cygnus.com)
* write.c (write_contents): Compute the relocs before writing out
the section contents.
* config/obj-ecoff.h, config/obj-ecoff.c: Numerous changes to get
symbol table and values right.
* config/tc-mips.h (LOCAL_LABEL): If OBJ_ECOFF, any label starting
with $L is local.
* config/tc-mips.c (tc_gen_reloc): If OBJ_ECOFF, adjust the addend
by the section vma.
* config/z8k.mt (TARG_CPU_DEPENDENTS): The relevant file is
z8k-opc.h, not z8k.h.
* config/obj-coffbfd.c (obj_coff_endef): Correct test for .bf
symbol.

4822
gas/config/obj-ecoff.c Normal file
View File

File diff suppressed because it is too large Load Diff

2980
gas/config/tc-mips.c Normal file
View File

File diff suppressed because it is too large Load Diff

2
gas/config/z8k.mt
View File

@ -1,3 +1,3 @@
TARG_CPU_DEPENDENTS=$(srcdir)/../opcodes/z8k.h
TARG_CPU_DEPENDENTS=$(srcdir)/../opcodes/z8k-opc.h
LOCAL_LOADLIBES=../bfd/libbfd.a
TDEFINES=-DBFD_HEADERS -DMANY_SEGMENTS -DBFD -DSINGLE_QUOTE_STRINGS

136
gas/write.c
View File

@ -400,40 +400,82 @@ write_contents (abfd, sec, xxx)
fixup_segment (seginfo->fix_root, sec);
n = 0;
for (i = 0, fixp = seginfo->fix_root; fixp; fixp = fixp->fx_next)
if (fixp->fx_addsy)
{
symbolS *sym = fixp->fx_addsy;
asection *sec = sym->bsym->section;
if (sec == &bfd_und_section
|| sec == &bfd_abs_section
|| sec == &bfd_com_section)
continue;
if (sym->bsym == sec->symbol)
continue;
/* If the section symbol isn't going to be output, the relocs
at least should still work. If not, figure out what to do
when we run into that case. */
fixp->fx_offset += S_GET_VALUE (sym);
fixp->fx_addsy = symbol_find (sec->name);
if (!fixp->fx_addsy)
{
fixp->fx_addsy = symbol_make (sec->name);
fixp->fx_addsy->bsym = sec->symbol;
}
}
{
n++;
if (fixp->fx_addsy)
{
symbolS *sym = fixp->fx_addsy;
asection *sec = sym->bsym->section;
if (sec == &bfd_und_section
|| sec == &bfd_abs_section
|| sec == &bfd_com_section)
continue;
if (sym->bsym == sec->symbol)
continue;
/* If the section symbol isn't going to be output, the relocs
at least should still work. If not, figure out what to do
when we run into that case. */
fixp->fx_offset += S_GET_VALUE (sym);
fixp->fx_addsy = symbol_find (sec->name);
if (!fixp->fx_addsy)
{
fixp->fx_addsy = symbol_make (sec->name);
fixp->fx_addsy->bsym = sec->symbol;
}
}
}
/* Force calculations (size, vma) to get done. */
bfd_set_section_contents (stdoutput, sec, "", 0, 0);
/* Set up reloc information as well. */
n = 0;
for (fixp = seginfo->fix_root; fixp; fixp = fixp->fx_next)
n++;
relocs = (arelent **) bfd_alloc_by_size_t (stdoutput,
n * sizeof (arelent *));
for (frags = seginfo->frchainP->frch_root, fixp = seginfo->fix_root, i = 0;
i = 0;
for (fixp = seginfo->fix_root; fixp != (fixS *) NULL; fixp = fixp->fx_next)
{
arelent *reloc;
extern arelent *tc_gen_reloc ();
char *data;
bfd_reloc_status_type s;
if (fixp->fx_addsy == 0)
{
/* @@ Need some other flag to indicate which have already
been performed... */
n--;
continue;
}
reloc = tc_gen_reloc (sec, fixp);
if (!reloc)
{
n--;
continue;
}
data = fixp->fx_frag->fr_literal + fixp->fx_where;
if (fixp->fx_where + 4
> fixp->fx_frag->fr_fix + fixp->fx_frag->fr_offset)
abort ();
s = bfd_perform_relocation (stdoutput, reloc, data - reloc->address,
sec, stdoutput);
switch (s)
{
case bfd_reloc_ok:
break;
default:
as_fatal ("bad return from bfd_perform_relocation");
}
relocs[i++] = reloc;
}
if (n)
bfd_set_reloc (stdoutput, sec, relocs, n);
/* Write out the frags. */
for (frags = seginfo->frchainP->frch_root;
frags;
frags = frags->fr_next)
{
@ -443,44 +485,6 @@ write_contents (abfd, sec, xxx)
long count;
assert (frags->fr_type == rs_fill);
while (fixp
&& fixp->fx_frag == frags)
{
arelent *reloc;
extern arelent *tc_gen_reloc ();
char *data;
static bfd_reloc_status_type s;
if (fixp->fx_addsy == 0)
{
/* @@ Need some other flag to indicate which have already
been performed... */
n--;
goto next;
}
reloc = tc_gen_reloc (sec, fixp);
if (!reloc)
{
n--;
goto next;
}
data = frags->fr_literal + fixp->fx_where;
if (fixp->fx_where + 4 > frags->fr_fix + frags->fr_offset)
abort ();
s = bfd_perform_relocation (stdoutput, reloc, data - reloc->address,
sec, stdoutput);
switch (s)
{
case bfd_reloc_ok:
break;
default:
printf ("bad s value\n");
abort ();
}
relocs[i++] = reloc;
next:
fixp = fixp->fx_next;
}
if (frags->fr_fix)
{
x = bfd_set_section_contents (stdoutput, sec,
@ -502,12 +506,6 @@ write_contents (abfd, sec, xxx)
offset += fill_size;
}
}
/* Did we miss any relocs? */
if (fixp != 0)
abort ();
if (n)
bfd_set_reloc (stdoutput, sec, relocs, n);
}
#endif