int x;
int x ATTRIBUTE_UNUSED;
s_mips_globl (x)     int x;{  char *name;  int c;  symbolS *symbolP;  flagword flag;  name = input_line_pointer;  c = get_symbol_end ();  symbolP = symbol_find_or_make (name);  *input_line_pointer = c;  SKIP_WHITESPACE ();  /* On Irix 5, every global symbol that is not explicitly labelled as     being a function is apparently labelled as being an object.  */  flag = BSF_OBJECT;  if (! is_end_of_line[(unsigned char) *input_line_pointer])    {      char *secname;      asection *sec;      secname = input_line_pointer;      c = get_symbol_end ();      sec = bfd_get_section_by_name (stdoutput, secname);      if (sec == NULL)	as_bad (_("%s: no such section"), secname);      *input_line_pointer = c;      if (sec != NULL && (sec->flags & SEC_CODE) != 0)	flag = BSF_FUNCTION;    }  symbol_get_bfdsym (symbolP)->flags |= flag;  S_SET_EXTERNAL (symbolP);  demand_empty_rest_of_line ();}