darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-16 23:49:06 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add local tag support. Don't flush instructions for .xdata directives.

Browse Source 
* config/tc-ia64.c (md): New member keep_pending_output.
	(ia64_flush_pending_output): Flush only if md.keep_pending_output
	is not set.
	(dot_xdata): Turn on md.keep_pending_output for the duration of
	this function.
	(dot_xfloat_cons): Ditto.
	(dot_xstringer): Ditto.
	(dot_xdata_ua): Ditto.
	(dot_xfloat_cons_ua): Ditto.
	* config/tc-ia64.c (ia64_unrecognized_line, case '['): Add local
	label support.
This commit is contained in:
Jim Wilson 2001-03-16 04:56:31 +00:00
parent 80117be270
commit 4d5a53ff76
2 changed files with 56 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gas/ChangeLog
View File

@ -1,3 +1,20 @@
2001-03-15 David Mosberger <davidm@hpl.hp.com>
* config/tc-ia64.c (md): New member keep_pending_output.
(ia64_flush_pending_output): Flush only if md.keep_pending_output
is not set.
(dot_xdata): Turn on md.keep_pending_output for the duration of
this function.
(dot_xfloat_cons): Ditto.
(dot_xstringer): Ditto.
(dot_xdata_ua): Ditto.
(dot_xfloat_cons_ua): Ditto.
2001-03-15 Jim Wilson <wilson@redhat.com>
* config/tc-ia64.c (ia64_unrecognized_line, case '['): Add local
label support.
2001-03-15 Alexandre Oliva <aoliva@redhat.com> 2001-03-15 Alexandre Oliva <aoliva@redhat.com>
* config/tc-sh.c (parse_reg): Match capital MACH and MACL. * config/tc-sh.c (parse_reg): Match capital MACH and MACL.

43
gas/config/tc-ia64.c
View File

@ -197,7 +197,8 @@ static struct
explicit_mode : 1, /* which mode we're in */ explicit_mode : 1, /* which mode we're in */
default_explicit_mode : 1, /* which mode is the default */ default_explicit_mode : 1, /* which mode is the default */
mode_explicitly_set : 1, /* was the current mode explicitly set? */ mode_explicitly_set : 1, /* was the current mode explicitly set? */
auto_align : 1; auto_align : 1,
keep_pending_output : 1;
/* Each bundle consists of up to three instructions. We keep /* Each bundle consists of up to three instructions. We keep
track of four most recent instructions so we can correctly set track of four most recent instructions so we can correctly set
@ -4151,9 +4152,11 @@ dot_xdata (size)
if (!name) if (!name)
return; return;
md.keep_pending_output = 1;
set_section (name); set_section (name);
cons (size); cons (size);
obj_elf_previous (0); obj_elf_previous (0);
md.keep_pending_output = 0;
} }
/* Why doesn't float_cons() call md_cons_align() the way cons() does? */ /* Why doesn't float_cons() call md_cons_align() the way cons() does? */
@ -4197,9 +4200,11 @@ dot_xfloat_cons (kind)
if (!name) if (!name)
return; return;
md.keep_pending_output = 1;
set_section (name); set_section (name);
stmt_float_cons (kind); stmt_float_cons (kind);
obj_elf_previous (0); obj_elf_previous (0);
md.keep_pending_output = 0;
} }
static void static void
@ -4210,9 +4215,11 @@ dot_xstringer (zero)
if (!name) if (!name)
return; return;
md.keep_pending_output = 1;
set_section (name); set_section (name);
stringer (zero); stringer (zero);
obj_elf_previous (0); obj_elf_previous (0);
md.keep_pending_output = 0;
} }
static void static void
@ -4224,11 +4231,13 @@ dot_xdata_ua (size)
if (!name) if (!name)
return; return;
md.keep_pending_output = 1;
set_section (name); set_section (name);
md.auto_align = 0; md.auto_align = 0;
cons (size); cons (size);
md.auto_align = saved_auto_align; md.auto_align = saved_auto_align;
obj_elf_previous (0); obj_elf_previous (0);
md.keep_pending_output = 0;
} }
static void static void
@ -4240,11 +4249,13 @@ dot_xfloat_cons_ua (kind)
if (!name) if (!name)
return; return;
md.keep_pending_output = 1;
set_section (name); set_section (name);
md.auto_align = 0; md.auto_align = 0;
stmt_float_cons (kind); stmt_float_cons (kind);
md.auto_align = saved_auto_align; md.auto_align = saved_auto_align;
obj_elf_previous (0); obj_elf_previous (0);
md.keep_pending_output = 0;
} }
/* .reg.val <regname>,value */ /* .reg.val <regname>,value */
@ -6613,14 +6624,36 @@ ia64_unrecognized_line (ch)
char *s; char *s;
char c; char c;
symbolS *tag; symbolS *tag;
int temp;
if (md.qp.X_op == O_register) if (md.qp.X_op == O_register)
{ {
as_bad ("Tag must come before qualifying predicate."); as_bad ("Tag must come before qualifying predicate.");
return 0; return 0;
} }
s = input_line_pointer;
c = get_symbol_end (); /* This implements just enough of read_a_source_file in read.c to
recognize labels. */
if (is_name_beginner (*input_line_pointer))
{
s = input_line_pointer;
c = get_symbol_end ();
}
else if (LOCAL_LABELS_FB
&& isdigit ((unsigned char) *input_line_pointer))
{
temp = 0;
while (isdigit ((unsigned char) *input_line_pointer))
temp = (temp * 10) + *input_line_pointer++ - '0';
fb_label_instance_inc (temp);
s = fb_label_name (temp, 0);
c = *input_line_pointer;
}
else
{
s = NULL;
c = '\0';
}
if (c != ':') if (c != ':')
{ {
/* Put ':' back for error messages' sake. */ /* Put ':' back for error messages' sake. */
@ -6628,6 +6661,7 @@ ia64_unrecognized_line (ch)
as_bad ("Expected ':'"); as_bad ("Expected ':'");
return 0; return 0;
} }
defining_tag = 1; defining_tag = 1;
tag = colon (s); tag = colon (s);
defining_tag = 0; defining_tag = 0;
@ -6695,7 +6729,8 @@ ia64_frob_label (sym)
void void
ia64_flush_pending_output () ia64_flush_pending_output ()
{ {
if (bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) if (!md.keep_pending_output
&& bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE)
{ {
/* ??? This causes many unnecessary stop bits to be emitted. /* ??? This causes many unnecessary stop bits to be emitted.
Unfortunately, it isn't clear if it is safe to remove this. */ Unfortunately, it isn't clear if it is safe to remove this. */