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

(ecoff_set_gp_prolog_size): New function. 

(current_file_idx): New static variable.
(add_file): Use and increment current_file_idx instead of indx parameter.

Also removed trailing whitespace from lines.
This commit is contained in:
Ken Raeburn 1994-01-14 02:01:52 +00:00
parent 69ecc03f3d
commit 012353f7d1
1 changed files with 99 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

214
gas/ecoff.c
View File

@ -120,31 +120,31 @@
array, pointer, function, etc. qualifiers. The array, pointer, function, etc. qualifiers. The
current base types that I have documentation for are: current base types that I have documentation for are:
btNil -- undefined btNil -- undefined
btAdr -- address - integer same size as ptr btAdr -- address - integer same size as ptr
btChar -- character btChar -- character
btUChar -- unsigned character btUChar -- unsigned character
btShort -- short btShort -- short
btUShort -- unsigned short btUShort -- unsigned short
btInt -- int btInt -- int
btUInt -- unsigned int btUInt -- unsigned int
btLong -- long btLong -- long
btULong -- unsigned long btULong -- unsigned long
btFloat -- float (real) btFloat -- float (real)
btDouble -- Double (real) btDouble -- Double (real)
btStruct -- Structure (Record) btStruct -- Structure (Record)
btUnion -- Union (variant) btUnion -- Union (variant)
btEnum -- Enumerated btEnum -- Enumerated
btTypedef -- defined via a typedef isymRef btTypedef -- defined via a typedef isymRef
btRange -- subrange of int btRange -- subrange of int
btSet -- pascal sets btSet -- pascal sets
btComplex -- fortran complex btComplex -- fortran complex
btDComplex -- fortran double complex btDComplex -- fortran double complex
btIndirect -- forward or unnamed typedef btIndirect -- forward or unnamed typedef
btFixedDec -- Fixed Decimal btFixedDec -- Fixed Decimal
btFloatDec -- Float Decimal btFloatDec -- Float Decimal
btString -- Varying Length Character String btString -- Varying Length Character String
btBit -- Aligned Bit String btBit -- Aligned Bit String
btPicture -- Picture btPicture -- Picture
btVoid -- Void (MIPS cc revision >= 2.00) btVoid -- Void (MIPS cc revision >= 2.00)
@ -152,12 +152,12 @@
current type qualifier fields I have documentation for current type qualifier fields I have documentation for
are: are:
tqNil -- no more qualifiers tqNil -- no more qualifiers
tqPtr -- pointer tqPtr -- pointer
tqProc -- procedure tqProc -- procedure
tqArray -- array tqArray -- array
tqFar -- 8086 far pointers tqFar -- 8086 far pointers
tqVol -- volatile tqVol -- volatile
The dense number table is used in the front ends, and disappears by The dense number table is used in the front ends, and disappears by
@ -266,7 +266,7 @@
} }
Mips-tdump produces the following information: Mips-tdump produces the following information:
Global file header: Global file header:
magic number 0x162 magic number 0x162
# sections 2 # sections 2
@ -275,12 +275,12 @@
symbolic header size 96 symbolic header size 96
optional header 56 optional header 56
flags 0x0 flags 0x0
Symbolic header, magic number = 0x7009, vstamp = 1.31: Symbolic header, magic number = 0x7009, vstamp = 1.31:
Info Offset Number Bytes Info Offset Number Bytes
==== ====== ====== ===== ==== ====== ====== =====
Line numbers 380 4 4 [13] Line numbers 380 4 4 [13]
Dense numbers 0 0 0 Dense numbers 0 0 0
Procedures Tables 384 1 52 Procedures Tables 384 1 52
@ -292,14 +292,14 @@
File Tables 1008 2 144 File Tables 1008 2 144
Relative Files 0 0 0 Relative Files 0 0 0
External Symbols 1152 20 320 External Symbols 1152 20 320
File #0, "hello2.c" File #0, "hello2.c"
Name index = 1 Readin = No Name index = 1 Readin = No
Merge = No Endian = LITTLE Merge = No Endian = LITTLE
Debug level = G2 Language = C Debug level = G2 Language = C
Adr = 0x00000000 Adr = 0x00000000
Info Start Number Size Offset Info Start Number Size Offset
==== ===== ====== ==== ====== ==== ===== ====== ==== ======
Local strings 0 15 15 784 Local strings 0 15 15 784
@ -309,7 +309,7 @@
Procedures 0 1 52 384 Procedures 0 1 52 384
Auxiliary symbols 0 14 56 628 Auxiliary symbols 0 14 56 628
Relative Files 0 0 0 0 Relative Files 0 0 0 0
There are 6 local symbols, starting at 436 There are 6 local symbols, starting at 436
Symbol# 0: "hello2.c" Symbol# 0: "hello2.c"
@ -953,7 +953,7 @@ typedef struct efdr {
} efdr_t; } efdr_t;
/* Pre-initialized extended file structure. */ /* Pre-initialized extended file structure. */
static const efdr_t init_file = static const efdr_t init_file =
{ {
{ /* FDR structure */ { /* FDR structure */
0, /* adr: memory address of beginning of file */ 0, /* adr: memory address of beginning of file */
@ -1401,6 +1401,7 @@ static int debug = 0; /* trace functions */
#endif #endif
static int stabs_seen = 0; /* != 0 if stabs have been seen */ static int stabs_seen = 0; /* != 0 if stabs have been seen */
static int current_file_idx;
/* Pseudo symbol to use when putting stabs into the symbol table. */ /* Pseudo symbol to use when putting stabs into the symbol table. */
#ifndef STABS_SYMBOL #ifndef STABS_SYMBOL
@ -1462,10 +1463,7 @@ static unsigned long ecoff_build_ss
static unsigned long ecoff_build_fdr static unsigned long ecoff_build_fdr
PARAMS ((const struct ecoff_debug_swap *backend, char **buf, char **bufend, PARAMS ((const struct ecoff_debug_swap *backend, char **buf, char **bufend,
unsigned long offset)); unsigned long offset));
static unsigned long ecoff_build_ext static void ecoff_setup_ext PARAMS ((void));
PARAMS ((const struct ecoff_debug_swap *backend, char **buf, char **bufend,
unsigned long offset, varray_t *ext_strings,
struct hash_control *ext_str_hash));
static page_t *allocate_cluster PARAMS ((unsigned long npages)); static page_t *allocate_cluster PARAMS ((unsigned long npages));
static page_t *allocate_page PARAMS ((void)); static page_t *allocate_page PARAMS ((void));
static scope_t *allocate_scope PARAMS ((void)); static scope_t *allocate_scope PARAMS ((void));
@ -1936,7 +1934,7 @@ add_aux_sym_tir (t, state, hash_tbl)
ret = vp->num_allocated++; ret = vp->num_allocated++;
/* Add bitfield length if it exists. /* Add bitfield length if it exists.
NOTE: Mips documentation claims bitfield goes at the end of the NOTE: Mips documentation claims bitfield goes at the end of the
AUX record, but the DECstation compiler emits it here. AUX record, but the DECstation compiler emits it here.
(This would only make a difference for enum bitfields.) (This would only make a difference for enum bitfields.)
@ -2232,7 +2230,7 @@ add_file (file_name, indx)
&file_desc.last->datum->file[file_desc.objects_last_page++]; &file_desc.last->datum->file[file_desc.objects_last_page++];
*fil_ptr = init_file; *fil_ptr = init_file;
fil_ptr->file_index = indx; fil_ptr->file_index = current_file_idx++;
++file_desc.num_allocated; ++file_desc.num_allocated;
/* Allocate the string hash table. */ /* Allocate the string hash table. */
@ -2373,7 +2371,7 @@ ecoff_directive_begin (ignore)
demand_empty_rest_of_line (); demand_empty_rest_of_line ();
return; return;
} }
name = input_line_pointer; name = input_line_pointer;
name_end = get_symbol_end (); name_end = get_symbol_end ();
@ -2951,7 +2949,7 @@ ecoff_directive_end (ignore)
name = input_line_pointer; name = input_line_pointer;
name_end = get_symbol_end (); name_end = get_symbol_end ();
ch = *name; ch = *name;
if (! is_name_beginner (ch)) if (! is_name_beginner (ch))
{ {
@ -3120,7 +3118,13 @@ ecoff_directive_frame (ignore)
cur_proc_ptr->pdr.pcreg = tc_get_register (0); cur_proc_ptr->pdr.pcreg = tc_get_register (0);
#if 0 /* Alpha-OSF1 adds "the offset of saved $a0 from $sp", according
to Sandro. I don't yet know where this value should be stored, if
anywhere. */
demand_empty_rest_of_line (); demand_empty_rest_of_line ();
#else
s_ignore (42);
#endif
} }
/* Parse .mask directives. */ /* Parse .mask directives. */
@ -3289,6 +3293,7 @@ ecoff_stab (what, string, type, other, desc)
st_t st; st_t st;
sc_t sc; sc_t sc;
symint_t indx; symint_t indx;
localsym_t *hold = NULL;
/* We don't handle .stabd. */ /* We don't handle .stabd. */
if (what != 's' && what != 'n') if (what != 's' && what != 'n')
@ -3359,7 +3364,7 @@ ecoff_stab (what, string, type, other, desc)
if (listing && (type == N_SO || type == N_SOL)) if (listing && (type == N_SO || type == N_SOL))
listing_source_file (string); listing_source_file (string);
#endif #endif
if (isdigit (*input_line_pointer) if (isdigit (*input_line_pointer)
|| *input_line_pointer == '-' || *input_line_pointer == '-'
|| *input_line_pointer == '+') || *input_line_pointer == '+')
@ -3401,8 +3406,17 @@ ecoff_stab (what, string, type, other, desc)
indx = ECOFF_MARK_STAB (type); indx = ECOFF_MARK_STAB (type);
} }
/* Don't store the stabs symbol we are creating as the type of the
ECOFF symbol. We want to compute the type of the ECOFF symbol
independently. */
if (sym != (symbolS *) NULL)
hold = sym->ecoff_symbol;
(void) add_ecoff_symbol (string, st, sc, sym, value, indx); (void) add_ecoff_symbol (string, st, sc, sym, value, indx);
if (sym != (symbolS *) NULL)
sym->ecoff_symbol = hold;
/* Restore normal file type. */ /* Restore normal file type. */
cur_file_ptr = save_file_ptr; cur_file_ptr = save_file_ptr;
} }
@ -3546,7 +3560,7 @@ ecoff_build_lineno (backend, buf, bufend, offset, linecntptr)
} }
last = (lineno_list_t *) NULL; last = (lineno_list_t *) NULL;
} }
totcount += count; totcount += count;
@ -3778,8 +3792,9 @@ ecoff_build_symbols (backend, buf, bufend, offset)
seg = S_GET_SEGMENT (as_sym); seg = S_GET_SEGMENT (as_sym);
segname = segment_name (seg); segname = segment_name (seg);
if (S_IS_EXTERNAL (as_sym) if (! ECOFF_IS_STAB (&sym_ptr->ecoff_sym.asym)
|| ! S_IS_DEFINED (as_sym)) && (S_IS_EXTERNAL (as_sym)
|| ! S_IS_DEFINED (as_sym)))
st = st_Global; st = st_Global;
else if (seg == text_section) else if (seg == text_section)
st = st_Label; st = st_Label;
@ -3954,7 +3969,8 @@ ecoff_build_symbols (backend, buf, bufend, offset)
/* Record the local symbol index and file number in /* Record the local symbol index and file number in
case this is an external symbol. Note that this case this is an external symbol. Note that this
destroys the asym.index field. */ destroys the asym.index field. */
if (as_sym != (symbolS *) NULL) if (as_sym != (symbolS *) NULL
&& as_sym->ecoff_symbol == sym_ptr)
{ {
if (sym_ptr->ecoff_sym.asym.st == st_Proc if (sym_ptr->ecoff_sym.asym.st == st_Proc
|| sym_ptr->ecoff_sym.asym.st == st_StaticProc) || sym_ptr->ecoff_sym.asym.st == st_StaticProc)
@ -3991,7 +4007,7 @@ ecoff_build_procs (backend, buf, bufend, offset)
vlinks_t *file_link; vlinks_t *file_link;
pdr_out = *buf + offset; pdr_out = *buf + offset;
first_fil = 1; first_fil = 1;
iproc = 0; iproc = 0;
@ -4082,7 +4098,7 @@ ecoff_build_aux (backend, buf, bufend, offset)
bigendian = stdoutput->xvec->header_byteorder_big_p; bigendian = stdoutput->xvec->header_byteorder_big_p;
aux_out = (union aux_ext *) (*buf + offset); aux_out = (union aux_ext *) (*buf + offset);
iaux = 0; iaux = 0;
/* The aux entries are stored by file. */ /* The aux entries are stored by file. */
@ -4308,27 +4324,15 @@ ecoff_build_fdr (backend, buf, bufend, offset)
return offset + ifile * external_fdr_size; return offset + ifile * external_fdr_size;
} }
/* Swap out the external symbols. These are the symbols that the /* Set up the external symbols. These are supposed to be handled by
machine independent code has put in the symtab for the BFD. */ the backend. This routine just gets the right information and
calls a backend function to deal with it. */
static unsigned long static void
ecoff_build_ext (backend, buf, bufend, offset, ext_strings, ext_str_hash) ecoff_setup_ext ()
const struct ecoff_debug_swap *backend;
char **buf;
char **bufend;
unsigned long offset;
varray_t *ext_strings;
struct hash_control *ext_str_hash;
{ {
const bfd_size_type external_ext_size = backend->external_ext_size;
void (* const swap_ext_out) PARAMS ((bfd *, const EXTR *, PTR))
= backend->swap_ext_out;
register symbolS *sym; register symbolS *sym;
char *ext_out;
long iext;
ext_out = *buf + offset;
iext = 0;
for (sym = symbol_rootP; sym != (symbolS *) NULL; sym = symbol_next (sym)) for (sym = symbol_rootP; sym != (symbolS *) NULL; sym = symbol_next (sym))
{ {
if (sym->ecoff_symbol == NULL) if (sym->ecoff_symbol == NULL)
@ -4344,20 +4348,8 @@ ecoff_build_ext (backend, buf, bufend, offset, ext_strings, ext_str_hash)
sym->ecoff_symbol->ecoff_sym.asym.index = indexNil; sym->ecoff_symbol->ecoff_sym.asym.index = indexNil;
} }
sym->ecoff_symbol->ecoff_sym.asym.iss = obj_ecoff_set_ext (sym, &sym->ecoff_symbol->ecoff_sym);
add_string (ext_strings, ext_str_hash, S_GET_NAME (sym),
(shash_t **) NULL);
if (*bufend - ext_out < external_ext_size)
ext_out = ecoff_add_bytes (buf, bufend, ext_out, external_ext_size);
(*swap_ext_out) (stdoutput, &sym->ecoff_symbol->ecoff_sym, ext_out);
#ifdef obj_set_sym_index
obj_set_sym_index (as_sym->bsym, iext);
#endif
ext_out += external_ext_size;
++iext;
} }
return offset + iext * external_ext_size;
} }
/* Build the ECOFF dbeugging information. */ /* Build the ECOFF dbeugging information. */
@ -4379,12 +4371,6 @@ ecoff_build_debug (hdr, bufp, backend)
char *buf; char *buf;
char *bufend; char *bufend;
unsigned long offset; unsigned long offset;
char *extbuf;
char *extbufend;
unsigned long extoffset;
varray_t ext_strings;
static varray_t init_ext_strings = INIT_VARRAY (char);
struct hash_control *ext_str_hash;
/* Make sure we have a file. */ /* Make sure we have a file. */
if (first_file == (efdr_t *) NULL) if (first_file == (efdr_t *) NULL)
@ -4497,24 +4483,6 @@ ecoff_build_debug (hdr, bufp, backend)
offset = ecoff_build_ss (backend, &buf, &bufend, offset); offset = ecoff_build_ss (backend, &buf, &bufend, offset);
hdr->issMax = offset - hdr->cbSsOffset; hdr->issMax = offset - hdr->cbSsOffset;
/* Build the external symbols and external strings. We build these
now because we want to copy out the external strings now. We
copy out the external symbol information down below. */
extbuf = xmalloc (PAGE_SIZE);
extbufend = extbuf + PAGE_SIZE;
ext_strings = init_ext_strings;
ext_str_hash = hash_new ();
extoffset = ecoff_build_ext (backend, &extbuf, &extbufend,
(unsigned long) 0, &ext_strings,
ext_str_hash);
/* Copy out the external strings. */
hdr->cbSsExtOffset = offset;
offset += ecoff_build_strings (&buf, &bufend, offset, &ext_strings);
offset = ecoff_padding_adjust (backend, &buf, &bufend, offset,
(char **) NULL);
hdr->issExtMax = offset - hdr->cbSsExtOffset;
/* We don't use relative file descriptors. */ /* We don't use relative file descriptors. */
hdr->crfd = 0; hdr->crfd = 0;
hdr->cbRfdOffset = 0; hdr->cbRfdOffset = 0;
@ -4524,13 +4492,13 @@ ecoff_build_debug (hdr, bufp, backend)
offset = ecoff_build_fdr (backend, &buf, &bufend, offset); offset = ecoff_build_fdr (backend, &buf, &bufend, offset);
hdr->ifdMax = (offset - hdr->cbFdOffset) / backend->external_fdr_size; hdr->ifdMax = (offset - hdr->cbFdOffset) / backend->external_fdr_size;
/* Copy out the external symbols. */ /* Set up the external symbols, which are handled by the BFD back
hdr->cbExtOffset = offset; end. */
if (bufend - (buf + offset) < extoffset) hdr->issExtMax = 0;
(void) ecoff_add_bytes (&buf, &bufend, buf + offset, extoffset); hdr->cbSsExtOffset = 0;
memcpy (buf + offset, extbuf, extoffset); hdr->iextMax = 0;
offset += extoffset; hdr->cbExtOffset = 0;
hdr->iextMax = (offset - hdr->cbExtOffset) / backend->external_ext_size; ecoff_setup_ext ();
know ((offset & (backend->debug_align - 1)) == 0); know ((offset & (backend->debug_align - 1)) == 0);
@ -4931,4 +4899,20 @@ allocate_lineno_list ()
return ptr; return ptr;
} }
ecoff_set_gp_prolog_size (sz)
int sz;
{
if (cur_proc_ptr == 0)
abort ();
cur_proc_ptr->pdr.gp_prologue = sz;
if (cur_proc_ptr->pdr.gp_prologue != sz)
{
as_warn ("GP prologue size exceeds field size, using 0 instead");
cur_proc_ptr->pdr.gp_prologue = 0;
}
cur_proc_ptr->pdr.gp_used = 1;
}
#endif /* ECOFF_DEBUGGING */ #endif /* ECOFF_DEBUGGING */