int argp; unsigned int len;
obj_coff_section (ignore)     int ignore;{  /* Strip out the section name */  char *section_name;  char *section_name_end;  char c;  int argp;  unsigned int len;  unsigned int exp;  long flags;  if (flag_mri)    {      char type;      s_mri_sect (&type);      flags = 0;      if (type == 'C')	flags = STYP_TEXT;      else if (type == 'D')	flags = STYP_DATA;      segment_info[now_seg].scnhdr.s_flags |= flags;      return;    }  section_name = input_line_pointer;  c = get_symbol_end ();  section_name_end = input_line_pointer;  len = section_name_end - section_name;  input_line_pointer++;  SKIP_WHITESPACE ();  argp = 0;  if (c == ',')    argp = 1;  else if (*input_line_pointer == ',')    {      argp = 1;      ++input_line_pointer;      SKIP_WHITESPACE ();    }  exp = 0;  flags = 0;  if (argp)    {      if (*input_line_pointer != '"')	exp = get_absolute_expression ();      else	{	  ++input_line_pointer;	  while (*input_line_pointer != '"'		 && ! is_end_of_line[(unsigned char) *input_line_pointer])	    {	      switch (*input_line_pointer)		{		case 'b': flags |= STYP_BSS;    break;		case 'i': flags |= STYP_INFO;   break;		case 'l': flags |= STYP_LIB;    break;		case 'n': flags |= STYP_NOLOAD; break;		case 'o': flags |= STYP_OVER;   break;		case 'd':		case 'w': flags |= STYP_DATA;   break;		case 'x': flags |= STYP_TEXT;   break;		default:		  as_warn("unknown section attribute '%c'",			  *input_line_pointer);		  break;		}	      ++input_line_pointer;	    }	  if (*input_line_pointer == '"')	    ++input_line_pointer;	}    }  subseg_new (section_name, (subsegT) exp);  segment_info[now_seg].scnhdr.s_flags |= flags;  *section_name_end = c;}