2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005
4 Free Software Foundation, Inc.
5 Written by Steve Chamberlain of Cygnus Support.
7 This file is part of GLD, the Gnu Linker.
9 GLD is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2, or (at your option)
14 GLD is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GLD; see the file COPYING. If not, write to the Free
21 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
27 #include "libiberty.h"
42 %A section name from a section
43 %B filename from a bfd
44 %C clever filename:linenumber with function
45 %D like %C, but no function name
46 %E current bfd error or errno
48 %G like %D, but only function name
49 %I filename from a lang_input_statement_type
51 %R info about a relent
52 %S print script file and linenumber
55 %W hex bfd_vma with 0x with no leading zeros taking up 8 spaces
56 %X no object output, fail return
57 %d integer, like printf
58 %s arbitrary string, like printf
59 %u integer, like printf
60 %v hex bfd_vma, no leading zeros
64 vfinfo (FILE *fp, const char *fmt, va_list arg, bfd_boolean is_warning)
66 bfd_boolean fatal = FALSE;
70 while (*fmt != '%' && *fmt != '\0')
82 fprintf (fp, "%%%c", fmt[-1]);
91 /* no object output, fail return */
92 config.make_executable = FALSE;
98 bfd_vma value = va_arg (arg, bfd_vma);
99 fprintf_vma (fp, value);
104 /* hex bfd_vma, no leading zeros */
108 bfd_vma value = va_arg (arg, bfd_vma);
109 sprintf_vma (p, value);
119 /* hex bfd_vma with 0x with no leading zeroes taking up
127 value = va_arg (arg, bfd_vma);
128 sprintf_vma (buf, value);
129 for (p = buf; *p == '0'; ++p)
139 fprintf (fp, "0x%s", p);
146 const char *name = va_arg (arg, const char *);
148 if (name == NULL || *name == 0)
149 fprintf (fp, _("no symbol"));
150 else if (! demangling)
151 fprintf (fp, "%s", name);
156 demangled = demangle (name);
157 fprintf (fp, "%s", demangled);
164 /* section name from a section */
166 asection *sec = va_arg (arg, asection *);
167 bfd *abfd = sec->owner;
168 const char *group = NULL;
169 struct coff_comdat_info *ci;
171 fprintf (fp, "%s", sec->name);
173 && bfd_get_flavour (abfd) == bfd_target_elf_flavour
174 && elf_next_in_group (sec) != NULL
175 && (sec->flags & SEC_GROUP) == 0)
176 group = elf_group_name (sec);
177 else if (abfd != NULL
178 && bfd_get_flavour (abfd) == bfd_target_coff_flavour
179 && (ci = bfd_coff_get_comdat_section (sec->owner,
183 fprintf (fp, "[%s]", group);
188 /* filename from a bfd */
190 bfd *abfd = va_arg (arg, bfd *);
193 fprintf (fp, "%s generated", program_name);
194 else if (abfd->my_archive)
195 fprintf (fp, "%s(%s)", abfd->my_archive->filename,
198 fprintf (fp, "%s", abfd->filename);
203 /* Error is fatal. */
208 /* Print program name. */
209 fprintf (fp, "%s", program_name);
213 /* current bfd error or errno */
214 fprintf (fp, "%s", bfd_errmsg (bfd_get_error ()));
218 /* filename from a lang_input_statement_type */
220 lang_input_statement_type *i;
222 i = va_arg (arg, lang_input_statement_type *);
223 if (bfd_my_archive (i->the_bfd) != NULL)
225 bfd_get_filename (bfd_my_archive (i->the_bfd)));
226 fprintf (fp, "%s", i->local_sym_name);
227 if (bfd_my_archive (i->the_bfd) == NULL
228 && strcmp (i->local_sym_name, i->filename) != 0)
229 fprintf (fp, " (%s)", i->filename);
234 /* Print script file and linenumber. */
236 fprintf (fp, "--defsym %s", lex_string);
237 else if (ldfile_input_filename != NULL)
238 fprintf (fp, "%s:%u", ldfile_input_filename, lineno);
240 fprintf (fp, _("built in linker script:%u"), lineno);
244 /* Print all that's interesting about a relent. */
246 arelent *relent = va_arg (arg, arelent *);
248 lfinfo (fp, "%s+0x%v (type %s)",
249 (*(relent->sym_ptr_ptr))->name,
251 relent->howto->name);
258 /* Clever filename:linenumber with function name if possible.
259 The arguments are a BFD, a section, and an offset. */
261 static bfd *last_bfd;
262 static char *last_file = NULL;
263 static char *last_function = NULL;
267 lang_input_statement_type *entry;
269 const char *filename;
270 const char *functionname;
271 unsigned int linenumber;
272 bfd_boolean discard_last;
274 abfd = va_arg (arg, bfd *);
275 section = va_arg (arg, asection *);
276 offset = va_arg (arg, bfd_vma);
285 entry = (lang_input_statement_type *) abfd->usrdata;
286 if (entry != (lang_input_statement_type *) NULL
287 && entry->asymbols != (asymbol **) NULL)
288 asymbols = entry->asymbols;
294 symsize = bfd_get_symtab_upper_bound (abfd);
296 einfo (_("%B%F: could not read symbols\n"), abfd);
297 asymbols = xmalloc (symsize);
298 sym_count = bfd_canonicalize_symtab (abfd, asymbols);
300 einfo (_("%B%F: could not read symbols\n"), abfd);
301 if (entry != (lang_input_statement_type *) NULL)
303 entry->asymbols = asymbols;
304 entry->symbol_count = sym_count;
309 /* The GNU Coding Standard requires that error messages
312 source-file-name:lineno: message
314 We do not always have a line number available so if
315 we cannot find them we print out the section name and
319 && bfd_find_nearest_line (abfd, section, asymbols, offset,
320 &filename, &functionname,
323 if (functionname != NULL && fmt[-1] == 'C')
325 /* Detect the case where we are printing out a
326 message for the same function as the last
327 call to vinfo ("%C"). In this situation do
328 not print out the ABFD filename or the
329 function name again. Note - we do still
330 print out the source filename, as this will
331 allow programs that parse the linker's output
332 (eg emacs) to correctly locate multiple
333 errors in the same source file. */
336 || last_function == NULL
339 && strcmp (last_file, filename) != 0)
340 || strcmp (last_function, functionname) != 0)
342 lfinfo (fp, _("%B: In function `%T'"),
346 if (last_file != NULL)
350 last_file = xstrdup (filename);
351 if (last_function != NULL)
352 free (last_function);
353 last_function = xstrdup (functionname);
355 discard_last = FALSE;
358 lfinfo (fp, "%B", abfd);
360 if (filename != NULL)
361 fprintf (fp, ":%s", filename);
363 if (functionname != NULL && fmt[-1] == 'G')
364 lfinfo (fp, ":%T", functionname);
365 else if (filename != NULL)
368 fprintf (fp, ":%u", linenumber);
370 lfinfo (fp, ":(%A+0x%v)", section, offset);
374 lfinfo (fp, "%B:(%A+0x%v)", abfd, section, offset);
376 if (asymbols != NULL && entry == NULL)
382 if (last_file != NULL)
387 if (last_function != NULL)
389 free (last_function);
390 last_function = NULL;
397 /* arbitrary string, like printf */
398 fprintf (fp, "%s", va_arg (arg, char *));
402 /* integer, like printf */
403 fprintf (fp, "%d", va_arg (arg, int));
407 /* unsigned integer, like printf */
408 fprintf (fp, "%u", va_arg (arg, unsigned int));
414 if (is_warning && config.fatal_warnings)
415 config.make_executable = FALSE;
421 /* Wrapper around cplus_demangle. Strips leading underscores and
422 other such chars that would otherwise confuse the demangler. */
425 demangle (const char *name)
430 if (output_bfd != NULL
431 && bfd_get_symbol_leading_char (output_bfd) == name[0])
434 /* This is a hack for better error reporting on XCOFF, PowerPC64-ELF
435 or the MS PE format. These formats have a number of leading '.'s
436 on at least some symbols, so we remove all dots to avoid
437 confusing the demangler. */
442 res = cplus_demangle (p, DMGL_ANSI | DMGL_PARAMS);
445 size_t dots = p - name;
447 /* Now put back any stripped dots. */
450 size_t len = strlen (res) + 1;
451 char *add_dots = xmalloc (len + dots);
453 memcpy (add_dots, name, dots);
454 memcpy (add_dots + dots, res, len);
460 return xstrdup (name);
463 /* Format info message and print on stdout. */
465 /* (You would think this should be called just "info", but then you
466 would be hosed by LynxOS, which defines that name in its libc.) */
469 info_msg (const char *fmt, ...)
474 vfinfo (stdout, fmt, arg, FALSE);
478 /* ('e' for error.) Format info message and print on stderr. */
481 einfo (const char *fmt, ...)
486 vfinfo (stderr, fmt, arg, TRUE);
491 info_assert (const char *file, unsigned int line)
493 einfo (_("%F%P: internal error %s %d\n"), file, line);
496 /* ('m' for map) Format info message and print on map. */
499 minfo (const char *fmt, ...)
504 vfinfo (config.map_file, fmt, arg, FALSE);
509 lfinfo (FILE *file, const char *fmt, ...)
514 vfinfo (file, fmt, arg, FALSE);
518 /* Functions to print the link map. */
523 fprintf (config.map_file, " ");
529 fprintf (config.map_file, "\n");
532 /* A more or less friendly abort message. In ld.h abort is defined to
533 call this function. */
536 ld_abort (const char *file, int line, const char *fn)
539 einfo (_("%P: internal error: aborting at %s line %d in %s\n"),
542 einfo (_("%P: internal error: aborting at %s line %d\n"),
544 einfo (_("%P%F: please report this bug\n"));