[binutils] Bump binutils to 2.20.1

binutils/gas/write.c

 /* write.c - emit .o file
    Copyright 1986, 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997,
    1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
    Free Software Foundation, Inc.
 
    This file is part of GAS, the GNU Assembler.
 
    GAS is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 3, or (at your option)
@@ skipping 132 matching lines @@
 /* Create a fixS in obstack 'notes'.  */
 
 static fixS *
 fix_new_internal (fragS *frag,          /* Which frag?  */
                   int where,            /* Where in that frag?  */
                   int size,             /* 1, 2, or 4 usually.  */
                   symbolS *add_symbol,  /* X_add_symbol.  */
                   symbolS *sub_symbol,  /* X_op_symbol.  */
                   offsetT offset,       /* X_add_number.  */
                   int pcrel,            /* TRUE if PC-relative relocation.  */
-                  RELOC_ENUM r_type ATTRIBUTE_UNUSED /* Relocation type.  */)
+                  RELOC_ENUM r_type ATTRIBUTE_UNUSED /* Relocation type.  */,
+                  int at_beginning)     /* Add to the start of the list?  */
 {
   fixS *fixP;
 
   n_fixups++;
 
   fixP = (fixS *) obstack_alloc (&notes, sizeof (fixS));
 
   fixP->fx_frag = frag;
   fixP->fx_where = where;
   fixP->fx_size = size;
@@ skipping 23 matching lines @@
   fixP->fx_cgen.insn = NULL;
   fixP->fx_cgen.opinfo = 0;
 #endif
 
 #ifdef TC_FIX_TYPE
   TC_INIT_FIX_DATA (fixP);
 #endif
 
   as_where (&fixP->fx_file, &fixP->fx_line);
 
-  /* Usually, we want relocs sorted numerically, but while
-     comparing to older versions of gas that have relocs
-     reverse sorted, it is convenient to have this compile
-     time option.  xoxorich.  */
   {
 
     fixS **seg_fix_rootP = (frags_chained
                             ? &seg_info (now_seg)->fix_root
                             : &frchain_now->fix_root);
     fixS **seg_fix_tailP = (frags_chained
                             ? &seg_info (now_seg)->fix_tail
                             : &frchain_now->fix_tail);
 
-#ifdef REVERSE_SORT_RELOCS
-
-    fixP->fx_next = *seg_fix_rootP;
-    *seg_fix_rootP = fixP;
-
-#else /* REVERSE_SORT_RELOCS  */
-
-    fixP->fx_next = NULL;
-
-    if (*seg_fix_tailP)
-      (*seg_fix_tailP)->fx_next = fixP;
+    if (at_beginning)
+      {
+        fixP->fx_next = *seg_fix_rootP;
+        *seg_fix_rootP = fixP;
+        if (fixP->fx_next == NULL)
+          *seg_fix_tailP = fixP;
+      }
     else
-      *seg_fix_rootP = fixP;
-    *seg_fix_tailP = fixP;
-
-#endif /* REVERSE_SORT_RELOCS  */
+      {
+        fixP->fx_next = NULL;
+        if (*seg_fix_tailP)
+          (*seg_fix_tailP)->fx_next = fixP;
+        else
+          *seg_fix_rootP = fixP;
+        *seg_fix_tailP = fixP;
+      }
   }
 
   return fixP;
 }
 
 /* Create a fixup relative to a symbol (plus a constant).  */
 
 fixS *
 fix_new (fragS *frag,           /* Which frag?  */
          int where,                     /* Where in that frag?  */
          int size,                      /* 1, 2, or 4 usually.  */
          symbolS *add_symbol,   /* X_add_symbol.  */
          offsetT offset,                /* X_add_number.  */
          int pcrel,                     /* TRUE if PC-relative relocation.  */
          RELOC_ENUM r_type              /* Relocation type.  */)
 {
   return fix_new_internal (frag, where, size, add_symbol,
-                           (symbolS *) NULL, offset, pcrel, r_type);
+                           (symbolS *) NULL, offset, pcrel, r_type, FALSE);
 }
 
 /* Create a fixup for an expression.  Currently we only support fixups
    for difference expressions.  That is itself more than most object
    file formats support anyhow.  */
 
 fixS *
 fix_new_exp (fragS *frag,               /* Which frag?  */
              int where,                 /* Where in that frag?  */
              int size,                  /* 1, 2, or 4 usually.  */
@@ skipping 47 matching lines @@
       /* Fall through.  */
     case O_constant:
       off = exp->X_add_number;
       break;
 
     default:
       add = make_expr_symbol (exp);
       break;
     }
 
-  return fix_new_internal (frag, where, size, add, sub, off, pcrel, r_type);
+  return fix_new_internal (frag, where, size, add, sub, off, pcrel,
+                           r_type, FALSE);
+}
+
+/* Create a fixup at the beginning of FRAG.  The arguments are the same
+   as for fix_new, except that WHERE is implicitly 0.  */
+
+fixS *
+fix_at_start (fragS *frag, int size, symbolS *add_symbol,
+              offsetT offset, int pcrel, RELOC_ENUM r_type)
+{
+  return fix_new_internal (frag, 0, size, add_symbol,
+                           (symbolS *) NULL, offset, pcrel, r_type, TRUE);
 }
 
 /* Generic function to determine whether a fixup requires a relocation.  */
 int
 generic_force_reloc (fixS *fix)
 {
   if (fix->fx_r_type == BFD_RELOC_VTABLE_INHERIT
       || fix->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
     return 1;
 
@@ skipping 2250 matching lines @@
     {
       fprintf (stderr, "\n   -<");
       print_symbol_value_1 (stderr, fixp->fx_subsy);
       fprintf (stderr, ">");
     }
   fprintf (stderr, "\n");
 #ifdef TC_FIX_DATA_PRINT
   TC_FIX_DATA_PRINT (stderr, fixp);
 #endif
 }