gcc/tlink.c

   1 /* Scan linker error messages for missing template instantiations and provide
   2    them.
   3
   4    Copyright (C) 1995-2019 Free Software Foundation, Inc.
   5    Contributed by Jason Merrill (jason@cygnus.com).
   6
   7 This file is part of GCC.
   8
   9 GCC is free software; you can redistribute it and/or modify it under
  10 the terms of the GNU General Public License as published by the Free
  11 Software Foundation; either version 3, or (at your option) any later
  12 version.
  13
  14 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  15 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  16 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  17 for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with GCC; see the file COPYING3.  If not see
  21 <http://www.gnu.org/licenses/>.  */
  22
  23 #include "config.h"
  24 #include "system.h"
  25 #include "coretypes.h"
  26 #include "tm.h"
  27 #include "intl.h"
  28 #include "obstack.h"
  29 #include "demangle.h"
  30 #include "collect2.h"
  31 #include "collect-utils.h"
  32 #include "filenames.h"
  33 #include "diagnostic-core.h"
  34
  35 /* TARGET_64BIT may be defined to use driver specific functionality. */
  36 #undef TARGET_64BIT
  37 #define TARGET_64BIT TARGET_64BIT_DEFAULT
  38
  39 #define MAX_ITERATIONS 17
  40
  41 /* Defined in the automatically-generated underscore.c.  */
  42 extern int prepends_underscore;
  43
  44 static int tlink_verbose;
  45
  46 static char *initial_cwd;
  47 \f
  48 /* Hash table boilerplate for working with htab_t.  We have hash tables
  49    for symbol names, file names, and demangled symbols.  */
  50
  51 typedef struct symbol_hash_entry
  52 {
  53   const char *key;
  54   struct file_hash_entry *file;
  55   int chosen;
  56   int tweaking;
  57   int tweaked;
  58 } symbol;
  59
  60 typedef struct file_hash_entry
  61 {
  62   const char *key;
  63   const char *args;
  64   const char *dir;
  65   const char *main;
  66   int tweaking;
  67 } file;
  68
  69 typedef const char *str;
  70
  71 typedef struct demangled_hash_entry
  72 {
  73   const char *key;
  74   vec<str> mangled;
  75 } demangled;
  76
  77 /* Hash and comparison functions for these hash tables.  */
  78
  79 static int hash_string_eq (const void *, const void *);
  80 static hashval_t hash_string_hash (const void *);
  81
  82 static int
  83 hash_string_eq (const void *s1_p, const void *s2_p)
  84 {
  85   const char *const *s1 = (const char *const *) s1_p;
  86   const char *s2 = (const char *) s2_p;
  87   return strcmp (*s1, s2) == 0;
  88 }
  89
  90 static hashval_t
  91 hash_string_hash (const void *s_p)
  92 {
  93   const char *const *s = (const char *const *) s_p;
  94   return (*htab_hash_string) (*s);
  95 }
  96
  97 static htab_t symbol_table;
  98
  99 static struct symbol_hash_entry * symbol_hash_lookup (const char *, int);
 100 static struct file_hash_entry * file_hash_lookup (const char *);
 101 static struct demangled_hash_entry *demangled_hash_lookup (const char *, int);
 102 static void symbol_push (symbol *);
 103 static symbol * symbol_pop (void);
 104 static void file_push (file *);
 105 static file * file_pop (void);
 106 static char * frob_extension (const char *, const char *);
 107 static char * obstack_fgets (FILE *, struct obstack *);
 108 static char * tfgets (FILE *);
 109 static char * pfgets (FILE *);
 110 static void freadsym (FILE *, file *, int);
 111 static void read_repo_file (file *);
 112 static void maybe_tweak (char *, file *);
 113 static int recompile_files (void);
 114 static int read_repo_files (char **);
 115 static void demangle_new_symbols (void);
 116 static int scan_linker_output (const char *);
 117
 118 /* Look up an entry in the symbol hash table.  */
 119
 120 static struct symbol_hash_entry *
 121 symbol_hash_lookup (const char *string, int create)
 122 {
 123   void **e;
 124   e = htab_find_slot_with_hash (symbol_table, string,
 125                                 (*htab_hash_string) (string),
 126                                 create ? INSERT : NO_INSERT);
 127   if (e == NULL)
 128     return NULL;
 129   if (*e == NULL)
 130     {
 131       struct symbol_hash_entry *v;
 132       *e = v = XCNEW (struct symbol_hash_entry);
 133       v->key = xstrdup (string);
 134     }
 135   return (struct symbol_hash_entry *) *e;
 136 }
 137
 138 static htab_t file_table;
 139
 140 /* Look up an entry in the file hash table.  */
 141
 142 static struct file_hash_entry *
 143 file_hash_lookup (const char *string)
 144 {
 145   void **e;
 146   e = htab_find_slot_with_hash (file_table, string,
 147                                 (*htab_hash_string) (string),
 148                                 INSERT);
 149   if (*e == NULL)
 150     {
 151       struct file_hash_entry *v;
 152       *e = v = XCNEW (struct file_hash_entry);
 153       v->key = xstrdup (string);
 154     }
 155   return (struct file_hash_entry *) *e;
 156 }
 157
 158 static htab_t demangled_table;
 159
 160 /* Look up an entry in the demangled name hash table.  */
 161
 162 static struct demangled_hash_entry *
 163 demangled_hash_lookup (const char *string, int create)
 164 {
 165   void **e;
 166   e = htab_find_slot_with_hash (demangled_table, string,
 167                                 (*htab_hash_string) (string),
 168                                 create ? INSERT : NO_INSERT);
 169   if (e == NULL)
 170     return NULL;
 171   if (*e == NULL)
 172     {
 173       struct demangled_hash_entry *v;
 174       *e = v = XCNEW (struct demangled_hash_entry);
 175       v->key = xstrdup (string);
 176     }
 177   return (struct demangled_hash_entry *) *e;
 178 }
 179 \f
 180 /* Stack code.  */
 181
 182 struct symbol_stack_entry
 183 {
 184   symbol *value;
 185   struct symbol_stack_entry *next;
 186 };
 187 struct obstack symbol_stack_obstack;
 188 struct symbol_stack_entry *symbol_stack;
 189
 190 struct file_stack_entry
 191 {
 192   file *value;
 193   struct file_stack_entry *next;
 194 };
 195 struct obstack file_stack_obstack;
 196 struct file_stack_entry *file_stack;
 197
 198 static void
 199 symbol_push (symbol *p)
 200 {
 201   struct symbol_stack_entry *ep
 202     = XOBNEW (&symbol_stack_obstack, struct symbol_stack_entry);
 203   ep->value = p;
 204   ep->next = symbol_stack;
 205   symbol_stack = ep;
 206 }
 207
 208 static symbol *
 209 symbol_pop (void)
 210 {
 211   struct symbol_stack_entry *ep = symbol_stack;
 212   symbol *p;
 213   if (ep == NULL)
 214     return NULL;
 215   p = ep->value;
 216   symbol_stack = ep->next;
 217   obstack_free (&symbol_stack_obstack, ep);
 218   return p;
 219 }
 220
 221 static void
 222 file_push (file *p)
 223 {
 224   struct file_stack_entry *ep;
 225
 226   if (p->tweaking)
 227     return;
 228
 229   ep = XOBNEW (&file_stack_obstack, struct file_stack_entry);
 230   ep->value = p;
 231   ep->next = file_stack;
 232   file_stack = ep;
 233   p->tweaking = 1;
 234 }
 235
 236 static file *
 237 file_pop (void)
 238 {
 239   struct file_stack_entry *ep = file_stack;
 240   file *p;
 241   if (ep == NULL)
 242     return NULL;
 243   p = ep->value;
 244   file_stack = ep->next;
 245   obstack_free (&file_stack_obstack, ep);
 246   p->tweaking = 0;
 247   return p;
 248 }
 249 \f
 250 /* Other machinery.  */
 251
 252 /* Initialize the tlink machinery.  Called from do_tlink.  */
 253
 254 static void
 255 tlink_init (void)
 256 {
 257   const char *p;
 258
 259   symbol_table = htab_create (500, hash_string_hash, hash_string_eq,
 260                               NULL);
 261   file_table = htab_create (500, hash_string_hash, hash_string_eq,
 262                             NULL);
 263   demangled_table = htab_create (500, hash_string_hash, hash_string_eq,
 264                                  NULL);
 265
 266   obstack_begin (&symbol_stack_obstack, 0);
 267   obstack_begin (&file_stack_obstack, 0);
 268
 269   p = getenv ("TLINK_VERBOSE");
 270   if (p)
 271     tlink_verbose = atoi (p);
 272   else
 273     {
 274       tlink_verbose = 1;
 275       if (verbose)
 276         tlink_verbose = 2;
 277       if (debug)
 278         tlink_verbose = 3;
 279     }
 280
 281   initial_cwd = getpwd ();
 282 }
 283
 284 static int
 285 tlink_execute (const char *prog, char **argv, const char *outname,
 286                const char *errname, bool use_atfile)
 287 {
 288   struct pex_obj *pex;
 289
 290   pex = collect_execute (prog, argv, outname, errname,
 291                          PEX_LAST | PEX_SEARCH, use_atfile);
 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         {
 439           line[0] = 'C';
 440           sym->chosen = 1;
 441         }
 442       else
 443         {
 444           line[0] = 'O';
 445           sym->chosen = 0;
 446         }
 447     }
 448 }
 449
 450 /* Update the repo files for each of the object files we have adjusted and
 451    recompile.  */
 452
 453 static int
 454 recompile_files (void)
 455 {
 456   file *f;
 457
 458   putenv (xstrdup ("COMPILER_PATH="));
 459   putenv (xstrdup ("LIBRARY_PATH="));
 460
 461   while ((f = file_pop ()) != NULL)
 462     {
 463       char *line;
 464       const char *p, *q;
 465       char **argv;
 466       struct obstack arg_stack;
 467       FILE *stream = fopen (f->key, "r");
 468       const char *const outname = frob_extension (f->key, ".rnw");
 469       FILE *output = fopen (outname, "w");
 470
 471       while ((line = tfgets (stream)) != NULL)
 472         {
 473           switch (line[0])
 474             {
 475             case 'C':
 476             case 'O':
 477               maybe_tweak (line, f);
 478             }
 479           fprintf (output, "%s\n", line);
 480         }
 481       fclose (stream);
 482       fclose (output);
 483       /* On Windows "rename" returns -1 and sets ERRNO to EACCESS if
 484          the new file name already exists.  Therefore, we explicitly
 485          remove the old file first.  */
 486       if (remove (f->key) == -1)
 487         fatal_error (input_location,
 488                      "removing repository file %qs: %m", f->key);
 489       if (rename (outname, f->key) == -1)
 490         fatal_error (input_location, "renaming repository file from "
 491                      "%qs to %qs: %m", outname, f->key);
 492
 493       if (!f->args)
 494         {
 495           error ("repository file %qs does not contain command-line "
 496                  "arguments", f->key);
 497           return 0;
 498         }
 499
 500       /* Build a null-terminated argv array suitable for
 501          tlink_execute().  Manipulate arguments on the arg_stack while
 502          building argv on the temporary_obstack.  */
 503
 504       obstack_init (&arg_stack);
 505       obstack_ptr_grow (&temporary_obstack, c_file_name);
 506
 507       for (p = f->args; *p != '\0'; p = q + 1)
 508         {
 509           /* Arguments are delimited by single-quotes.  Find the
 510              opening quote.  */
 511           p = strchr (p, '\'');
 512           if (!p)
 513             goto done;
 514
 515           /* Find the closing quote.  */
 516           q = strchr (p + 1, '\'');
 517           if (!q)
 518             goto done;
 519
 520           obstack_grow (&arg_stack, p + 1, q - (p + 1));
 521
 522           /* Replace '\'' with '.  This is how set_collect_gcc_options
 523              encodes a single-quote.  */
 524           while (q[1] == '\\' && q[2] == '\'' && q[3] == '\'')
 525             {
 526               const char *r;
 527
 528               r = strchr (q + 4, '\'');
 529               if (!r)
 530                 goto done;
 531
 532               obstack_grow (&arg_stack, q + 3, r - (q + 3));
 533               q = r;
 534             }
 535
 536           obstack_1grow (&arg_stack, '\0');
 537           obstack_ptr_grow (&temporary_obstack, obstack_finish (&arg_stack));
 538         }
 539     done:
 540       obstack_ptr_grow (&temporary_obstack, f->main);
 541       obstack_ptr_grow (&temporary_obstack, NULL);
 542       argv = XOBFINISH (&temporary_obstack, char **);
 543
 544       if (tlink_verbose)
 545         fprintf (stderr, _("collect: recompiling %s\n"), f->main);
 546
 547       if (chdir (f->dir) != 0
 548           || tlink_execute (c_file_name, argv, NULL, NULL, false) != 0
 549           || chdir (initial_cwd) != 0)
 550         return 0;
 551
 552       read_repo_file (f);
 553
 554       obstack_free (&arg_stack, NULL);
 555       obstack_free (&temporary_obstack, temporary_firstobj);
 556     }
 557   return 1;
 558 }
 559
 560 /* The first phase of processing: determine which object files have
 561    .rpo files associated with them, and read in the information.  */
 562
 563 static int
 564 read_repo_files (char **object_lst)
 565 {
 566   char **object = object_lst;
 567
 568   for (; *object; object++)
 569     {
 570       const char *p;
 571       file *f;
 572
 573       /* Don't bother trying for ld flags.  */
 574       if (*object[0] == '-')
 575         continue;
 576
 577       p = frob_extension (*object, ".rpo");
 578
 579       if (! file_exists (p))
 580         continue;
 581
 582       f = file_hash_lookup (p);
 583
 584       read_repo_file (f);
 585     }
 586
 587   if (file_stack != NULL && ! recompile_files ())
 588     return 0;
 589
 590   return (symbol_stack != NULL);
 591 }
 592
 593 /* Add the demangled forms of any new symbols to the hash table.  */
 594
 595 static void
 596 demangle_new_symbols (void)
 597 {
 598   symbol *sym;
 599
 600   while ((sym = symbol_pop ()) != NULL)
 601     {
 602       demangled *dem;
 603       const char *p = cplus_demangle (sym->key, DMGL_PARAMS | DMGL_ANSI);
 604
 605       if (! p)
 606         continue;
 607
 608       dem = demangled_hash_lookup (p, true);
 609       dem->mangled.safe_push (sym->key);
 610     }
 611 }
 612
 613 /* We want to tweak symbol SYM.  Return true if all is well, false on
 614    error.  */
 615
 616 static bool
 617 start_tweaking (symbol *sym)
 618 {
 619   if (sym && sym->tweaked)
 620     {
 621       error ("%qs was assigned to %qs, but was not defined "
 622              "during recompilation, or vice versa",
 623              sym->key, sym->file->key);
 624       return 0;
 625     }
 626   if (sym && !sym->tweaking)
 627     {
 628       if (tlink_verbose >= 2)
 629         fprintf (stderr, _("collect: tweaking %s in %s\n"),
 630                  sym->key, sym->file->key);
 631       sym->tweaking = 1;
 632       file_push (sym->file);
 633     }
 634   return true;
 635 }
 636
 637 /* Step through the output of the linker, in the file named FNAME, and
 638    adjust the settings for each symbol encountered.  */
 639
 640 static int
 641 scan_linker_output (const char *fname)
 642 {
 643   FILE *stream = fopen (fname, "r");
 644   char *line;
 645   int skip_next_in_line = 0;
 646
 647   while ((line = tfgets (stream)) != NULL)
 648     {
 649       char *p = line, *q;
 650       symbol *sym;
 651       demangled *dem = 0;
 652       int end;
 653       int ok = 0;
 654       unsigned ix;
 655       str s;
 656
 657       /* On darwin9, we might have to skip " in " lines as well.  */
 658       if (skip_next_in_line
 659           && strstr (p, " in "))
 660           continue;
 661       skip_next_in_line = 0;
 662
 663       while (*p && ISSPACE ((unsigned char) *p))
 664         ++p;
 665
 666       if (! *p)
 667         continue;
 668
 669       for (q = p; *q && ! ISSPACE ((unsigned char) *q); ++q)
 670         ;
 671
 672       /* Try the first word on the line.  */
 673       if (*p == '.')
 674         ++p;
 675       if (!strncmp (p, USER_LABEL_PREFIX, strlen (USER_LABEL_PREFIX)))
 676         p += strlen (USER_LABEL_PREFIX);
 677
 678       end = ! *q;
 679       *q = 0;
 680       sym = symbol_hash_lookup (p, false);
 681
 682       /* Some SVR4 linkers produce messages like
 683          ld: 0711-317 ERROR: Undefined symbol: .g__t3foo1Zi
 684          */
 685       if (! sym && ! end && strstr (q + 1, "Undefined symbol: "))
 686         {
 687           char *p = strrchr (q + 1, ' ');
 688           p++;
 689           if (*p == '.')
 690             p++;
 691           if (!strncmp (p, USER_LABEL_PREFIX, strlen (USER_LABEL_PREFIX)))
 692             p += strlen (USER_LABEL_PREFIX);
 693           sym = symbol_hash_lookup (p, false);
 694         }
 695
 696       if (! sym && ! end)
 697         /* Try a mangled name in quotes.  */
 698         {
 699           char *oldq = q + 1;
 700           q = 0;
 701
 702           /* On darwin9, we look for "foo" referenced from:\n\(.* in .*\n\)*  */
 703           if (strcmp (oldq, "referenced from:") == 0)
 704             {
 705               /* We have to remember that we found a symbol to tweak.  */
 706               ok = 1;
 707
 708               /* We actually want to start from the first word on the
 709                  line.  */
 710               oldq = p;
 711
 712               /* Since the format is multiline, we have to skip
 713                  following lines with " in ".  */
 714               skip_next_in_line = 1;
 715             }
 716
 717           /* First try `GNU style'.  */
 718           p = strchr (oldq, '`');
 719           if (p)
 720             p++, q = strchr (p, '\'');
 721           /* Then try "double quotes".  */
 722           else if (p = strchr (oldq, '"'), p)
 723             p++, q = strchr (p, '"');
 724           /* Then try 'single quotes'.  */
 725           else if (p = strchr (oldq, '\''), p)
 726             p++, q = strchr (p, '\'');
 727           else {
 728             /* Then try entire line.  */
 729             q = strchr (oldq, 0);
 730             if (q != oldq)
 731               p = (char *)oldq;
 732           }
 733
 734           if (p)
 735             {
 736               /* Don't let the strstr's below see the demangled name; we
 737                  might get spurious matches.  */
 738               p[-1] = '\0';
 739
 740               /* powerpc64-linux references .foo when calling function foo.  */
 741               if (*p == '.')
 742                 p++;
 743             }
 744
 745           /* We need to check for certain error keywords here, or we would
 746              mistakenly use GNU ld's "In function `foo':" message.  */
 747           if (q && (ok
 748                     || strstr (oldq, "ndefined")
 749                     || strstr (oldq, "nresolved")
 750                     || strstr (oldq, "nsatisfied")
 751                     || strstr (oldq, "ultiple")))
 752             {
 753               *q = 0;
 754               dem = demangled_hash_lookup (p, false);
 755               if (!dem)
 756                 {
 757                   if (!strncmp (p, USER_LABEL_PREFIX,
 758                                 strlen (USER_LABEL_PREFIX)))
 759                     p += strlen (USER_LABEL_PREFIX);
 760                   sym = symbol_hash_lookup (p, false);
 761                 }
 762             }
 763         }
 764
 765       if (dem)
 766         {
 767           /* We found a demangled name.  If this is the name of a
 768              constructor or destructor, there can be several mangled names
 769              that match it, so choose or unchoose all of them.  If some are
 770              chosen and some not, leave the later ones that don't match
 771              alone for now; either this will cause the link to succeed, or
 772              on the next attempt we will switch all of them the other way
 773              and that will cause it to succeed.  */
 774           int chosen = 0;
 775           int len = dem->mangled.length ();
 776           ok = true;
 777           FOR_EACH_VEC_ELT (dem->mangled, ix, s)
 778             {
 779               sym = symbol_hash_lookup (s, false);
 780               if (ix == 0)
 781                 chosen = sym->chosen;
 782               else if (sym->chosen != chosen)
 783                 /* Mismatch.  */
 784                 continue;
 785               /* Avoid an error about re-tweaking when we guess wrong in
 786                  the case of mismatch.  */
 787               if (len > 1)
 788                 sym->tweaked = false;
 789               ok = start_tweaking (sym);
 790             }
 791         }
 792       else
 793         ok = start_tweaking (sym);
 794
 795       obstack_free (&temporary_obstack, temporary_firstobj);
 796
 797       if (!ok)
 798         {
 799           fclose (stream);
 800           return 0;
 801         }
 802     }
 803
 804   fclose (stream);
 805   return (file_stack != NULL);
 806 }
 807
 808 /* Entry point for tlink.  Called from main in collect2.c.
 809
 810    Iteratively try to provide definitions for all the unresolved symbols
 811    mentioned in the linker error messages.
 812
 813    LD_ARGV is an array of arguments for the linker.
 814    OBJECT_LST is an array of object files that we may be able to recompile
 815      to provide missing definitions.  Currently ignored.  */
 816
 817 void
 818 do_tlink (char **ld_argv, char **object_lst ATTRIBUTE_UNUSED)
 819 {
 820   int ret = tlink_execute ("ld", ld_argv, ldout, lderrout,
 821                            HAVE_GNU_LD && at_file_supplied);
 822
 823   tlink_init ();
 824
 825   if (ret)
 826     {
 827       int i = 0;
 828
 829       /* Until collect does a better job of figuring out which are object
 830          files, assume that everything on the command line could be.  */
 831       if (read_repo_files (ld_argv))
 832         while (ret && i++ < MAX_ITERATIONS)
 833           {
 834             if (tlink_verbose >= 3)
 835               {
 836                 dump_ld_file (ldout, stdout);
 837                 dump_ld_file (lderrout, stderr);
 838               }
 839             demangle_new_symbols ();
 840             if (! scan_linker_output (ldout)
 841                 && ! scan_linker_output (lderrout))
 842               break;
 843             if (! recompile_files ())
 844               break;
 845             if (tlink_verbose)
 846               fprintf (stderr, _("collect: relinking\n"));
 847             ret = tlink_execute ("ld", ld_argv, ldout, lderrout,
 848                                  HAVE_GNU_LD && at_file_supplied);
 849           }
 850     }
 851
 852   dump_ld_file (ldout, stdout);
 853   unlink (ldout);
 854   dump_ld_file (lderrout, stderr);
 855   unlink (lderrout);
 856   if (ret)
 857     {
 858       error ("ld returned %d exit status", ret);
 859       exit (ret);
 860     }
 861   else
 862     {
 863       /* We have just successfully produced an output file, so assume that we
 864          may unlink it if need be for now on.  */
 865       may_unlink_output_file = true;
 866     }
 867 }