2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007
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
59 %lu unsigned long, like printf
60 %s arbitrary string, like printf
61 %u integer, like printf
62 %v hex bfd_vma, no leading zeros
66 vfinfo (FILE *fp, const char *fmt, va_list arg, bfd_boolean is_warning)
68 bfd_boolean fatal = FALSE;
72 while (*fmt != '%' && *fmt != '\0')
89 /* no object output, fail return */
90 config.make_executable = FALSE;
96 bfd_vma value = va_arg (arg, bfd_vma);
97 fprintf_vma (fp, value);
102 /* hex bfd_vma, no leading zeros */
106 bfd_vma value = va_arg (arg, bfd_vma);
107 sprintf_vma (p, value);
117 /* hex bfd_vma with 0x with no leading zeroes taking up
125 value = va_arg (arg, bfd_vma);
126 sprintf_vma (buf, value);
127 for (p = buf; *p == '0'; ++p)
137 fprintf (fp, "0x%s", p);
144 const char *name = va_arg (arg, const char *);
146 if (name == NULL || *name == 0)
148 fprintf (fp, _("no symbol"));
155 demangled = bfd_demangle (output_bfd, name,
156 DMGL_ANSI | DMGL_PARAMS);
157 if (demangled != NULL)
159 fprintf (fp, "%s", demangled);
164 fprintf (fp, "%s", name);
169 /* section name from a section */
171 asection *sec = va_arg (arg, asection *);
172 bfd *abfd = sec->owner;
173 const char *group = NULL;
174 struct coff_comdat_info *ci;
176 fprintf (fp, "%s", sec->name);
178 && bfd_get_flavour (abfd) == bfd_target_elf_flavour
179 && elf_next_in_group (sec) != NULL
180 && (sec->flags & SEC_GROUP) == 0)
181 group = elf_group_name (sec);
182 else if (abfd != NULL
183 && bfd_get_flavour (abfd) == bfd_target_coff_flavour
184 && (ci = bfd_coff_get_comdat_section (sec->owner,
188 fprintf (fp, "[%s]", group);
193 /* filename from a bfd */
195 bfd *abfd = va_arg (arg, bfd *);
198 fprintf (fp, "%s generated", program_name);
199 else if (abfd->my_archive)
200 fprintf (fp, "%s(%s)", abfd->my_archive->filename,
203 fprintf (fp, "%s", abfd->filename);
208 /* Error is fatal. */
213 /* Print program name. */
214 fprintf (fp, "%s", program_name);
218 /* current bfd error or errno */
219 fprintf (fp, "%s", bfd_errmsg (bfd_get_error ()));
223 /* filename from a lang_input_statement_type */
225 lang_input_statement_type *i;
227 i = va_arg (arg, lang_input_statement_type *);
228 if (bfd_my_archive (i->the_bfd) != NULL)
230 bfd_get_filename (bfd_my_archive (i->the_bfd)));
231 fprintf (fp, "%s", i->local_sym_name);
232 if (bfd_my_archive (i->the_bfd) == NULL
233 && strcmp (i->local_sym_name, i->filename) != 0)
234 fprintf (fp, " (%s)", i->filename);
239 /* Print script file and linenumber. */
241 fprintf (fp, "--defsym %s", lex_string);
242 else if (ldfile_input_filename != NULL)
243 fprintf (fp, "%s:%u", ldfile_input_filename, lineno);
245 fprintf (fp, _("built in linker script:%u"), lineno);
249 /* Print all that's interesting about a relent. */
251 arelent *relent = va_arg (arg, arelent *);
253 lfinfo (fp, "%s+0x%v (type %s)",
254 (*(relent->sym_ptr_ptr))->name,
256 relent->howto->name);
263 /* Clever filename:linenumber with function name if possible.
264 The arguments are a BFD, a section, and an offset. */
266 static bfd *last_bfd;
267 static char *last_file = NULL;
268 static char *last_function = NULL;
272 lang_input_statement_type *entry;
274 const char *filename;
275 const char *functionname;
276 unsigned int linenumber;
277 bfd_boolean discard_last;
279 abfd = va_arg (arg, bfd *);
280 section = va_arg (arg, asection *);
281 offset = va_arg (arg, bfd_vma);
290 entry = (lang_input_statement_type *) abfd->usrdata;
291 if (entry != (lang_input_statement_type *) NULL
292 && entry->asymbols != (asymbol **) NULL)
293 asymbols = entry->asymbols;
299 symsize = bfd_get_symtab_upper_bound (abfd);
301 einfo (_("%B%F: could not read symbols\n"), abfd);
302 asymbols = xmalloc (symsize);
303 sym_count = bfd_canonicalize_symtab (abfd, asymbols);
305 einfo (_("%B%F: could not read symbols\n"), abfd);
306 if (entry != (lang_input_statement_type *) NULL)
308 entry->asymbols = asymbols;
309 entry->symbol_count = sym_count;
314 /* The GNU Coding Standard requires that error messages
317 source-file-name:lineno: message
319 We do not always have a line number available so if
320 we cannot find them we print out the section name and
324 && bfd_find_nearest_line (abfd, section, asymbols, offset,
325 &filename, &functionname,
328 if (functionname != NULL && fmt[-1] == 'C')
330 /* Detect the case where we are printing out a
331 message for the same function as the last
332 call to vinfo ("%C"). In this situation do
333 not print out the ABFD filename or the
334 function name again. Note - we do still
335 print out the source filename, as this will
336 allow programs that parse the linker's output
337 (eg emacs) to correctly locate multiple
338 errors in the same source file. */
341 || last_function == NULL
344 && strcmp (last_file, filename) != 0)
345 || strcmp (last_function, functionname) != 0)
347 lfinfo (fp, _("%B: In function `%T':\n"),
351 if (last_file != NULL)
355 last_file = xstrdup (filename);
356 if (last_function != NULL)
357 free (last_function);
358 last_function = xstrdup (functionname);
360 discard_last = FALSE;
363 lfinfo (fp, "%B:", abfd);
365 if (filename != NULL)
366 fprintf (fp, "%s:", filename);
368 if (functionname != NULL && fmt[-1] == 'G')
369 lfinfo (fp, "%T", functionname);
370 else if (filename != NULL && linenumber != 0)
371 fprintf (fp, "%u", linenumber);
373 lfinfo (fp, "(%A+0x%v)", section, offset);
376 lfinfo (fp, "%B:(%A+0x%v)", abfd, section, offset);
378 if (asymbols != NULL && entry == NULL)
384 if (last_file != NULL)
389 if (last_function != NULL)
391 free (last_function);
392 last_function = NULL;
399 /* arbitrary string, like printf */
400 fprintf (fp, "%s", va_arg (arg, char *));
404 /* integer, like printf */
405 fprintf (fp, "%d", va_arg (arg, int));
409 /* unsigned integer, like printf */
410 fprintf (fp, "%u", va_arg (arg, unsigned int));
416 fprintf (fp, "%ld", va_arg (arg, long));
420 else if (*fmt == 'u')
422 fprintf (fp, "%lu", va_arg (arg, unsigned long));
429 fprintf (fp, "%%%c", fmt[-1]);
435 if (is_warning && config.fatal_warnings)
436 config.make_executable = FALSE;
442 /* Format info message and print on stdout. */
444 /* (You would think this should be called just "info", but then you
445 would be hosed by LynxOS, which defines that name in its libc.) */
448 info_msg (const char *fmt, ...)
453 vfinfo (stdout, fmt, arg, FALSE);
457 /* ('e' for error.) Format info message and print on stderr. */
460 einfo (const char *fmt, ...)
465 vfinfo (stderr, fmt, arg, TRUE);
470 info_assert (const char *file, unsigned int line)
472 einfo (_("%F%P: internal error %s %d\n"), file, line);
475 /* ('m' for map) Format info message and print on map. */
478 minfo (const char *fmt, ...)
483 vfinfo (config.map_file, fmt, arg, FALSE);
488 lfinfo (FILE *file, const char *fmt, ...)
493 vfinfo (file, fmt, arg, FALSE);
497 /* Functions to print the link map. */
502 fprintf (config.map_file, " ");
508 fprintf (config.map_file, "\n");
511 /* A more or less friendly abort message. In ld.h abort is defined to
512 call this function. */
515 ld_abort (const char *file, int line, const char *fn)
518 einfo (_("%P: internal error: aborting at %s line %d in %s\n"),
521 einfo (_("%P: internal error: aborting at %s line %d\n"),
523 einfo (_("%P%F: please report this bug\n"));