riscv
/
binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Patches for eCos: Dump literal pool on section change. Mark thumb function 

aliases as being thumb functions as well.
gdb-premipsmulti-2000-06-06-branch
Nick Clifton 28 years ago
parent
aec89efbf6
commit
fed881b14b
2 changed files with 182 additions and 30 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 20
      gas/ChangeLog
  2. 192
      gas/config/tc-arm.c

20
gas/ChangeLog
View File

@ -1,3 +1,23 @@
1999-06-16 Nick Clifton <nickc@cygnus.com>
* config/tc-arm.c (thumb_set): New pseudo op.
(text, data, section): Override these pseudo ops with ARM
specific versions.
(s_thumb_set): New function: Perform the same as a .set pseudo
op, but also mark the alias'ed symbol as being a Thumb
function.
(arm_s_text): New function: Perform the same as the .text
pseudo op, but dump the literal pool before changing
sections.
(arm_s_data): New function: Perform the same as the .data
pseudo op, but dump the literal pool before changing
sections.
(arm_s_section): New function: Perform the same as the
.section pseudo op, but dump the literal pool before changing
sections.
(arm_cleanup): Do not reset the current section before dumping
the literal pool.
1999-06-17 Nick Clifton <nickc@cygnus.com>
* config/tc-m32r.c (md_longopts): Fix OPTION_WARN_UNMATCHED and

192
gas/config/tc-arm.c
View File

@ -897,7 +897,11 @@ static void s_thumb PARAMS ((int));
static void s_code PARAMS ((int));
static void s_force_thumb PARAMS ((int));
static void s_thumb_func PARAMS ((int));
static void s_thumb_set PARAMS ((int));
static void arm_s_text PARAMS ((int));
static void arm_s_data PARAMS ((int));
#ifdef OBJ_ELF
static void arm_s_section PARAMS ((int));
static void s_arm_elf_cons PARAMS ((int));
#endif
@ -905,27 +909,35 @@ static int my_get_expression PARAMS ((expressionS *, char **));
CONST pseudo_typeS md_pseudo_table[] =
{
{"req", s_req, 0}, /* Never called becasue '.req' does not start line */
{"bss", s_bss, 0},
{"align", s_align, 0},
{"arm", s_arm, 0},
{"thumb", s_thumb, 0},
{"code", s_code, 0},
{"force_thumb", s_force_thumb, 0},
{"thumb_func", s_thumb_func, 0},
{"even", s_even, 0},
{"ltorg", s_ltorg, 0},
{"pool", s_ltorg, 0},
{ "req", s_req, 0 }, /* Never called becasue '.req' does not start line */
{ "bss", s_bss, 0 },
{ "align", s_align, 0 },
{ "arm", s_arm, 0 },
{ "thumb", s_thumb, 0 },
{ "code", s_code, 0 },
{ "force_thumb", s_force_thumb, 0 },
{ "thumb_func", s_thumb_func, 0 },
{ "thumb_set", s_thumb_set, 0 },
{ "even", s_even, 0 },
{ "ltorg", s_ltorg, 0 },
{ "pool", s_ltorg, 0 },
/* Allow for the effect of section changes. */
{ "text", arm_s_text, 0 },
{ "data", arm_s_data, 0 },
#ifdef OBJ_ELF
{"word", s_arm_elf_cons, 4},
{"long", s_arm_elf_cons, 4},
{ "section", arm_s_section, 0 },
{ "section.s", arm_s_section, 0 },
{ "sect", arm_s_section, 0 },
{ "sect.s", arm_s_section, 0 },
{ "word", s_arm_elf_cons, 4 },
{ "long", s_arm_elf_cons, 4 },
#else
{"word", cons, 4},
{ "word", cons, 4},
#endif
{"extend", float_cons, 'x'},
{"ldouble", float_cons, 'x'},
{"packed", float_cons, 'p'},
{0, 0, 0}
{ "extend", float_cons, 'x' },
{ "ldouble", float_cons, 'x' },
{ "packed", float_cons, 'p' },
{ 0, 0, 0 }
};
/* Stuff needed to resolve the label ambiguity
@ -1109,19 +1121,14 @@ s_even (ignore)
}
static void
s_ltorg (internal)
int internal;
s_ltorg (ignored)
int ignored;
{
int lit_count = 0;
char sym_name[20];
if (current_poolP == NULL)
{
/* Nothing to do */
if (!internal)
as_tsktsk (_("Nothing to put in the pool\n"));
return;
}
return;
/* Align pool as you have word accesses */
/* Only make a frag if we have to ... */
@ -1130,9 +1137,6 @@ s_ltorg (internal)
record_alignment (now_seg, 2);
if (internal)
as_tsktsk (_("Inserting implicit pool at change of section"));
sprintf (sym_name, "$$lit_\002%x", lit_pool_num++);
symbol_locate (current_poolP, sym_name, now_seg,
@ -1221,6 +1225,135 @@ s_thumb_func (ignore)
demand_empty_rest_of_line ();
}
/* Perform a .set directive, but also mark the alias as
being a thumb function. */
static void
s_thumb_set (equiv)
int equiv;
{
/* XXX the following is a duplicate of the code for s_set() in read.c
We cannot just call that code as we need to get at the symbol that
is created. */
register char * name;
register char delim;
register char * end_name;
register symbolS * symbolP;
/*
* Especial apologies for the random logic:
* this just grew, and could be parsed much more simply!
* Dean in haste.
*/
name = input_line_pointer;
delim = get_symbol_end ();
end_name = input_line_pointer;
*end_name = delim;
SKIP_WHITESPACE ();
if (*input_line_pointer != ',')
{
*end_name = 0;
as_bad (_("Expected comma after name \"%s\""), name);
*end_name = delim;
ignore_rest_of_line ();
return;
}
input_line_pointer++;
*end_name = 0;
if (name[0] == '.' && name[1] == '\0')
{
/* XXX - this should not happen to .thumb_set */
abort ();
}
if ((symbolP = symbol_find (name)) == NULL
&& (symbolP = md_undefined_symbol (name)) == NULL)
{
#ifndef NO_LISTING
/* When doing symbol listings, play games with dummy fragments living
outside the normal fragment chain to record the file and line info
for this symbol. */
if (listing & LISTING_SYMBOLS)
{
extern struct list_info_struct * listing_tail;
fragS * dummy_frag = (fragS *) xmalloc (sizeof(fragS));
memset (dummy_frag, 0, sizeof(fragS));
dummy_frag->fr_type = rs_fill;
dummy_frag->line = listing_tail;
symbolP = symbol_new (name, undefined_section, 0, dummy_frag);
dummy_frag->fr_symbol = symbolP;
}
else
#endif
symbolP = symbol_new (name, undefined_section, 0, &zero_address_frag);
#ifdef OBJ_COFF
/* "set" symbols are local unless otherwise specified. */
SF_SET_LOCAL (symbolP);
#endif /* OBJ_COFF */
} /* make a new symbol */
symbol_table_insert (symbolP);
* end_name = delim;
if (equiv
&& S_IS_DEFINED (symbolP)
&& S_GET_SEGMENT (symbolP) != reg_section)
as_bad (_("symbol `%s' already defined"), S_GET_NAME (symbolP));
pseudo_set (symbolP);
demand_empty_rest_of_line ();
/* XXX now we come to the Thumb specific bit of code. */
THUMB_SET_FUNC (symbolP, 1);
ARM_SET_THUMB (symbolP, 1);
ARM_SET_INTERWORK (symbolP, support_interwork);
}
/* If we change section we must dump the literal pool first. */
static void
arm_s_text (ignore)
int ignore;
{
if (now_seg != text_section)
s_ltorg (0);
s_text (ignore);
}
static void
arm_s_data (ignore)
int ignore;
{
if (flag_readonly_data_in_text)
{
if (now_seg != text_section)
s_ltorg (0);
}
else if (now_seg != data_section)
s_ltorg (0);
s_data (ignore);
}
#ifdef OBJ_ELF
static void
arm_s_section (ignore)
int ignore;
{
s_ltorg (0);
obj_elf_section (ignore);
}
#endif
static void
opcode_select (width)
int width;
@ -6845,4 +6978,3 @@ s_arm_elf_cons (nbytes)
}
#endif /* OBJ_ELF */

Write Preview
Loading…
Cancel
Save