darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

config/tc-sparc.c (s_common): Revamp to handle both syntaxes, and not be

Browse source 
target-specific.
This commit is contained in:
Ken Raeburn 1993-07-08 18:40:50 +00:00
parent de87cdb466
commit ff4cac3854
2 changed files with 37 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gas/ChangeLog
View file

@ -1,3 +1,8 @@
Thu Jul 8 14:15:05 1993 Ken Raeburn (raeburn@cambridge.cygnus.com)
* config/tc-sparc.c (s_common): Revamp to handle both syntaxes,
and not be target-specific.
Thu Jul 8 07:25:25 1993 Doug Evans (dje@canuck.cygnus.com)
* config/tc-h8300.h (TC_CONS_RELOC): Use R_RELLONG if h8/300h.

56
gas/config/tc-sparc.c
View file

@ -387,7 +387,6 @@ s_common ()
#endif
}
know (symbolP->sy_frag == &zero_address_frag);
#ifdef OBJ_ELF
if (*input_line_pointer != ',')
{
as_bad ("Expected comma after common length");
@ -411,11 +410,15 @@ s_common ()
}
if (symbolP->local)
{
segT old_sec = now_seg;
int old_subsec = now_subseg;
segT old_sec;
int old_subsec;
char *p;
int align = temp;
int align;
allocate_bss:
old_sec = now_seg;
old_subsec = now_subseg;
align = temp;
record_alignment (bss_section, align);
subseg_set (bss_section, 0);
if (align)
@ -432,6 +435,7 @@ s_common ()
}
else
{
allocate_common:
S_SET_VALUE (symbolP, size);
S_SET_EXTERNAL (symbolP);
/* should be common, but this is how gas does it for now */
@ -441,35 +445,39 @@ s_common ()
else
{
input_line_pointer++;
/* @@ Some use the dot, some don't. Can we get some consistency?? */
if (*input_line_pointer == '.')
input_line_pointer++;
/* @@ Some say data, some say bss. */
if (strncmp (input_line_pointer, "bss\"", 4)
&& strncmp (input_line_pointer, ".bss\"", 5))
&& strncmp (input_line_pointer, "data\"", 5))
{
input_line_pointer -= 2;
while (*--input_line_pointer != '"')
;
input_line_pointer--;
goto bad_common_segment;
}
while (*input_line_pointer++ != '"')
;
demand_empty_rest_of_line ();
return;
goto allocate_common;
}
#endif
if (strncmp (input_line_pointer, ",\"bss\"", 6) != 0
&& strncmp (input_line_pointer, ",\"data\"", 7) != 0)
{
bad_common_segment:
p = input_line_pointer;
while (*p && *p != '\n')
p++;
c = *p;
*p = '\0';
as_bad ("bad .common segment %s", input_line_pointer + 1);
*p = c;
return;
}
input_line_pointer += 6 + (input_line_pointer[2] == 'd'); /* Skip either */
demand_empty_rest_of_line ();
return;
} /* s_common() */
{
bad_common_segment:
p = input_line_pointer;
while (*p && *p != '\n')
p++;
c = *p;
*p = '\0';
as_bad ("bad .common segment %s", input_line_pointer + 1);
*p = c;
input_line_pointer = p;
ignore_rest_of_line ();
return;
}
}
static void
s_seg ()