This is the mail archive of the
binutils@sources.redhat.com
mailing list for the binutils project.
Fix PR gas/619
- From: Alan Modra <amodra at bigpond dot net dot au>
- To: binutils at sources dot redhat dot com
- Cc: lts-rudolph at gmx dot de
- Date: Wed, 29 Dec 2004 20:51:28 +1030
- Subject: Fix PR gas/619
This one is a simple case of zapping part of the string we're parsing.
gas/ChangeLog
PR gas/619
* read.c (s_comm_internal): Don't zero end of name until size
expression has been parsed.
Index: gas/read.c
===================================================================
RCS file: /cvs/src/src/gas/read.c,v
retrieving revision 1.83
diff -u -p -r1.83 read.c
--- gas/read.c 7 Dec 2004 12:13:24 -0000 1.83
+++ gas/read.c 29 Dec 2004 10:19:38 -0000
@@ -1377,7 +1377,6 @@ s_comm_internal (int param,
if (*input_line_pointer == ',')
input_line_pointer++;
- *p = 0;
temp = get_absolute_expr (&exp);
size = temp;
#ifdef BFD_ASSEMBLER
@@ -1386,18 +1385,17 @@ s_comm_internal (int param,
if (exp.X_op == O_absent)
{
as_bad (_("missing size expression"));
- *p = c;
ignore_rest_of_line ();
goto out;
}
else if (temp != size || !exp.X_unsigned)
{
as_warn (_("size (%ld) out of range, ignored"), (long) temp);
- *p = c;
ignore_rest_of_line ();
goto out;
}
+ *p = 0;
symbolP = symbol_find_or_make (name);
if (S_IS_DEFINED (symbolP) && !S_IS_COMMON (symbolP))
{
--
Alan Modra
IBM OzLabs - Linux Technology Centre