freebsd-dev/gnu/usr.bin/as/config/obj-ieee.c

540 lines
12 KiB
C
Raw Normal View History

/* obj-format for ieee-695 records.
Copyright (C) 1991, 1992 Free Software Foundation, Inc.
1995-05-30 05:05:38 +00:00
This file is part of GAS, the GNU Assembler.
1995-05-30 05:05:38 +00:00
GAS is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
1995-05-30 05:05:38 +00:00
GAS is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
1995-05-30 05:05:38 +00:00
You should have received a copy of the GNU General Public License
along with GAS; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
1995-05-30 05:05:38 +00:00
/*
created by
1995-05-30 05:05:38 +00:00
steve chamberlain steve@cygnus.com
*/
/*
this will hopefully become the port through which bfd and gas talk,
for the moment, only ieee is known to work well.
*/
#include "bfd.h"
#include "as.h"
#include "subsegs.h"
#include "output-file.h"
#include "frags.h"
bfd *abfd;
/* How many addresses does the .align take? */
static relax_addressT relax_align(address, alignment)
register relax_addressT address; /* Address now. */
register long alignment; /* Alignment (binary). */
{
relax_addressT mask;
relax_addressT new_address;
1995-05-30 05:05:38 +00:00
mask = ~ ( (~0) << alignment );
new_address = (address + mask) & (~ mask);
return (new_address - address);
} /* relax_align() */
/* calculate the size of the frag chain and create a bfd section
to contain all of it */
static void DEFUN(size_section,(abfd, idx),
bfd *abfd AND
unsigned int idx)
{
asection *sec;
unsigned int size = 0;
fragS *frag = segment_info[idx].frag_root;
while (frag) {
1995-05-30 05:05:38 +00:00
if (frag->fr_address != size) {
printf("Out of step\n");
size = frag->fr_address;
}
size += frag->fr_fix;
switch (frag->fr_type) {
case rs_fill:
case rs_org:
size += frag->fr_offset * frag->fr_var;
break;
case rs_align:
size += relax_align(size, frag->fr_offset);
}
frag = frag->fr_next;
}
if (size) {
char *name = segment_info[idx].name;
if (name == (char *)NULL) {
name = ".data";
}
segment_info[idx].user_stuff = (char *)(sec = bfd_make_section(abfd, name));
/* Make it output through itself */
sec->output_section = sec;
sec->flags |= SEC_HAS_CONTENTS;
bfd_set_section_size(abfd, sec, size);
}
}
/* run through a frag chain and write out the data to go with it */
static void DEFUN(fill_section,(abfd, idx),
bfd *abfd AND
unsigned int idx)
{
asection *sec = segment_info[idx].user_stuff;
if (sec) {
fragS *frag = segment_info[idx].frag_root;
unsigned int offset = 0;
while (frag) {
unsigned int fill_size;
unsigned int count;
switch (frag->fr_type) {
case rs_fill:
case rs_align:
case rs_org:
1995-05-30 05:05:38 +00:00
if (frag->fr_fix)
{
bfd_set_section_contents(abfd,
sec,
frag->fr_literal,
frag->fr_address,
frag->fr_fix);
}
offset += frag->fr_fix;
fill_size = frag->fr_var;
1995-05-30 05:05:38 +00:00
if (fill_size)
{
unsigned int off = frag->fr_fix;
1995-05-30 05:05:38 +00:00
for (count = frag->fr_offset; count; count--)
{
bfd_set_section_contents(abfd, sec,
frag->fr_literal +
frag->fr_fix,
frag->fr_address + off,
fill_size);
off += fill_size;
}
}
break;
1995-05-30 05:05:38 +00:00
default:
abort();
}
frag = frag->fr_next;
}
}
}
/* Count the relocations in a chain */
static unsigned int DEFUN(count_entries_in_chain,(idx),
unsigned int idx)
{
unsigned int nrelocs;
fixS *fixup_ptr;
1995-05-30 05:05:38 +00:00
/* Count the relocations */
fixup_ptr = segment_info[idx].fix_root;
nrelocs = 0;
1995-05-30 05:05:38 +00:00
while (fixup_ptr != (fixS *)NULL)
{
fixup_ptr = fixup_ptr->fx_next;
nrelocs ++ ;
}
return nrelocs;
}
/* output all the relocations for a section */
1995-05-30 05:05:38 +00:00
void DEFUN(do_relocs_for,(idx),
unsigned int idx)
{
unsigned int nrelocs;
arelent **reloc_ptr_vector;
arelent *reloc_vector;
asymbol **ptrs;
asection *section = (asection *)(segment_info[idx].user_stuff);
unsigned int i;
fixS *from;
if (section) {
nrelocs = count_entries_in_chain(idx);
1995-05-30 05:05:38 +00:00
reloc_ptr_vector = (arelent**)malloc((nrelocs+1) * sizeof(arelent *));
reloc_vector = (arelent*)malloc(nrelocs * sizeof(arelent));
ptrs = (asymbol **)malloc(nrelocs * sizeof(asymbol *));
from = segment_info[idx].fix_root;
1995-05-30 05:05:38 +00:00
for (i = 0; i < nrelocs; i++)
{
arelent *to = reloc_vector + i;
asymbol *s ;
reloc_ptr_vector[i] = to;
to->howto = (reloc_howto_type *)(from->fx_r_type);
1995-05-30 05:05:38 +00:00
/* We can't represent complicated things in a reloc yet */
/* if (from->fx_addsy == 0 ||
from->fx_subsy != 0) abort();
*/
s = &( from->fx_addsy->sy_symbol.sy);
to->address = ((char *)( from->fx_frag->fr_address +
1995-05-30 05:05:38 +00:00
from->fx_where))
- ((char *)(&(from->fx_frag->fr_literal)));
to->addend = from->fx_offset ;
/* If we know the symbol which we want to relocate to, turn this
1995-05-30 05:05:38 +00:00
reloaction into a section relative.
If this relocation is pcrelative, and we know the
destination, we still want to keep the relocation - since
the linker might relax some of the bytes, but it stops
being pc relative and turns into an absolute relocation.
1995-05-30 05:05:38 +00:00
*/
if (s) {
if ((s->flags & BSF_UNDEFINED) == 0) {
to->section = s->section;
to->addend += s->value ;
to->sym_ptr_ptr = 0;
if (to->howto->pcrel_offset) {
/* This is a pcrel relocation, the addend should be adjusted */
to->addend -= to->address +1;
}
}
else {
to->section = 0;
*ptrs = &(from->fx_addsy->sy_symbol.sy);
to->sym_ptr_ptr = ptrs;
1995-05-30 05:05:38 +00:00
if (to->howto->pcrel_offset) {
/* This is a pcrel relocation, the addend should be adjusted */
to->addend -= to->address -1;
}
}
1995-05-30 05:05:38 +00:00
}
else {
to->section = 0;
}
1995-05-30 05:05:38 +00:00
ptrs++;
from = from->fx_next;
}
1995-05-30 05:05:38 +00:00
/* attatch to the section */
section->orelocation = reloc_ptr_vector;
1995-05-30 05:05:38 +00:00
section->reloc_count = nrelocs;
section->flags |= SEC_LOAD;
1995-05-30 05:05:38 +00:00
}
}
/* do the symbols.. */
static void DEFUN(do_symbols, (abfd),
bfd *abfd)
{
extern symbolS *symbol_rootP;
symbolS *ptr;
asymbol **symbol_ptr_vec;
asymbol *symbol_vec;
unsigned int count = 0;
unsigned int index;
1995-05-30 05:05:38 +00:00
for (ptr = symbol_rootP;
ptr != (symbolS *)NULL;
1995-05-30 05:05:38 +00:00
ptr = ptr->sy_next)
{
1995-05-30 05:05:38 +00:00
if (SEG_NORMAL(ptr->sy_symbol.seg))
{
ptr->sy_symbol.sy.section =
(asection *)(segment_info[ptr->sy_symbol.seg].user_stuff);
ptr->sy_symbol.sy.value += ptr->sy_frag->fr_address;
if (ptr->sy_symbol.sy.flags == 0) {
ptr->sy_symbol.sy.flags = BSF_LOCAL ;
}
}
else {
switch (ptr->sy_symbol.seg) {
case SEG_ABSOLUTE:
ptr->sy_symbol.sy.flags |= BSF_ABSOLUTE;
ptr->sy_symbol.sy.section = 0;
break;
case SEG_UNKNOWN:
ptr->sy_symbol.sy.flags = BSF_UNDEFINED ;
ptr->sy_symbol.sy.section = 0;
break;
default:
abort();
}
}
count++;
}
symbol_ptr_vec = (asymbol **)malloc((count+1) * sizeof(asymbol *));
1995-05-30 05:05:38 +00:00
index = 0;
for (ptr = symbol_rootP;
ptr != (symbolS *)NULL;
1995-05-30 05:05:38 +00:00
ptr = ptr->sy_next)
{
symbol_ptr_vec[index] = &(ptr->sy_symbol.sy);
index++;
}
symbol_ptr_vec[index] =0;
abfd->outsymbols = symbol_ptr_vec;
abfd->symcount = count;
}
/* The generic as->bfd converter. Other backends may have special case
code */
void DEFUN_VOID(bfd_as_write_hook)
{
int i;
1995-05-30 05:05:38 +00:00
for (i = SEG_E0; i < SEG_UNKNOWN; i++) {
size_section(abfd, i);
}
1995-05-30 05:05:38 +00:00
for (i = SEG_E0; i < SEG_UNKNOWN; i++)
fill_section(abfd,i);
1995-05-30 05:05:38 +00:00
do_symbols(abfd);
1995-05-30 05:05:38 +00:00
for (i = SEG_E0; i < SEG_UNKNOWN; i++)
do_relocs_for(i);
1995-05-30 05:05:38 +00:00
}
1995-05-30 05:05:38 +00:00
S_GET_VALUE(x)
symbolS *x;
{
1995-05-30 05:05:38 +00:00
return x->sy_symbol.sy.value;
}
S_SET_SEGMENT(x,y)
symbolS *x ;
int y;
1995-05-30 05:05:38 +00:00
{
x->sy_symbol.seg = y;
}
S_IS_DEFINED(x)
symbolS *x;
{
1995-05-30 05:05:38 +00:00
if (SEG_NORMAL(x->sy_symbol.seg))
{
return 1;
}
1995-05-30 05:05:38 +00:00
switch (x->sy_symbol.seg)
{
case SEG_UNKNOWN:
return 0;
default:
1995-05-30 05:05:38 +00:00
abort();
}
}
S_IS_EXTERNAL(x) { abort(); }
S_GET_DESC(x) { abort() ; }
S_GET_SEGMENT(x)
symbolS *x;
{ return x->sy_symbol.seg; }
S_SET_EXTERNAL(x)
1995-05-30 05:05:38 +00:00
symbolS *x;
{
x->sy_symbol.sy.flags |= BSF_GLOBAL | BSF_EXPORT;
}
S_SET_NAME(x,y)
symbolS*x;
char *y; {
x->sy_symbol.sy.name = y; }
S_SET_VALUE(s,v)
symbolS *s;
long v;
1995-05-30 05:05:38 +00:00
{
s->sy_symbol.sy.value = v;
}
S_GET_OTHER(x) { abort() ;}
S_IS_DEBUG(x) { abort(); }
char *segment_name() { abort(); }
void obj_read_begin_hook() { }
static void obj_ieee_section(ignore)
int ignore;
{
extern char *input_line_pointer;
extern char is_end_of_line[];
char *p= input_line_pointer;
char *s = p;
int i;
/* Look up the name, if it doesn't exist, make it */
while (*p &&* p != ' ' && *p != ',' && !is_end_of_line[*p]) {
p++;
}
for (i = SEG_E0; i < SEG_UNKNOWN; i++) {
if (segment_info[i].hadone){
if (strncmp(segment_info[i].name, s, p-s) == 0) {
goto ok;
1995-05-30 05:05:38 +00:00
}
}
else break;
}
if (i == SEG_UNKNOWN) {
as_bad("too many sections");
return;
}
1995-05-30 05:05:38 +00:00
segment_info[i].hadone = 1;
segment_info[i].name = malloc(p-s + 1);
memcpy(segment_info[i].name, s, p-s);
1995-05-30 05:05:38 +00:00
segment_info[i].name[p-s] = 0;
ok:
subseg_new(i,0);
1995-05-30 05:05:38 +00:00
while (!is_end_of_line[*p])
p++;
input_line_pointer = p;
1995-05-30 05:05:38 +00:00
}
void cons();
void s_ignore();
/*
* stringer()
*
* We read 0 or more ',' seperated, double-quoted strings.
*
* Caller should have checked need_pass_2 is FALSE because we don't check it.
*/
void stringer();
void s_globl();
1995-05-30 05:05:38 +00:00
const pseudo_typeS obj_pseudo_table[] =
{
{"section", obj_ieee_section, 0},
{"data.b", cons, 1},
{"data.w", cons, 2},
{"data.l", cons, 4},
{"export", s_globl, 0},
{"option", s_ignore, 0},
{"end", s_ignore, 0},
{"import", s_ignore, 0},
{"sdata", stringer, 0},
0,
1995-05-30 05:05:38 +00:00
};
void obj_symbol_new_hook(symbolP)
symbolS *symbolP;
{
symbolP->sy_symbol.sy.the_bfd = abfd;
}
#if 1
extern void DEFUN_VOID(write_object_file)
{
int i;
1995-05-30 05:05:38 +00:00
struct frchain *frchain_ptr;
struct frag *frag_ptr;
1995-05-30 05:05:38 +00:00
abfd = bfd_openw(out_file_name, "ieee");
1995-05-30 05:05:38 +00:00
if (abfd == 0) {
as_perror ("FATAL: Can't create %s", out_file_name);
exit(42);
}
bfd_set_format(abfd, bfd_object);
bfd_set_arch_mach(abfd, bfd_arch_h8300, 0);
subseg_new(1,0);
subseg_new(2,0);
subseg_new(3,0);
for (frchain_ptr = frchain_root;
1995-05-30 05:05:38 +00:00
frchain_ptr != (struct frchain *)NULL;
frchain_ptr = frchain_ptr->frch_next) {
/* Run through all the sub-segments and align them up. Also close any
open frags. We tack a .fill onto the end of the frag chain so
that any .align's size can be worked by looking at the next
frag */
1995-05-30 05:05:38 +00:00
subseg_new(frchain_ptr->frch_seg, frchain_ptr->frch_subseg);
#define SUB_SEGMENT_ALIGN 2
frag_align(SUB_SEGMENT_ALIGN,0);
frag_wane(frag_now);
frag_now->fr_fix = 0;
know( frag_now->fr_next == NULL );
}
1995-05-30 05:05:38 +00:00
/* Now build one big frag chain for each segment, linked through
fr_next. */
for (i = SEG_E0; i < SEG_UNKNOWN; i++)
1995-05-30 05:05:38 +00:00
{
fragS ** prev_frag_ptr_ptr ;
struct frchain *next_frchain_ptr;
1995-05-30 05:05:38 +00:00
/* struct frag **head_ptr = segment_info[i].frag_root;*/
1995-05-30 05:05:38 +00:00
segment_info[i].frag_root = segment_info[i].frchainP->frch_root;
#if 0
/* Im not sure what this is for */
for (frchain_ptr = segment_info[i].frchainP->frch_root;
frchain_ptr != (struct frchain *)NULL;
frchain_ptr = frchain_ptr->frch_next)
{
*head_ptr = frchain_ptr;
head_ptr = &frchain_ptr->next;
}
1995-05-30 05:05:38 +00:00
#endif
}
1995-05-30 05:05:38 +00:00
for (i = SEG_E0; i < SEG_UNKNOWN; i++) {
relax_segment(segment_info[i].frag_root, i);
}
1995-05-30 05:05:38 +00:00
/* Now the addresses of the frags are correct within the segment */
1995-05-30 05:05:38 +00:00
bfd_as_write_hook();
bfd_close(abfd);
}
#endif
H_SET_TEXT_SIZE(a,b) { abort(); }
H_GET_TEXT_SIZE() { abort(); }
H_SET_BSS_SIZE() { abort(); }
H_SET_STRING_SIZE() { abort(); }
H_SET_RELOCATION_SIZE() { abort(); }
H_SET_MAGIC_NUMBER() { abort(); }
H_GET_FILE_SIZE() { abort(); }
H_GET_TEXT_RELOCATION_SIZE() { abort(); }
/* end of obj-ieee.c */