gcc/tlink.c

   1 /* Scan linker error messages for missing template instantiations and provide
   2    them.
   3
   4    Copyright (C) 1995, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2007, 2008,
   5    2009, 2010, 2011 Free Software Foundation, Inc.
   6    Contributed by Jason Merrill (jason@cygnus.com).
   7
   8 This file is part of GCC.
   9
  10 GCC is free software; you can redistribute it and/or modify it under
  11 the terms of the GNU General Public License as published by the Free
  12 Software Foundation; either version 3, or (at your option) any later
  13 version.
  14
  15 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  16 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  17 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  18 for more details.
  19
  20 You should have received a copy of the GNU General Public License
  21 along with GCC; see the file COPYING3.  If not see
  22 <http://www.gnu.org/licenses/>.  */
  23
  24 #include "config.h"
  25 #include "system.h"
  26 #include "coretypes.h"
  27 #include "tm.h"
  28 #include "intl.h"
  29 #include "obstack.h"
  30 #include "hashtab.h"
  31 #include "demangle.h"
  32 #include "collect2.h"
  33 #include "filenames.h"
  34 #include "diagnostic-core.h"
  35
  36 /* TARGET_64BIT may be defined to use driver specific functionality. */
  37 #undef TARGET_64BIT
  38 #define TARGET_64BIT TARGET_64BIT_DEFAULT
  39
  40 #define MAX_ITERATIONS 17
  41
  42 /* Defined in the automatically-generated underscore.c.  */
  43 extern int prepends_underscore;
  44
  45 static int tlink_verbose;
  46
  47 static char *initial_cwd;
  48 \f
  49 /* Hash table boilerplate for working with htab_t.  We have hash tables
  50    for symbol names, file names, and demangled symbols.  */
  51
  52 typedef struct symbol_hash_entry
  53 {
  54   const char *key;
  55   struct file_hash_entry *file;
  56   int chosen;
  57   int tweaking;
  58   int tweaked;
  59 } symbol;
  60
  61 typedef struct file_hash_entry
  62 {
  63   const char *key;
  64   const char *args;
  65   const char *dir;
  66   const char *main;
  67   int tweaking;
  68 } file;
  69
  70 typedef struct demangled_hash_entry
  71 {
  72   const char *key;
  73   const char *mangled;
  74 } demangled;
  75
  76 /* Hash and comparison functions for these hash tables.  */
  77
  78 static int hash_string_eq (const void *, const void *);
  79 static hashval_t hash_string_hash (const void *);
  80
  81 static int
  82 hash_string_eq (const void *s1_p, const void *s2_p)
  83 {
  84   const char *const *s1 = (const char *const *) s1_p;
  85   const char *s2 = (const char *) s2_p;
  86   return strcmp (*s1, s2) == 0;
  87 }
  88
  89 static hashval_t
  90 hash_string_hash (const void *s_p)
  91 {
  92   const char *const *s = (const char *const *) s_p;
  93   return (*htab_hash_string) (*s);
  94 }
  95
  96 static htab_t symbol_table;
  97
  98 static struct symbol_hash_entry * symbol_hash_lookup (const char *, int);
  99 static struct file_hash_entry * file_hash_lookup (const char *);
 100 static struct demangled_hash_entry *demangled_hash_lookup (const char *, int);
 101 static void symbol_push (symbol *);
 102 static symbol * symbol_pop (void);
 103 static void file_push (file *);
 104 static file * file_pop (void);
 105 static void tlink_init (void);
 106 static int tlink_execute (const char *, char **, const char *, const char *);
 107 static char * frob_extension (const char *, const char *);
 108 static char * obstack_fgets (FILE *, struct obstack *);
 109 static char * tfgets (FILE *);
 110 static char * pfgets (FILE *);
 111 static void freadsym (FILE *, file *, int);
 112 static void read_repo_file (file *);
 113 static void maybe_tweak (char *, file *);
 114 static int recompile_files (void);
 115 static int read_repo_files (char **);
 116 static void demangle_new_symbols (void);
 117 static int scan_linker_output (const char *);
 118
 119 /* Look up an entry in the symbol hash table.  */
 120
 121 static struct symbol_hash_entry *
 122 symbol_hash_lookup (const char *string, int create)
 123 {
 124   void **e;
 125   e = htab_find_slot_with_hash (symbol_table, string,
 126                                 (*htab_hash_string) (string),
 127                                 create ? INSERT : NO_INSERT);
 128   if (e == NULL)
 129     return NULL;
 130   if (*e == NULL)
 131     {
 132       struct symbol_hash_entry *v;
 133       *e = v = XCNEW (struct symbol_hash_entry);
 134       v->key = xstrdup (string);
 135     }
 136   return (struct symbol_hash_entry *) *e;
 137 }
 138
 139 static htab_t file_table;
 140
 141 /* Look up an entry in the file hash table.  */
 142
 143 static struct file_hash_entry *
 144 file_hash_lookup (const char *string)
 145 {
 146   void **e;
 147   e = htab_find_slot_with_hash (file_table, string,
 148                                 (*htab_hash_string) (string),
 149                                 INSERT);
 150   if (*e == NULL)
 151     {
 152       struct file_hash_entry *v;
 153       *e = v = XCNEW (struct file_hash_entry);
 154       v->key = xstrdup (string);
 155     }
 156   return (struct file_hash_entry *) *e;
 157 }
 158
 159 static htab_t demangled_table;
 160
 161 /* Look up an entry in the demangled name hash table.  */
 162
 163 static struct demangled_hash_entry *
 164 demangled_hash_lookup (const char *string, int create)
 165 {
 166   void **e;
 167   e = htab_find_slot_with_hash (demangled_table, string,
 168                                 (*htab_hash_string) (string),
 169                                 create ? INSERT : NO_INSERT);
 170   if (e == NULL)
 171     return NULL;
 172   if (*e == NULL)
 173     {
 174       struct demangled_hash_entry *v;
 175       *e = v = XCNEW (struct demangled_hash_entry);
 176       v->key = xstrdup (string);
 177     }
 178   return (struct demangled_hash_entry *) *e;
 179 }
 180 \f
 181 /* Stack code.  */
 182
 183 struct symbol_stack_entry
 184 {
 185   symbol *value;
 186   struct symbol_stack_entry *next;
 187 };
 188 struct obstack symbol_stack_obstack;
 189 struct symbol_stack_entry *symbol_stack;
 190
 191 struct file_stack_entry
 192 {
 193   file *value;
 194   struct file_stack_entry *next;
 195 };
 196 struct obstack file_stack_obstack;
 197 struct file_stack_entry *file_stack;
 198
 199 static void
 200 symbol_push (symbol *p)
 201 {
 202   struct symbol_stack_entry *ep
 203     = XOBNEW (&symbol_stack_obstack, struct symbol_stack_entry);
 204   ep->value = p;
 205   ep->next = symbol_stack;
 206   symbol_stack = ep;
 207 }
 208
 209 static symbol *
 210 symbol_pop (void)
 211 {
 212   struct symbol_stack_entry *ep = symbol_stack;
 213   symbol *p;
 214   if (ep == NULL)
 215     return NULL;
 216   p = ep->value;
 217   symbol_stack = ep->next;
 218   obstack_free (&symbol_stack_obstack, ep);
 219   return p;
 220 }
 221
 222 static void
 223 file_push (file *p)
 224 {
 225   struct file_stack_entry *ep;
 226
 227   if (p->tweaking)
 228     return;
 229
 230   ep = XOBNEW (&file_stack_obstack, struct file_stack_entry);
 231   ep->value = p;
 232   ep->next = file_stack;
 233   file_stack = ep;
 234   p->tweaking = 1;
 235 }
 236
 237 static file *
 238 file_pop (void)
 239 {
 240   struct file_stack_entry *ep = file_stack;
 241   file *p;
 242   if (ep == NULL)
 243     return NULL;
 244   p = ep->value;
 245   file_stack = ep->next;
 246   obstack_free (&file_stack_obstack, ep);
 247   p->tweaking = 0;
 248   return p;
 249 }
 250 \f
 251 /* Other machinery.  */
 252
 253 /* Initialize the tlink machinery.  Called from do_tlink.  */
 254
 255 static void
 256 tlink_init (void)
 257 {
 258   const char *p;
 259
 260   symbol_table = htab_create (500, hash_string_hash, hash_string_eq,
 261                               NULL);
 262   file_table = htab_create (500, hash_string_hash, hash_string_eq,
 263                             NULL);
 264   demangled_table = htab_create (500, hash_string_hash, hash_string_eq,
 265                                  NULL);
 266
 267   obstack_begin (&symbol_stack_obstack, 0);
 268   obstack_begin (&file_stack_obstack, 0);
 269
 270   p = getenv ("TLINK_VERBOSE");
 271   if (p)
 272     tlink_verbose = atoi (p);
 273   else
 274     {
 275       tlink_verbose = 1;
 276       if (vflag)
 277         tlink_verbose = 2;
 278       if (debug)
 279         tlink_verbose = 3;
 280     }
 281
 282   initial_cwd = getpwd ();
 283 }
 284
 285 static int
 286 tlink_execute (const char *prog, char **argv, const char *outname,
 287                const char *errname)
 288 {
 289   struct pex_obj *pex;
 290
 291   pex = collect_execute (prog, argv, outname, errname, PEX_LAST | PEX_SEARCH);
 292   return collect_wait (prog, pex);
 293 }
 294
 295 static char *
 296 frob_extension (const char *s, const char *ext)
 297 {
 298   const char *p;
 299
 300   p = strrchr (lbasename (s), '.');
 301   if (! p)
 302     p = s + strlen (s);
 303
 304   obstack_grow (&temporary_obstack, s, p - s);
 305   return (char *) obstack_copy0 (&temporary_obstack, ext, strlen (ext));
 306 }
 307
 308 static char *
 309 obstack_fgets (FILE *stream, struct obstack *ob)
 310 {
 311   int c;
 312   while ((c = getc (stream)) != EOF && c != '\n')
 313     obstack_1grow (ob, c);
 314   if (obstack_object_size (ob) == 0)
 315     return NULL;
 316   obstack_1grow (ob, '\0');
 317   return XOBFINISH (ob, char *);
 318 }
 319
 320 static char *
 321 tfgets (FILE *stream)
 322 {
 323   return obstack_fgets (stream, &temporary_obstack);
 324 }
 325
 326 static char *
 327 pfgets (FILE *stream)
 328 {
 329   return xstrdup (tfgets (stream));
 330 }
 331 \f
 332 /* Real tlink code.  */
 333
 334 /* Subroutine of read_repo_file.  We are reading the repo file for file F,
 335    which is coming in on STREAM, and the symbol that comes next in STREAM
 336    is offered, chosen or provided if CHOSEN is 0, 1 or 2, respectively.
 337
 338    XXX "provided" is unimplemented, both here and in the compiler.  */
 339
 340 static void
 341 freadsym (FILE *stream, file *f, int chosen)
 342 {
 343   symbol *sym;
 344
 345   {
 346     const char *name = tfgets (stream);
 347     sym = symbol_hash_lookup (name, true);
 348   }
 349
 350   if (sym->file == NULL)
 351     {
 352       /* We didn't have this symbol already, so we choose this file.  */
 353
 354       symbol_push (sym);
 355       sym->file = f;
 356       sym->chosen = chosen;
 357     }
 358   else if (chosen)
 359     {
 360       /* We want this file; cast aside any pretender.  */
 361
 362       if (sym->chosen && sym->file != f)
 363         {
 364           if (sym->chosen == 1)
 365             file_push (sym->file);
 366           else
 367             {
 368               file_push (f);
 369               f = sym->file;
 370               chosen = sym->chosen;
 371             }
 372         }
 373       sym->file = f;
 374       sym->chosen = chosen;
 375     }
 376 }
 377
 378 /* Read in the repo file denoted by F, and record all its information.  */
 379
 380 static void
 381 read_repo_file (file *f)
 382 {
 383   char c;
 384   FILE *stream = fopen (f->key, "r");
 385
 386   if (tlink_verbose >= 2)
 387     fprintf (stderr, _("collect: reading %s\n"), f->key);
 388
 389   while (fscanf (stream, "%c ", &c) == 1)
 390     {
 391       switch (c)
 392         {
 393         case 'A':
 394           f->args = pfgets (stream);
 395           break;
 396         case 'D':
 397           f->dir = pfgets (stream);
 398           break;
 399         case 'M':
 400           f->main = pfgets (stream);
 401           break;
 402         case 'P':
 403           freadsym (stream, f, 2);
 404           break;
 405         case 'C':
 406           freadsym (stream, f, 1);
 407           break;
 408         case 'O':
 409           freadsym (stream, f, 0);
 410           break;
 411         }
 412       obstack_free (&temporary_obstack, temporary_firstobj);
 413     }
 414   fclose (stream);
 415   if (f->args == NULL)
 416     f->args = getenv ("COLLECT_GCC_OPTIONS");
 417   if (f->dir == NULL)
 418     f->dir = ".";
 419 }
 420
 421 /* We might want to modify LINE, which is a symbol line from file F.  We do
 422    this if either we saw an error message referring to the symbol in
 423    question, or we have already allocated the symbol to another file and
 424    this one wants to emit it as well.  */
 425
 426 static void
 427 maybe_tweak (char *line, file *f)
 428 {
 429   symbol *sym = symbol_hash_lookup (line + 2, false);
 430
 431   if ((sym->file == f && sym->tweaking)
 432       || (sym->file != f && line[0] == 'C'))
 433     {
 434       sym->tweaking = 0;
 435       sym->tweaked = 1;
 436
 437       if (line[0] == 'O')
 438         line[0] = 'C';
 439       else
 440         line[0] = 'O';
 441     }
 442 }
 443
 444 /* Update the repo files for each of the object files we have adjusted and
 445    recompile.  */
 446
 447 static int
 448 recompile_files (void)
 449 {
 450   file *f;
 451
 452   putenv (xstrdup ("COMPILER_PATH="));
 453   putenv (xstrdup ("LIBRARY_PATH="));
 454
 455   while ((f = file_pop ()) != NULL)
 456     {
 457       char *line;
 458       const char *p, *q;
 459       char **argv;
 460       struct obstack arg_stack;
 461       FILE *stream = fopen (f->key, "r");
 462       const char *const outname = frob_extension (f->key, ".rnw");
 463       FILE *output = fopen (outname, "w");
 464
 465       while ((line = tfgets (stream)) != NULL)
 466         {
 467           switch (line[0])
 468             {
 469             case 'C':
 470             case 'O':
 471               maybe_tweak (line, f);
 472             }
 473           fprintf (output, "%s\n", line);
 474         }
 475       fclose (stream);
 476       fclose (output);
 477       /* On Windows "rename" returns -1 and sets ERRNO to EACCESS if
 478          the new file name already exists.  Therefore, we explicitly
 479          remove the old file first.  */
 480       if (remove (f->key) == -1)
 481         fatal_error ("removing .rpo file: %m");
 482       if (rename (outname, f->key) == -1)
 483         fatal_error ("renaming .rpo file: %m");
 484
 485       if (!f->args)
 486         {
 487           error ("repository file '%s' does not contain command-line "
 488                  "arguments", f->key);
 489           return 0;
 490         }
 491
 492       /* Build a null-terminated argv array suitable for
 493          tlink_execute().  Manipulate arguments on the arg_stack while
 494          building argv on the temporary_obstack.  */
 495
 496       obstack_init (&arg_stack);
 497       obstack_ptr_grow (&temporary_obstack, c_file_name);
 498
 499       for (p = f->args; *p != '\0'; p = q + 1)
 500         {
 501           /* Arguments are delimited by single-quotes.  Find the
 502              opening quote.  */
 503           p = strchr (p, '\'');
 504           if (!p)
 505             goto done;
 506
 507           /* Find the closing quote.  */
 508           q = strchr (p + 1, '\'');
 509           if (!q)
 510             goto done;
 511
 512           obstack_grow (&arg_stack, p + 1, q - (p + 1));
 513
 514           /* Replace '\'' with '.  This is how set_collect_gcc_options
 515              encodes a single-quote.  */
 516           while (q[1] == '\\' && q[2] == '\'' && q[3] == '\'')
 517             {
 518               const char *r;
 519
 520               r = strchr (q + 4, '\'');
 521               if (!r)
 522                 goto done;
 523
 524               obstack_grow (&arg_stack, q + 3, r - (q + 3));
 525               q = r;
 526             }
 527
 528           obstack_1grow (&arg_stack, '\0');
 529           obstack_ptr_grow (&temporary_obstack, obstack_finish (&arg_stack));
 530         }
 531     done:
 532       obstack_ptr_grow (&temporary_obstack, f->main);
 533       obstack_ptr_grow (&temporary_obstack, NULL);
 534       argv = XOBFINISH (&temporary_obstack, char **);
 535
 536       if (tlink_verbose)
 537         fprintf (stderr, _("collect: recompiling %s\n"), f->main);
 538
 539       if (chdir (f->dir) != 0
 540           || tlink_execute (c_file_name, argv, NULL, NULL) != 0
 541           || chdir (initial_cwd) != 0)
 542         return 0;
 543
 544       read_repo_file (f);
 545
 546       obstack_free (&arg_stack, NULL);
 547       obstack_free (&temporary_obstack, temporary_firstobj);
 548     }
 549   return 1;
 550 }
 551
 552 /* The first phase of processing: determine which object files have
 553    .rpo files associated with them, and read in the information.  */
 554
 555 static int
 556 read_repo_files (char **object_lst)
 557 {
 558   char **object = object_lst;
 559
 560   for (; *object; object++)
 561     {
 562       const char *p;
 563       file *f;
 564
 565       /* Don't bother trying for ld flags.  */
 566       if (*object[0] == '-')
 567         continue;
 568
 569       p = frob_extension (*object, ".rpo");
 570
 571       if (! file_exists (p))
 572         continue;
 573
 574       f = file_hash_lookup (p);
 575
 576       read_repo_file (f);
 577     }
 578
 579   if (file_stack != NULL && ! recompile_files ())
 580     return 0;
 581
 582   return (symbol_stack != NULL);
 583 }
 584
 585 /* Add the demangled forms of any new symbols to the hash table.  */
 586
 587 static void
 588 demangle_new_symbols (void)
 589 {
 590   symbol *sym;
 591
 592   while ((sym = symbol_pop ()) != NULL)
 593     {
 594       demangled *dem;
 595       const char *p = cplus_demangle (sym->key, DMGL_PARAMS | DMGL_ANSI);
 596
 597       if (! p)
 598         continue;
 599
 600       dem = demangled_hash_lookup (p, true);
 601       dem->mangled = sym->key;
 602     }
 603 }
 604
 605 /* Step through the output of the linker, in the file named FNAME, and
 606    adjust the settings for each symbol encountered.  */
 607
 608 static int
 609 scan_linker_output (const char *fname)
 610 {
 611   FILE *stream = fopen (fname, "r");
 612   char *line;
 613   int skip_next_in_line = 0;
 614
 615   while ((line = tfgets (stream)) != NULL)
 616     {
 617       char *p = line, *q;
 618       symbol *sym;
 619       int end;
 620       int ok = 0;
 621
 622       /* On darwin9, we might have to skip " in " lines as well.  */
 623       if (skip_next_in_line
 624           && strstr (p, " in "))
 625           continue;
 626       skip_next_in_line = 0;
 627
 628       while (*p && ISSPACE ((unsigned char) *p))
 629         ++p;
 630
 631       if (! *p)
 632         continue;
 633
 634       for (q = p; *q && ! ISSPACE ((unsigned char) *q); ++q)
 635         ;
 636
 637       /* Try the first word on the line.  */
 638       if (*p == '.')
 639         ++p;
 640       if (!strncmp (p, USER_LABEL_PREFIX, strlen (USER_LABEL_PREFIX)))
 641         p += strlen (USER_LABEL_PREFIX);
 642
 643       end = ! *q;
 644       *q = 0;
 645       sym = symbol_hash_lookup (p, false);
 646
 647       /* Some SVR4 linkers produce messages like
 648          ld: 0711-317 ERROR: Undefined symbol: .g__t3foo1Zi
 649          */
 650       if (! sym && ! end && strstr (q + 1, "Undefined symbol: "))
 651         {
 652           char *p = strrchr (q + 1, ' ');
 653           p++;
 654           if (*p == '.')
 655             p++;
 656           if (!strncmp (p, USER_LABEL_PREFIX, strlen (USER_LABEL_PREFIX)))
 657             p += strlen (USER_LABEL_PREFIX);
 658           sym = symbol_hash_lookup (p, false);
 659         }
 660
 661       if (! sym && ! end)
 662         /* Try a mangled name in quotes.  */
 663         {
 664           char *oldq = q + 1;
 665           demangled *dem = 0;
 666           q = 0;
 667
 668           /* On darwin9, we look for "foo" referenced from:\n\(.* in .*\n\)*  */
 669           if (strcmp (oldq, "referenced from:") == 0)
 670             {
 671               /* We have to remember that we found a symbol to tweak.  */
 672               ok = 1;
 673
 674               /* We actually want to start from the first word on the
 675                  line.  */
 676               oldq = p;
 677
 678               /* Since the format is multiline, we have to skip
 679                  following lines with " in ".  */
 680               skip_next_in_line = 1;
 681             }
 682
 683           /* First try `GNU style'.  */
 684           p = strchr (oldq, '`');
 685           if (p)
 686             p++, q = strchr (p, '\'');
 687           /* Then try "double quotes".  */
 688           else if (p = strchr (oldq, '"'), p)
 689             p++, q = strchr (p, '"');
 690           /* Then try 'single quotes'.  */
 691           else if (p = strchr (oldq, '\''), p)
 692             p++, q = strchr (p, '\'');
 693           else {
 694             /* Then try entire line.  */
 695             q = strchr (oldq, 0);
 696             if (q != oldq)
 697               p = (char *)oldq;
 698           }
 699
 700           if (p)
 701             {
 702               /* Don't let the strstr's below see the demangled name; we
 703                  might get spurious matches.  */
 704               p[-1] = '\0';
 705
 706               /* powerpc64-linux references .foo when calling function foo.  */
 707               if (*p == '.')
 708                 p++;
 709             }
 710
 711           /* We need to check for certain error keywords here, or we would
 712              mistakenly use GNU ld's "In function `foo':" message.  */
 713           if (q && (ok
 714                     || strstr (oldq, "ndefined")
 715                     || strstr (oldq, "nresolved")
 716                     || strstr (oldq, "nsatisfied")
 717                     || strstr (oldq, "ultiple")))
 718             {
 719               *q = 0;
 720               dem = demangled_hash_lookup (p, false);
 721               if (dem)
 722                 sym = symbol_hash_lookup (dem->mangled, false);
 723               else
 724                 {
 725                   if (!strncmp (p, USER_LABEL_PREFIX,
 726                                 strlen (USER_LABEL_PREFIX)))
 727                     p += strlen (USER_LABEL_PREFIX);
 728                   sym = symbol_hash_lookup (p, false);
 729                 }
 730             }
 731         }
 732
 733       if (sym && sym->tweaked)
 734         {
 735           error ("'%s' was assigned to '%s', but was not defined "
 736                  "during recompilation, or vice versa",
 737                  sym->key, sym->file->key);
 738           fclose (stream);
 739           return 0;
 740         }
 741       if (sym && !sym->tweaking)
 742         {
 743           if (tlink_verbose >= 2)
 744             fprintf (stderr, _("collect: tweaking %s in %s\n"),
 745                      sym->key, sym->file->key);
 746           sym->tweaking = 1;
 747           file_push (sym->file);
 748         }
 749
 750       obstack_free (&temporary_obstack, temporary_firstobj);
 751     }
 752
 753   fclose (stream);
 754   return (file_stack != NULL);
 755 }
 756
 757 /* Entry point for tlink.  Called from main in collect2.c.
 758
 759    Iteratively try to provide definitions for all the unresolved symbols
 760    mentioned in the linker error messages.
 761
 762    LD_ARGV is an array of arguments for the linker.
 763    OBJECT_LST is an array of object files that we may be able to recompile
 764      to provide missing definitions.  Currently ignored.  */
 765
 766 void
 767 do_tlink (char **ld_argv, char **object_lst ATTRIBUTE_UNUSED)
 768 {
 769   int exit = tlink_execute ("ld", ld_argv, ldout, lderrout);
 770
 771   tlink_init ();
 772
 773   if (exit)
 774     {
 775       int i = 0;
 776
 777       /* Until collect does a better job of figuring out which are object
 778          files, assume that everything on the command line could be.  */
 779       if (read_repo_files (ld_argv))
 780         while (exit && i++ < MAX_ITERATIONS)
 781           {
 782             if (tlink_verbose >= 3)
 783               {
 784                 dump_file (ldout, stdout);
 785                 dump_file (lderrout, stderr);
 786               }
 787             demangle_new_symbols ();
 788             if (! scan_linker_output (ldout)
 789                 && ! scan_linker_output (lderrout))
 790               break;
 791             if (! recompile_files ())
 792               break;
 793             if (tlink_verbose)
 794               fprintf (stderr, _("collect: relinking\n"));
 795             exit = tlink_execute ("ld", ld_argv, ldout, lderrout);
 796           }
 797     }
 798
 799   dump_file (ldout, stdout);
 800   unlink (ldout);
 801   dump_file (lderrout, stderr);
 802   unlink (lderrout);
 803   if (exit)
 804     {
 805       error ("ld returned %d exit status", exit);
 806       collect_exit (exit);
 807     }
 808 }