as_fatal ("Can't set register masks");
as_fatal (_("Can't set register masks"));
ecoff_frob_file (){  const struct ecoff_debug_swap * const debug_swap    = &ecoff_backend (stdoutput)->debug_swap;  bfd_vma addr;  asection *sec;  HDRR *hdr;  char *buf;  char *set;  /* Set the section VMA values.  We force the .sdata and .sbss     sections to the end to ensure that their VMA addresses are close     together so that the GP register can address both of them.  We     put the .bss section after the .sbss section.     Also, for the Alpha, we must sort the sections, to make sure they     appear in the output file in the correct order.  (Actually, maybe     this is a job for BFD.  But the VMAs computed would be out of     whack if we computed them given our initial, random ordering.     It's possible that that wouldn't break things; I could do some     experimenting sometime and find out.     This output ordering of sections is magic, on the Alpha, at     least.  The .lita section must come before .lit8 and .lit4,     otherwise the OSF/1 linker may silently trash the .lit{4,8}     section contents.  Also, .text must preceed .rdata.  These differ     from the order described in some parts of the DEC OSF/1 Assembly     Language Programmer's Guide, but that order doesn't seem to work     with their linker.     I don't know if section ordering on the MIPS is important.  */  static const char *const names[] = {    /* text segment */    ".text", ".rdata", ".init", ".fini",    /* data segment */    ".data", ".lita", ".lit8", ".lit4", ".sdata", ".got",    /* bss segment */    ".sbss", ".bss",  };#define n_names (sizeof (names) / sizeof (names[0]))  addr = 0;  {    /* Sections that match names, order to be straightened out later.  */    asection *secs[n_names];    /* Linked list of sections with non-matching names.  Random ordering.  */    asection *other_sections = 0;    /* Pointer to next section, since we're destroying the original       ordering.  */    asection *next;    int i;    for (i = 0; i < n_names; i++)      secs[i] = 0;    for (sec = stdoutput->sections; sec != (asection *) NULL; sec = next)      {	next = sec->next;	for (i = 0; i < n_names; i++)	  if (!strcmp (sec->name, names[i]))	    {	      secs[i] = sec;	      break;	    }	if (i == n_names)	  {	    bfd_set_section_vma (stdoutput, sec, addr);	    addr += bfd_section_size (stdoutput, sec);	    sec->next = other_sections;	    other_sections = sec;	  }      }    for (i = 0; i < n_names; i++)      if (secs[i])	{	  sec = secs[i];	  bfd_set_section_vma (stdoutput, sec, addr);	  addr += bfd_section_size (stdoutput, sec);	}    for (i = n_names - 1; i >= 0; i--)      if (secs[i])	{	  sec = secs[i];	  sec->next = other_sections;	  other_sections = sec;	}    stdoutput->sections = other_sections;  }  /* Build the ECOFF debugging information.  */  assert (ecoff_data (stdoutput) != 0);  hdr = &ecoff_data (stdoutput)->debug_info.symbolic_header;  ecoff_build_debug (hdr, &buf, debug_swap);  /* Finish up the ecoff_tdata structure.  */  set = buf;#define SET(ptr, count, type, size) \  if (hdr->count == 0) \    ecoff_data (stdoutput)->debug_info.ptr = (type) NULL; \  else \    { \      ecoff_data (stdoutput)->debug_info.ptr = (type) set; \      set += hdr->count * size; \    }  SET (line, cbLine, unsigned char *, sizeof (unsigned char));  SET (external_dnr, idnMax, PTR, debug_swap->external_dnr_size);  SET (external_pdr, ipdMax, PTR, debug_swap->external_pdr_size);  SET (external_sym, isymMax, PTR, debug_swap->external_sym_size);  SET (external_opt, ioptMax, PTR, debug_swap->external_opt_size);  SET (external_aux, iauxMax, union aux_ext *, sizeof (union aux_ext));  SET (ss, issMax, char *, sizeof (char));  SET (ssext, issExtMax, char *, sizeof (char));  SET (external_rfd, crfd, PTR, debug_swap->external_rfd_size);  SET (external_fdr, ifdMax, PTR, debug_swap->external_fdr_size);  SET (external_ext, iextMax, PTR, debug_swap->external_ext_size);#undef SET  /* Fill in the register masks.  */  {    unsigned long gprmask = 0;    unsigned long fprmask = 0;    unsigned long *cprmask = NULL;#ifdef TC_MIPS    /* Fill in the MIPS register masks.  It's probably not worth       setting up a generic interface for this.  */    gprmask = mips_gprmask;    cprmask = mips_cprmask;#endif#ifdef TC_ALPHA    alpha_frob_ecoff_data ();    if (! bfd_ecoff_set_gp_value (stdoutput, alpha_gp_value))      as_fatal ("Can't set GP value");    gprmask = alpha_gprmask;    fprmask = alpha_fprmask;#endif    if (! bfd_ecoff_set_regmasks (stdoutput, gprmask, fprmask, cprmask))      as_fatal ("Can't set register masks");  }}