From 46b8119005ca3b3a9346c0be45dcc6f68ce1ce01 Mon Sep 17 00:00:00 2001
From: Ian Lance Taylor <ian@airs.com>
Date: Wed, 17 Nov 1993 23:03:42 +0000
Subject: [PATCH] * read.c (read_a_source_file): If we find a bad
pseudo-op, do a continue to go on to the next line rather than a break.
Removed duplicate bad pseudo-op code which was never executed.
* read.c (s_lcomm): Do not require a comma after the name.
* read.c (s_lcomm): Set bss flag for .sbss section if used.
---
gas/read.c | 32 +++++++++++++++-----------------
1 file changed, 15 insertions(+), 17 deletions(-)
diff --git a/gas/read.c b/gas/read.c
index f9979dec602..1e41a4e1f74 100644
--- a/gas/read.c
+++ b/gas/read.c
@@ -497,7 +497,7 @@ read_a_source_file (name)
as_bad ("Unknown pseudo-op: `%s'", s);
*input_line_pointer = c;
s_ignore (0);
- break;
+ continue;
}
/* Put it back for error messages etc. */
@@ -512,13 +512,7 @@ read_a_source_file (name)
* Input_line_pointer->1st non-blank char
* after pseudo-operation.
*/
- if (!pop)
- {
- ignore_rest_of_line ();
- break;
- }
- else
- (*pop->poc_handler) (pop->poc_val);
+ (*pop->poc_handler) (pop->poc_val);
}
else
#endif
@@ -1059,14 +1053,14 @@ s_lcomm (needs_align)
p = input_line_pointer;
*p = c;
SKIP_WHITESPACE ();
- if (*input_line_pointer != ',')
- {
- as_bad ("Expected comma after name");
- ignore_rest_of_line ();
- return;
- }
- ++input_line_pointer;
+ /* Accept an optional comma after the name. The comma used to be
+ required, but Irix 5 cc does not generate it. */
+ if (*input_line_pointer == ',')
+ {
+ ++input_line_pointer;
+ SKIP_WHITESPACE ();
+ }
if (*input_line_pointer == '\n')
{
@@ -1085,7 +1079,10 @@ s_lcomm (needs_align)
#if defined (OBJ_ECOFF) || defined (OBJ_ELF)
/* For MIPS ECOFF or ELF, small objects are put in .sbss. */
if (temp <= bfd_get_gp_size (stdoutput))
- bss_seg = subseg_new (".sbss", 1);
+ {
+ bss_seg = subseg_new (".sbss", 1);
+ seg_info (bss_seg)->bss = 1;
+ }
#endif
#endif
@@ -2915,10 +2912,11 @@ s_xstab (what)
/* To get the name of the stab string section, simply .str to
the stab section name. */
- stabstr_secname = alloca (strlen (stab_secname) + 4);
+ stabstr_secname = (char *) xmalloc (strlen (stab_secname) + 4);
strcpy (stabstr_secname, stab_secname);
strcat (stabstr_secname, "str");
s_stab_generic (what, stab_secname, stabstr_secname);
+ free (stabstr_secname);
}
#ifdef S_SET_DESC