espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-11 10:48:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

* read.c (read_a_source_file): If we find a bad pseudo-op,

Browse Source 
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.
This commit is contained in:
Ian Lance Taylor
1993-11-17 23:03:42 +00:00
parent 3883531f52
commit 46b8119005
1 changed files with 15 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
gas/read.c
View File

@ -497,7 +497,7 @@ read_a_source_file (name)
as_bad ("Unknown pseudo-op: `%s'", s); as_bad ("Unknown pseudo-op: `%s'", s);
*input_line_pointer = c; *input_line_pointer = c;
s_ignore (0); s_ignore (0);
break; continue;
} }
/* Put it back for error messages etc. */ /* Put it back for error messages etc. */
@ -512,13 +512,7 @@ read_a_source_file (name)
* Input_line_pointer->1st non-blank char * Input_line_pointer->1st non-blank char
* after pseudo-operation. * after pseudo-operation.
*/ */
if (!pop) (*pop->poc_handler) (pop->poc_val);
{
ignore_rest_of_line ();
break;
}
else
(*pop->poc_handler) (pop->poc_val);
} }
else else
#endif #endif
@ -1059,14 +1053,14 @@ s_lcomm (needs_align)
p = input_line_pointer; p = input_line_pointer;
*p = c; *p = c;
SKIP_WHITESPACE (); 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') if (*input_line_pointer == '\n')
{ {
@ -1085,7 +1079,10 @@ s_lcomm (needs_align)
#if defined (OBJ_ECOFF) || defined (OBJ_ELF) #if defined (OBJ_ECOFF) || defined (OBJ_ELF)
/* For MIPS ECOFF or ELF, small objects are put in .sbss. */ /* For MIPS ECOFF or ELF, small objects are put in .sbss. */
if (temp <= bfd_get_gp_size (stdoutput)) 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
#endif #endif
@ -2915,10 +2912,11 @@ s_xstab (what)
/* To get the name of the stab string section, simply .str to /* To get the name of the stab string section, simply .str to
the stab section name. */ the stab section name. */
stabstr_secname = alloca (strlen (stab_secname) + 4); stabstr_secname = (char *) xmalloc (strlen (stab_secname) + 4);
strcpy (stabstr_secname, stab_secname); strcpy (stabstr_secname, stab_secname);
strcat (stabstr_secname, "str"); strcat (stabstr_secname, "str");
s_stab_generic (what, stab_secname, stabstr_secname); s_stab_generic (what, stab_secname, stabstr_secname);
free (stabstr_secname);
} }
#ifdef S_SET_DESC #ifdef S_SET_DESC