* symbols.c: Convert to ISO-C.

* symbols.h: Likewise.
This commit is contained in:
Kazu Hirata 2003-11-30 19:07:12 +00:00
parent 7dee875eb1
commit 74937d39a2
3 changed files with 210 additions and 324 deletions

View File

@ -1,3 +1,8 @@
2003-11-30 Kazu Hirata <kazu@cs.umass.edu>
* symbols.c: Convert to ISO-C.
* symbols.h: Likewise.
2003-11-28 Christian Groessler <chris@groessler.org>
* config/tc-z8k.c: Convert to ISO-C.

View File

@ -60,13 +60,13 @@ symbolS abs_symbol;
struct obstack notes;
static char *save_symbol_name PARAMS ((const char *));
static void fb_label_init PARAMS ((void));
static long dollar_label_instance PARAMS ((long));
static long fb_label_instance PARAMS ((long));
static char *save_symbol_name (const char *);
static void fb_label_init (void);
static long dollar_label_instance (long);
static long fb_label_instance (long);
static void print_binary PARAMS ((FILE *, const char *, expressionS *));
static void report_op_error PARAMS ((symbolS *, symbolS *, symbolS *));
static void print_binary (FILE *, const char *, expressionS *);
static void report_op_error (symbolS *, symbolS *, symbolS *);
/* Return a pointer to a new symbol. Die if we can't make a new
symbol. Fill in the symbol's values. Add symbol to end of symbol
@ -78,11 +78,7 @@ static void report_op_error PARAMS ((symbolS *, symbolS *, symbolS *));
output file, you can call symbol_create. */
symbolS *
symbol_new (name, segment, valu, frag)
const char *name;
segT segment;
valueT valu;
fragS *frag;
symbol_new (const char *name, segT segment, valueT valu, fragS *frag)
{
symbolS *symbolP = symbol_create (name, segment, valu, frag);
@ -103,8 +99,7 @@ symbol_new (name, segment, valu, frag)
to the object file format. */
static char *
save_symbol_name (name)
const char *name;
save_symbol_name (const char *name)
{
unsigned int name_length;
char *ret;
@ -134,11 +129,10 @@ save_symbol_name (name)
}
symbolS *
symbol_create (name, segment, valu, frag)
const char *name; /* It is copied, the caller can destroy/modify. */
segT segment; /* Segment identifier (SEG_<something>). */
valueT valu; /* Symbol value. */
fragS *frag; /* Associated fragment. */
symbol_create (const char *name, /* It is copied, the caller can destroy/modify. */
segT segment, /* Segment identifier (SEG_<something>). */
valueT valu, /* Symbol value. */
fragS *frag /* Associated fragment. */)
{
char *preserved_copy_of_name;
symbolS *symbolP;
@ -182,7 +176,7 @@ symbol_create (name, segment, valu, frag)
/* Local symbol support. If we can get away with it, we keep only a
small amount of information for local symbols. */
static symbolS *local_symbol_convert PARAMS ((struct local_symbol *));
static symbolS *local_symbol_convert (struct local_symbol *);
/* Used for statistics. */
@ -204,11 +198,7 @@ static unsigned long local_symbol_conversion_count;
/* Create a local symbol and insert it into the local hash table. */
struct local_symbol *
local_symbol_make (name, section, value, frag)
const char *name;
segT section;
valueT value;
fragS *frag;
local_symbol_make (const char *name, segT section, valueT value, fragS *frag)
{
char *name_copy;
struct local_symbol *ret;
@ -233,8 +223,7 @@ local_symbol_make (name, section, value, frag)
reclaim the space used by the local symbol. */
static symbolS *
local_symbol_convert (locsym)
struct local_symbol *locsym;
local_symbol_convert (struct local_symbol *locsym)
{
symbolS *ret;
@ -280,9 +269,9 @@ local_symbol_convert (locsym)
Gripes if we are redefining a symbol incompatibly (and ignores it). */
symbolS *
colon (sym_name) /* Just seen "x:" - rattle symbols & frags. */
const char *sym_name; /* Symbol name, as a cannonical string. */
/* We copy this string: OK to alter later. */
colon (/* Just seen "x:" - rattle symbols & frags. */
const char *sym_name /* Symbol name, as a cannonical string. */
/* We copy this string: OK to alter later. */)
{
register symbolS *symbolP; /* Symbol we are working with. */
@ -513,8 +502,7 @@ colon (sym_name) /* Just seen "x:" - rattle symbols & frags. */
/* Die if we can't insert the symbol. */
void
symbol_table_insert (symbolP)
symbolS *symbolP;
symbol_table_insert (symbolS *symbolP)
{
register const char *error_string;
@ -542,8 +530,7 @@ symbol_table_insert (symbolP)
it into the symbol table. Return a pointer to it. */
symbolS *
symbol_find_or_make (name)
const char *name;
symbol_find_or_make (const char *name)
{
register symbolS *symbolP;
@ -574,8 +561,7 @@ symbol_find_or_make (name)
}
symbolS *
symbol_make (name)
const char *name;
symbol_make (const char *name)
{
symbolS *symbolP;
@ -589,22 +575,19 @@ symbol_make (name)
}
symbolS *
symbol_temp_new (seg, ofs, frag)
segT seg;
valueT ofs;
fragS *frag;
symbol_temp_new (segT seg, valueT ofs, fragS *frag)
{
return symbol_new (FAKE_LABEL_NAME, seg, ofs, frag);
}
symbolS *
symbol_temp_new_now ()
symbol_temp_new_now (void)
{
return symbol_temp_new (now_seg, frag_now_fix (), frag_now);
}
symbolS *
symbol_temp_make ()
symbol_temp_make (void)
{
return symbol_make (FAKE_LABEL_NAME);
}
@ -615,8 +598,7 @@ symbol_temp_make ()
of a struct symbol associated with that name. */
symbolS *
symbol_find (name)
const char *name;
symbol_find (const char *name)
{
#ifdef STRIP_UNDERSCORE
return (symbol_find_base (name, 1));
@ -626,8 +608,7 @@ symbol_find (name)
}
symbolS *
symbol_find_exact (name)
const char *name;
symbol_find_exact (const char *name)
{
#ifdef BFD_ASSEMBLER
{
@ -643,9 +624,7 @@ symbol_find_exact (name)
}
symbolS *
symbol_find_base (name, strip_underscore)
const char *name;
int strip_underscore;
symbol_find_base (const char *name, int strip_underscore)
{
if (strip_underscore && *name == '_')
name++;
@ -689,11 +668,8 @@ symbol_find_base (name, strip_underscore)
/* Link symbol ADDME after symbol TARGET in the chain. */
void
symbol_append (addme, target, rootPP, lastPP)
symbolS *addme;
symbolS *target;
symbolS **rootPP;
symbolS **lastPP;
symbol_append (symbolS *addme, symbolS *target,
symbolS **rootPP, symbolS **lastPP)
{
if (LOCAL_SYMBOL_CHECK (addme))
abort ();
@ -738,8 +714,7 @@ symbol_append (addme, target, rootPP, lastPP)
/* Set the chain pointers of SYMBOL to null. */
void
symbol_clear_list_pointers (symbolP)
symbolS *symbolP;
symbol_clear_list_pointers (symbolS *symbolP)
{
if (LOCAL_SYMBOL_CHECK (symbolP))
abort ();
@ -753,10 +728,7 @@ symbol_clear_list_pointers (symbolP)
/* Remove SYMBOLP from the list. */
void
symbol_remove (symbolP, rootPP, lastPP)
symbolS *symbolP;
symbolS **rootPP;
symbolS **lastPP;
symbol_remove (symbolS *symbolP, symbolS **rootPP, symbolS **lastPP)
{
if (LOCAL_SYMBOL_CHECK (symbolP))
abort ();
@ -787,11 +759,8 @@ symbol_remove (symbolP, rootPP, lastPP)
/* Link symbol ADDME before symbol TARGET in the chain. */
void
symbol_insert (addme, target, rootPP, lastPP)
symbolS *addme;
symbolS *target;
symbolS **rootPP;
symbolS **lastPP ATTRIBUTE_UNUSED;
symbol_insert (symbolS *addme, symbolS *target,
symbolS **rootPP, symbolS **lastPP ATTRIBUTE_UNUSED)
{
if (LOCAL_SYMBOL_CHECK (addme))
abort ();
@ -818,9 +787,7 @@ symbol_insert (addme, target, rootPP, lastPP)
#endif /* SYMBOLS_NEED_BACKPOINTERS */
void
verify_symbol_chain (rootP, lastP)
symbolS *rootP;
symbolS *lastP;
verify_symbol_chain (symbolS *rootP, symbolS *lastP)
{
symbolS *symbolP = rootP;
@ -844,8 +811,7 @@ verify_symbol_chain (rootP, lastP)
}
void
verify_symbol_chain_2 (sym)
symbolS *sym;
verify_symbol_chain_2 (symbolS *sym)
{
symbolS *p = sym, *n = sym;
#ifdef SYMBOLS_NEED_BACKPOINTERS
@ -858,9 +824,7 @@ verify_symbol_chain_2 (sym)
}
static void
report_op_error (symp, left, right)
symbolS *symp;
symbolS *left, *right;
report_op_error (symbolS *symp, symbolS *left, symbolS *right)
{
char *file;
unsigned int line;
@ -919,8 +883,7 @@ report_op_error (symp, left, right)
values. */
valueT
resolve_symbol_value (symp)
symbolS *symp;
resolve_symbol_value (symbolS *symp)
{
int resolved;
valueT final_val = 0;
@ -1288,14 +1251,12 @@ exit_dont_set_value:
#ifdef BFD_ASSEMBLER
static void resolve_local_symbol PARAMS ((const char *, PTR));
static void resolve_local_symbol (const char *, PTR);
/* A static function passed to hash_traverse. */
static void
resolve_local_symbol (key, value)
const char *key ATTRIBUTE_UNUSED;
PTR value;
resolve_local_symbol (const char *key ATTRIBUTE_UNUSED, PTR value)
{
if (value != NULL)
resolve_symbol_value (value);
@ -1306,7 +1267,7 @@ resolve_local_symbol (key, value)
/* Resolve all local symbols. */
void
resolve_local_symbol_values ()
resolve_local_symbol_values (void)
{
#ifdef BFD_ASSEMBLER
hash_traverse (local_hash, resolve_local_symbol);
@ -1327,8 +1288,7 @@ static unsigned long dollar_label_count;
static unsigned long dollar_label_max;
int
dollar_label_defined (label)
long label;
dollar_label_defined (long label)
{
long *i;
@ -1343,8 +1303,7 @@ dollar_label_defined (label)
}
static long
dollar_label_instance (label)
long label;
dollar_label_instance (long label)
{
long *i;
@ -1360,7 +1319,7 @@ dollar_label_instance (label)
}
void
dollar_label_clear ()
dollar_label_clear (void)
{
memset (dollar_label_defines, '\0', (unsigned int) dollar_label_count);
}
@ -1368,8 +1327,7 @@ dollar_label_clear ()
#define DOLLAR_LABEL_BUMP_BY 10
void
define_dollar_label (label)
long label;
define_dollar_label (long label)
{
long *i;
@ -1419,9 +1377,8 @@ define_dollar_label (label)
of ^A. */
char * /* Return local label name. */
dollar_label_name (n, augend)
register long n; /* we just saw "n$:" : n a number. */
register int augend; /* 0 for current instance, 1 for new instance. */
dollar_label_name (register long n, /* we just saw "n$:" : n a number. */
register int augend /* 0 for current instance, 1 for new instance. */)
{
long i;
/* Returned to caller, then copied. Used for created names ("4f"). */
@ -1493,7 +1450,7 @@ static long fb_label_max;
#define FB_LABEL_BUMP_BY (FB_LABEL_SPECIAL + 6)
static void
fb_label_init ()
fb_label_init (void)
{
memset ((void *) fb_low_counter, '\0', sizeof (fb_low_counter));
}
@ -1501,8 +1458,7 @@ fb_label_init ()
/* Add one to the instance number of this fb label. */
void
fb_label_instance_inc (label)
long label;
fb_label_instance_inc (long label)
{
long *i;
@ -1550,8 +1506,7 @@ fb_label_instance_inc (label)
}
static long
fb_label_instance (label)
long label;
fb_label_instance (long label)
{
long *i;
@ -1589,9 +1544,8 @@ fb_label_instance (label)
place of ^B. */
char * /* Return local label name. */
fb_label_name (n, augend)
long n; /* We just saw "n:", "nf" or "nb" : n a number. */
long augend; /* 0 for nb, 1 for n:, nf. */
fb_label_name (long n, /* We just saw "n:", "nf" or "nb" : n a number. */
long augend /* 0 for nb, 1 for n:, nf. */)
{
long i;
/* Returned to caller, then copied. Used for created names ("4f"). */
@ -1639,8 +1593,7 @@ fb_label_name (n, augend)
unaltered. This is used for error messages. */
char *
decode_local_label_name (s)
char *s;
decode_local_label_name (char *s)
{
char *p;
char *symbol_decode;
@ -1681,8 +1634,7 @@ decode_local_label_name (s)
/* Get the value of a symbol. */
valueT
S_GET_VALUE (s)
symbolS *s;
S_GET_VALUE (symbolS *s)
{
#ifdef BFD_ASSEMBLER
if (LOCAL_SYMBOL_CHECK (s))
@ -1718,9 +1670,7 @@ S_GET_VALUE (s)
/* Set the value of a symbol. */
void
S_SET_VALUE (s, val)
symbolS *s;
valueT val;
S_SET_VALUE (symbolS *s, valueT val)
{
#ifdef BFD_ASSEMBLER
if (LOCAL_SYMBOL_CHECK (s))
@ -1736,8 +1686,7 @@ S_SET_VALUE (s, val)
}
void
copy_symbol_attributes (dest, src)
symbolS *dest, *src;
copy_symbol_attributes (symbolS *dest, symbolS *src)
{
if (LOCAL_SYMBOL_CHECK (dest))
dest = local_symbol_convert ((struct local_symbol *) dest);
@ -1759,8 +1708,7 @@ copy_symbol_attributes (dest, src)
#ifdef BFD_ASSEMBLER
int
S_IS_FUNCTION (s)
symbolS *s;
S_IS_FUNCTION (symbolS *s)
{
flagword flags;
@ -1773,8 +1721,7 @@ S_IS_FUNCTION (s)
}
int
S_IS_EXTERNAL (s)
symbolS *s;
S_IS_EXTERNAL (symbolS *s)
{
flagword flags;
@ -1791,8 +1738,7 @@ S_IS_EXTERNAL (s)
}
int
S_IS_WEAK (s)
symbolS *s;
S_IS_WEAK (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -1800,8 +1746,7 @@ S_IS_WEAK (s)
}
int
S_IS_COMMON (s)
symbolS *s;
S_IS_COMMON (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -1809,8 +1754,7 @@ S_IS_COMMON (s)
}
int
S_IS_DEFINED (s)
symbolS *s;
S_IS_DEFINED (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return ((struct local_symbol *) s)->lsy_section != undefined_section;
@ -1826,9 +1770,7 @@ S_IS_DEFINED (s)
symbols or eliminated from expressions, because they may be
overridden by the linker. */
int
S_FORCE_RELOC (s, strict)
symbolS *s;
int strict;
S_FORCE_RELOC (symbolS *s, int strict)
{
if (LOCAL_SYMBOL_CHECK (s))
return ((struct local_symbol *) s)->lsy_section == undefined_section;
@ -1842,8 +1784,7 @@ S_FORCE_RELOC (s, strict)
}
int
S_IS_DEBUG (s)
symbolS *s;
S_IS_DEBUG (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -1853,8 +1794,7 @@ S_IS_DEBUG (s)
}
int
S_IS_LOCAL (s)
symbolS *s;
S_IS_LOCAL (symbolS *s)
{
flagword flags;
const char *name;
@ -1889,22 +1829,19 @@ S_IS_LOCAL (s)
}
int
S_IS_EXTERN (s)
symbolS *s;
S_IS_EXTERN (symbolS *s)
{
return S_IS_EXTERNAL (s);
}
int
S_IS_STABD (s)
symbolS *s;
S_IS_STABD (symbolS *s)
{
return S_GET_NAME (s) == 0;
}
const char *
S_GET_NAME (s)
symbolS *s;
S_GET_NAME (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return ((struct local_symbol *) s)->lsy_name;
@ -1912,8 +1849,7 @@ S_GET_NAME (s)
}
segT
S_GET_SEGMENT (s)
symbolS *s;
S_GET_SEGMENT (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return ((struct local_symbol *) s)->lsy_section;
@ -1921,9 +1857,7 @@ S_GET_SEGMENT (s)
}
void
S_SET_SEGMENT (s, seg)
symbolS *s;
segT seg;
S_SET_SEGMENT (symbolS *s, segT seg)
{
/* Don't reassign section symbols. The direct reason is to prevent seg
faults assigning back to const global symbols such as *ABS*, but it
@ -1950,8 +1884,7 @@ S_SET_SEGMENT (s, seg)
}
void
S_SET_EXTERNAL (s)
symbolS *s;
S_SET_EXTERNAL (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -1976,8 +1909,7 @@ S_SET_EXTERNAL (s)
}
void
S_CLEAR_EXTERNAL (s)
symbolS *s;
S_CLEAR_EXTERNAL (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return;
@ -1991,8 +1923,7 @@ S_CLEAR_EXTERNAL (s)
}
void
S_SET_WEAK (s)
symbolS *s;
S_SET_WEAK (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2001,8 +1932,7 @@ S_SET_WEAK (s)
}
void
S_SET_THREAD_LOCAL (s)
symbolS *s;
S_SET_THREAD_LOCAL (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2020,9 +1950,7 @@ S_SET_THREAD_LOCAL (s)
}
void
S_SET_NAME (s, name)
symbolS *s;
char *name;
S_SET_NAME (symbolS *s, char *name)
{
if (LOCAL_SYMBOL_CHECK (s))
{
@ -2038,8 +1966,7 @@ S_SET_NAME (s, name)
/* Return the previous symbol in a chain. */
symbolS *
symbol_previous (s)
symbolS *s;
symbol_previous (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
abort ();
@ -2051,8 +1978,7 @@ symbol_previous (s)
/* Return the next symbol in a chain. */
symbolS *
symbol_next (s)
symbolS *s;
symbol_next (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
abort ();
@ -2062,8 +1988,7 @@ symbol_next (s)
/* Return a pointer to the value of a symbol as an expression. */
expressionS *
symbol_get_value_expression (s)
symbolS *s;
symbol_get_value_expression (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2073,9 +1998,7 @@ symbol_get_value_expression (s)
/* Set the value of a symbol to an expression. */
void
symbol_set_value_expression (s, exp)
symbolS *s;
const expressionS *exp;
symbol_set_value_expression (symbolS *s, const expressionS *exp)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2085,8 +2008,7 @@ symbol_set_value_expression (s, exp)
/* Set the value of SYM to the current position in the current segment. */
void
symbol_set_value_now (sym)
symbolS *sym;
symbol_set_value_now (symbolS *sym)
{
S_SET_SEGMENT (sym, now_seg);
S_SET_VALUE (sym, frag_now_fix ());
@ -2096,9 +2018,7 @@ symbol_set_value_now (sym)
/* Set the frag of a symbol. */
void
symbol_set_frag (s, f)
symbolS *s;
fragS *f;
symbol_set_frag (symbolS *s, fragS *f)
{
#ifdef BFD_ASSEMBLER
if (LOCAL_SYMBOL_CHECK (s))
@ -2113,8 +2033,7 @@ symbol_set_frag (s, f)
/* Return the frag of a symbol. */
fragS *
symbol_get_frag (s)
symbolS *s;
symbol_get_frag (symbolS *s)
{
#ifdef BFD_ASSEMBLER
if (LOCAL_SYMBOL_CHECK (s))
@ -2126,8 +2045,7 @@ symbol_get_frag (s)
/* Mark a symbol as having been used. */
void
symbol_mark_used (s)
symbolS *s;
symbol_mark_used (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return;
@ -2137,8 +2055,7 @@ symbol_mark_used (s)
/* Clear the mark of whether a symbol has been used. */
void
symbol_clear_used (s)
symbolS *s;
symbol_clear_used (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2148,8 +2065,7 @@ symbol_clear_used (s)
/* Return whether a symbol has been used. */
int
symbol_used_p (s)
symbolS *s;
symbol_used_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 1;
@ -2159,8 +2075,7 @@ symbol_used_p (s)
/* Mark a symbol as having been used in a reloc. */
void
symbol_mark_used_in_reloc (s)
symbolS *s;
symbol_mark_used_in_reloc (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2170,8 +2085,7 @@ symbol_mark_used_in_reloc (s)
/* Clear the mark of whether a symbol has been used in a reloc. */
void
symbol_clear_used_in_reloc (s)
symbolS *s;
symbol_clear_used_in_reloc (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return;
@ -2181,8 +2095,7 @@ symbol_clear_used_in_reloc (s)
/* Return whether a symbol has been used in a reloc. */
int
symbol_used_in_reloc_p (s)
symbolS *s;
symbol_used_in_reloc_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -2192,8 +2105,7 @@ symbol_used_in_reloc_p (s)
/* Mark a symbol as an MRI common symbol. */
void
symbol_mark_mri_common (s)
symbolS *s;
symbol_mark_mri_common (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2203,8 +2115,7 @@ symbol_mark_mri_common (s)
/* Clear the mark of whether a symbol is an MRI common symbol. */
void
symbol_clear_mri_common (s)
symbolS *s;
symbol_clear_mri_common (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return;
@ -2214,8 +2125,7 @@ symbol_clear_mri_common (s)
/* Return whether a symbol is an MRI common symbol. */
int
symbol_mri_common_p (s)
symbolS *s;
symbol_mri_common_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -2225,8 +2135,7 @@ symbol_mri_common_p (s)
/* Mark a symbol as having been written. */
void
symbol_mark_written (s)
symbolS *s;
symbol_mark_written (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return;
@ -2236,8 +2145,7 @@ symbol_mark_written (s)
/* Clear the mark of whether a symbol has been written. */
void
symbol_clear_written (s)
symbolS *s;
symbol_clear_written (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return;
@ -2247,8 +2155,7 @@ symbol_clear_written (s)
/* Return whether a symbol has been written. */
int
symbol_written_p (s)
symbolS *s;
symbol_written_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -2258,8 +2165,7 @@ symbol_written_p (s)
/* Mark a symbol has having been resolved. */
void
symbol_mark_resolved (s)
symbolS *s;
symbol_mark_resolved (symbolS *s)
{
#ifdef BFD_ASSEMBLER
if (LOCAL_SYMBOL_CHECK (s))
@ -2274,8 +2180,7 @@ symbol_mark_resolved (s)
/* Return whether a symbol has been resolved. */
int
symbol_resolved_p (s)
symbolS *s;
symbol_resolved_p (symbolS *s)
{
#ifdef BFD_ASSEMBLER
if (LOCAL_SYMBOL_CHECK (s))
@ -2287,8 +2192,7 @@ symbol_resolved_p (s)
/* Return whether a symbol is a section symbol. */
int
symbol_section_p (s)
symbolS *s ATTRIBUTE_UNUSED;
symbol_section_p (symbolS *s ATTRIBUTE_UNUSED)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -2303,8 +2207,7 @@ symbol_section_p (s)
/* Return whether a symbol is equated to another symbol. */
int
symbol_equated_p (s)
symbolS *s;
symbol_equated_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -2315,8 +2218,7 @@ symbol_equated_p (s)
treated specially when writing out relocs. */
int
symbol_equated_reloc_p (s)
symbolS *s;
symbol_equated_reloc_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 0;
@ -2332,8 +2234,7 @@ symbol_equated_reloc_p (s)
/* Return whether a symbol has a constant value. */
int
symbol_constant_p (s)
symbolS *s;
symbol_constant_p (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
return 1;
@ -2345,8 +2246,7 @@ symbol_constant_p (s)
/* Return the BFD symbol for a symbol. */
asymbol *
symbol_get_bfdsym (s)
symbolS *s;
symbol_get_bfdsym (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2356,9 +2256,7 @@ symbol_get_bfdsym (s)
/* Set the BFD symbol for a symbol. */
void
symbol_set_bfdsym (s, bsym)
symbolS *s;
asymbol *bsym;
symbol_set_bfdsym (symbolS *s, asymbol *bsym)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2372,8 +2270,7 @@ symbol_set_bfdsym (s, bsym)
/* Get a pointer to the object format information for a symbol. */
OBJ_SYMFIELD_TYPE *
symbol_get_obj (s)
symbolS *s;
symbol_get_obj (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2383,9 +2280,7 @@ symbol_get_obj (s)
/* Set the object format information for a symbol. */
void
symbol_set_obj (s, o)
symbolS *s;
OBJ_SYMFIELD_TYPE *o;
symbol_set_obj (symbolS *s, OBJ_SYMFIELD_TYPE *o)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2399,8 +2294,7 @@ symbol_set_obj (s, o)
/* Get a pointer to the processor information for a symbol. */
TC_SYMFIELD_TYPE *
symbol_get_tc (s)
symbolS *s;
symbol_get_tc (symbolS *s)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2410,9 +2304,7 @@ symbol_get_tc (s)
/* Set the processor information for a symbol. */
void
symbol_set_tc (s, o)
symbolS *s;
TC_SYMFIELD_TYPE *o;
symbol_set_tc (symbolS *s, TC_SYMFIELD_TYPE *o)
{
if (LOCAL_SYMBOL_CHECK (s))
s = local_symbol_convert ((struct local_symbol *) s);
@ -2422,7 +2314,7 @@ symbol_set_tc (s, o)
#endif /* TC_SYMFIELD_TYPE */
void
symbol_begin ()
symbol_begin (void)
{
symbol_lastP = NULL;
symbol_rootP = NULL; /* In case we have 0 symbols (!!) */
@ -2456,7 +2348,7 @@ int max_indent_level = 8;
#if 0
static void
indent ()
indent (void)
{
printf ("%*s", indent_level * 4, "");
}
@ -2464,9 +2356,7 @@ indent ()
#endif
void
print_symbol_value_1 (file, sym)
FILE *file;
symbolS *sym;
print_symbol_value_1 (FILE *file, symbolS *sym)
{
const char *name = S_GET_NAME (sym);
if (!name || !name[0])
@ -2536,8 +2426,7 @@ print_symbol_value_1 (file, sym)
}
void
print_symbol_value (sym)
symbolS *sym;
print_symbol_value (symbolS *sym)
{
indent_level = 0;
print_symbol_value_1 (stderr, sym);
@ -2545,10 +2434,7 @@ print_symbol_value (sym)
}
static void
print_binary (file, name, exp)
FILE *file;
const char *name;
expressionS *exp;
print_binary (FILE *file, const char *name, expressionS *exp)
{
indent_level++;
fprintf (file, "%s\n%*s<", name, indent_level * 4, "");
@ -2560,9 +2446,7 @@ print_binary (file, name, exp)
}
void
print_expr_1 (file, exp)
FILE *file;
expressionS *exp;
print_expr_1 (FILE *file, expressionS *exp)
{
fprintf (file, "expr %lx ", (long) exp);
switch (exp->X_op)
@ -2674,16 +2558,14 @@ print_expr_1 (file, exp)
}
void
print_expr (exp)
expressionS *exp;
print_expr (expressionS *exp)
{
print_expr_1 (stderr, exp);
fprintf (stderr, "\n");
}
void
symbol_print_statistics (file)
FILE *file;
symbol_print_statistics (FILE *file)
{
hash_print_statistics (file, "symbol table", sy_hash);
#ifdef BFD_ASSEMBLER

View File

@ -47,68 +47,68 @@ extern int symbol_table_frozen;
default. */
extern int symbols_case_sensitive;
char *decode_local_label_name PARAMS ((char *s));
symbolS *symbol_find PARAMS ((const char *name));
symbolS *symbol_find_exact PARAMS ((const char *name));
symbolS *symbol_find_base PARAMS ((const char *name, int strip_underscore));
symbolS *symbol_find_or_make PARAMS ((const char *name));
symbolS *symbol_make PARAMS ((const char *name));
symbolS *symbol_new PARAMS ((const char *name, segT segment, valueT value,
fragS * frag));
symbolS *symbol_create PARAMS ((const char *name, segT segment, valueT value,
fragS * frag));
struct local_symbol *local_symbol_make PARAMS ((const char *name, segT section,
valueT value, fragS * frag));
symbolS *symbol_temp_new PARAMS ((segT, valueT, fragS *));
symbolS *symbol_temp_new_now PARAMS ((void));
symbolS *symbol_temp_make PARAMS ((void));
char *decode_local_label_name (char *s);
symbolS *symbol_find (const char *name);
symbolS *symbol_find_exact (const char *name);
symbolS *symbol_find_base (const char *name, int strip_underscore);
symbolS *symbol_find_or_make (const char *name);
symbolS *symbol_make (const char *name);
symbolS *symbol_new (const char *name, segT segment, valueT value,
fragS * frag);
symbolS *symbol_create (const char *name, segT segment, valueT value,
fragS * frag);
struct local_symbol *local_symbol_make (const char *name, segT section,
valueT value, fragS * frag);
symbolS *symbol_temp_new (segT, valueT, fragS *);
symbolS *symbol_temp_new_now (void);
symbolS *symbol_temp_make (void);
symbolS *colon PARAMS ((const char *sym_name));
void local_colon PARAMS ((int n));
void symbol_begin PARAMS ((void));
void symbol_print_statistics PARAMS ((FILE *));
void symbol_table_insert PARAMS ((symbolS * symbolP));
valueT resolve_symbol_value PARAMS ((symbolS *));
void resolve_local_symbol_values PARAMS ((void));
symbolS *colon (const char *sym_name);
void local_colon (int n);
void symbol_begin (void);
void symbol_print_statistics (FILE *);
void symbol_table_insert (symbolS * symbolP);
valueT resolve_symbol_value (symbolS *);
void resolve_local_symbol_values (void);
void print_symbol_value PARAMS ((symbolS *));
void print_expr PARAMS ((expressionS *));
void print_expr_1 PARAMS ((FILE *, expressionS *));
void print_symbol_value_1 PARAMS ((FILE *, symbolS *));
void print_symbol_value (symbolS *);
void print_expr (expressionS *);
void print_expr_1 (FILE *, expressionS *);
void print_symbol_value_1 (FILE *, symbolS *);
int dollar_label_defined PARAMS ((long l));
void dollar_label_clear PARAMS ((void));
void define_dollar_label PARAMS ((long l));
char *dollar_label_name PARAMS ((long l, int augend));
int dollar_label_defined (long l);
void dollar_label_clear (void);
void define_dollar_label (long l);
char *dollar_label_name (long l, int augend);
void fb_label_instance_inc PARAMS ((long label));
char *fb_label_name PARAMS ((long n, long augend));
void fb_label_instance_inc (long label);
char *fb_label_name (long n, long augend);
extern void copy_symbol_attributes PARAMS ((symbolS *, symbolS *));
extern void copy_symbol_attributes (symbolS *, symbolS *);
/* Get and set the values of symbols. These used to be macros. */
extern valueT S_GET_VALUE PARAMS ((symbolS *));
extern void S_SET_VALUE PARAMS ((symbolS *, valueT));
extern valueT S_GET_VALUE (symbolS *);
extern void S_SET_VALUE (symbolS *, valueT);
#ifdef BFD_ASSEMBLER
extern int S_IS_FUNCTION PARAMS ((symbolS *));
extern int S_IS_EXTERNAL PARAMS ((symbolS *));
extern int S_IS_WEAK PARAMS ((symbolS *));
extern int S_IS_COMMON PARAMS ((symbolS *));
extern int S_IS_DEFINED PARAMS ((symbolS *));
extern int S_FORCE_RELOC PARAMS ((symbolS *, int));
extern int S_IS_DEBUG PARAMS ((symbolS *));
extern int S_IS_LOCAL PARAMS ((symbolS *));
extern int S_IS_EXTERN PARAMS ((symbolS *));
extern int S_IS_STABD PARAMS ((symbolS *));
extern const char *S_GET_NAME PARAMS ((symbolS *));
extern segT S_GET_SEGMENT PARAMS ((symbolS *));
extern void S_SET_SEGMENT PARAMS ((symbolS *, segT));
extern void S_SET_EXTERNAL PARAMS ((symbolS *));
extern void S_SET_NAME PARAMS ((symbolS *, char *));
extern void S_CLEAR_EXTERNAL PARAMS ((symbolS *));
extern void S_SET_WEAK PARAMS ((symbolS *));
extern void S_SET_THREAD_LOCAL PARAMS ((symbolS *));
extern int S_IS_FUNCTION (symbolS *);
extern int S_IS_EXTERNAL (symbolS *);
extern int S_IS_WEAK (symbolS *);
extern int S_IS_COMMON (symbolS *);
extern int S_IS_DEFINED (symbolS *);
extern int S_FORCE_RELOC (symbolS *, int);
extern int S_IS_DEBUG (symbolS *);
extern int S_IS_LOCAL (symbolS *);
extern int S_IS_EXTERN (symbolS *);
extern int S_IS_STABD (symbolS *);
extern const char *S_GET_NAME (symbolS *);
extern segT S_GET_SEGMENT (symbolS *);
extern void S_SET_SEGMENT (symbolS *, segT);
extern void S_SET_EXTERNAL (symbolS *);
extern void S_SET_NAME (symbolS *, char *);
extern void S_CLEAR_EXTERNAL (symbolS *);
extern void S_SET_WEAK (symbolS *);
extern void S_SET_THREAD_LOCAL (symbolS *);
#endif
#ifndef WORKING_DOT_WORD
@ -152,63 +152,62 @@ extern const short seg_N_TYPE[];/* subseg.c */
#define N_REGISTER 30 /* Fake N_TYPE value for SEG_REGISTER */
void symbol_clear_list_pointers PARAMS ((symbolS * symbolP));
void symbol_clear_list_pointers (symbolS * symbolP);
#ifdef SYMBOLS_NEED_BACKPOINTERS
void symbol_insert PARAMS ((symbolS * addme, symbolS * target,
symbolS ** rootP, symbolS ** lastP));
void symbol_remove PARAMS ((symbolS * symbolP, symbolS ** rootP,
symbolS ** lastP));
void symbol_insert (symbolS * addme, symbolS * target,
symbolS ** rootP, symbolS ** lastP);
void symbol_remove (symbolS * symbolP, symbolS ** rootP,
symbolS ** lastP);
extern symbolS *symbol_previous PARAMS ((symbolS *));
extern symbolS *symbol_previous (symbolS *);
#endif /* SYMBOLS_NEED_BACKPOINTERS */
void verify_symbol_chain PARAMS ((symbolS * rootP, symbolS * lastP));
void verify_symbol_chain_2 PARAMS ((symbolS * symP));
void verify_symbol_chain (symbolS * rootP, symbolS * lastP);
void verify_symbol_chain_2 (symbolS * symP);
void symbol_append PARAMS ((symbolS * addme, symbolS * target,
symbolS ** rootP, symbolS ** lastP));
void symbol_append (symbolS * addme, symbolS * target,
symbolS ** rootP, symbolS ** lastP);
extern symbolS *symbol_next PARAMS ((symbolS *));
extern symbolS *symbol_next (symbolS *);
extern expressionS *symbol_get_value_expression PARAMS ((symbolS *));
extern void symbol_set_value_expression PARAMS ((symbolS *,
const expressionS *));
extern void symbol_set_value_now PARAMS ((symbolS *));
extern void symbol_set_frag PARAMS ((symbolS *, fragS *));
extern fragS *symbol_get_frag PARAMS ((symbolS *));
extern void symbol_mark_used PARAMS ((symbolS *));
extern void symbol_clear_used PARAMS ((symbolS *));
extern int symbol_used_p PARAMS ((symbolS *));
extern void symbol_mark_used_in_reloc PARAMS ((symbolS *));
extern void symbol_clear_used_in_reloc PARAMS ((symbolS *));
extern int symbol_used_in_reloc_p PARAMS ((symbolS *));
extern void symbol_mark_mri_common PARAMS ((symbolS *));
extern void symbol_clear_mri_common PARAMS ((symbolS *));
extern int symbol_mri_common_p PARAMS ((symbolS *));
extern void symbol_mark_written PARAMS ((symbolS *));
extern void symbol_clear_written PARAMS ((symbolS *));
extern int symbol_written_p PARAMS ((symbolS *));
extern void symbol_mark_resolved PARAMS ((symbolS *));
extern int symbol_resolved_p PARAMS ((symbolS *));
extern int symbol_section_p PARAMS ((symbolS *));
extern int symbol_equated_p PARAMS ((symbolS *));
extern int symbol_equated_reloc_p PARAMS ((symbolS *));
extern int symbol_constant_p PARAMS ((symbolS *));
extern expressionS *symbol_get_value_expression (symbolS *);
extern void symbol_set_value_expression (symbolS *, const expressionS *);
extern void symbol_set_value_now (symbolS *);
extern void symbol_set_frag (symbolS *, fragS *);
extern fragS *symbol_get_frag (symbolS *);
extern void symbol_mark_used (symbolS *);
extern void symbol_clear_used (symbolS *);
extern int symbol_used_p (symbolS *);
extern void symbol_mark_used_in_reloc (symbolS *);
extern void symbol_clear_used_in_reloc (symbolS *);
extern int symbol_used_in_reloc_p (symbolS *);
extern void symbol_mark_mri_common (symbolS *);
extern void symbol_clear_mri_common (symbolS *);
extern int symbol_mri_common_p (symbolS *);
extern void symbol_mark_written (symbolS *);
extern void symbol_clear_written (symbolS *);
extern int symbol_written_p (symbolS *);
extern void symbol_mark_resolved (symbolS *);
extern int symbol_resolved_p (symbolS *);
extern int symbol_section_p (symbolS *);
extern int symbol_equated_p (symbolS *);
extern int symbol_equated_reloc_p (symbolS *);
extern int symbol_constant_p (symbolS *);
#ifdef BFD_ASSEMBLER
extern asymbol *symbol_get_bfdsym PARAMS ((symbolS *));
extern void symbol_set_bfdsym PARAMS ((symbolS *, asymbol *));
extern asymbol *symbol_get_bfdsym (symbolS *);
extern void symbol_set_bfdsym (symbolS *, asymbol *);
#endif
#ifdef OBJ_SYMFIELD_TYPE
OBJ_SYMFIELD_TYPE *symbol_get_obj PARAMS ((symbolS *));
void symbol_set_obj PARAMS ((symbolS *, OBJ_SYMFIELD_TYPE *));
OBJ_SYMFIELD_TYPE *symbol_get_obj (symbolS *);
void symbol_set_obj (symbolS *, OBJ_SYMFIELD_TYPE *);
#endif
#ifdef TC_SYMFIELD_TYPE
TC_SYMFIELD_TYPE *symbol_get_tc PARAMS ((symbolS *));
void symbol_set_tc PARAMS ((symbolS *, TC_SYMFIELD_TYPE *));
TC_SYMFIELD_TYPE *symbol_get_tc (symbolS *);
void symbol_set_tc (symbolS *, TC_SYMFIELD_TYPE *);
#endif