2 Copyright (C) 1991-2019 Free Software Foundation, Inc.
3 Written by Steve Chamberlain of Cygnus Support.
5 This file is part of the GNU Binutils.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
25 #include "libiberty.h"
27 #include "safe-ctype.h"
28 #include "filenames.h"
42 %C clever filename:linenumber with function
43 %D like %C, but no function name
44 %E current bfd error or errno
46 %G like %D, but only function name
47 %H like %C but in addition emit section+offset
50 %W hex bfd_vma with 0x with no leading zeros taking up 8 spaces
51 %X no object output, fail return
52 %d integer, like printf
54 %lu unsigned long, like printf
55 %p native (host) void* pointer, like printf
56 %pA section name from a section
57 %pB filename from a bfd
58 %pI filename from a lang_input_statement_type
59 %pR info about a relent
60 %pS print script file and linenumber from etree_type.
62 %s arbitrary string, like printf
63 %u integer, like printf
64 %v hex bfd_vma, no leading zeros
68 vfinfo (FILE *fp
, const char *fmt
, va_list ap
, bfd_boolean is_warning
)
70 bfd_boolean fatal
= FALSE
;
73 unsigned int arg_count
= 0;
97 for (arg_no
= 0; arg_no
< sizeof (args
) / sizeof (args
[0]); arg_no
++)
98 args
[arg_no
].type
= Bad
;
102 while (*scan
!= '\0')
104 while (*scan
!= '%' && *scan
!= '\0')
112 if (*scan
!= '0' && ISDIGIT (*scan
) && scan
[1] == '$')
114 arg_no
= *scan
- '1';
136 if (*scan
== 'A' || *scan
== 'B' || *scan
== 'I'
137 || *scan
== 'R' || *scan
== 'S' || *scan
== 'T')
155 if (*scan
== 'd' || *scan
== 'u')
167 if (arg_no
>= sizeof (args
) / sizeof (args
[0]))
169 args
[arg_no
].type
= arg_type
;
175 for (arg_no
= 0; arg_no
< arg_count
; arg_no
++)
177 switch (args
[arg_no
].type
)
180 args
[arg_no
].i
= va_arg (ap
, int);
183 args
[arg_no
].l
= va_arg (ap
, long);
186 args
[arg_no
].p
= va_arg (ap
, void *);
189 args
[arg_no
].v
= va_arg (ap
, bfd_vma
);
192 args
[arg_no
].reladdr
.abfd
= va_arg (ap
, bfd
*);
193 args
[arg_no
].reladdr
.sec
= va_arg (ap
, asection
*);
194 args
[arg_no
].reladdr
.off
= va_arg (ap
, bfd_vma
);
204 const char *str
= fmt
;
205 while (*fmt
!= '%' && *fmt
!= '\0')
208 if (fwrite (str
, 1, fmt
- str
, fp
))
218 if (*fmt
!= '0' && ISDIGIT (*fmt
) && fmt
[1] == '$')
236 /* no object output, fail return */
237 config
.make_executable
= FALSE
;
243 bfd_vma value
= args
[arg_no
].v
;
245 fprintf_vma (fp
, value
);
250 /* hex bfd_vma, no leading zeros */
254 bfd_vma value
= args
[arg_no
].v
;
256 sprintf_vma (p
, value
);
266 /* hex bfd_vma with 0x with no leading zeroes taking up
274 value
= args
[arg_no
].v
;
276 sprintf_vma (buf
, value
);
277 for (p
= buf
; *p
== '0'; ++p
)
287 fprintf (fp
, "0x%s", p
);
292 /* Error is fatal. */
297 /* Print program name. */
298 fprintf (fp
, "%s", program_name
);
302 /* current bfd error or errno */
303 fprintf (fp
, "%s", bfd_errmsg (bfd_get_error ()));
310 /* Clever filename:linenumber with function name if possible.
311 The arguments are a BFD, a section, and an offset. */
313 static bfd
*last_bfd
;
314 static char *last_file
;
315 static char *last_function
;
319 asymbol
**asymbols
= NULL
;
320 const char *filename
;
321 const char *functionname
;
322 unsigned int linenumber
;
323 bfd_boolean discard_last
;
326 abfd
= args
[arg_no
].reladdr
.abfd
;
327 section
= args
[arg_no
].reladdr
.sec
;
328 offset
= args
[arg_no
].reladdr
.off
;
333 if (!bfd_generic_link_read_symbols (abfd
))
334 einfo (_("%F%P: %pB: could not read symbols: %E\n"), abfd
);
336 asymbols
= bfd_get_outsymbols (abfd
);
339 /* The GNU Coding Standard requires that error messages
342 source-file-name:lineno: message
344 We do not always have a line number available so if
345 we cannot find them we print out the section name and
349 && bfd_find_nearest_line (abfd
, section
, asymbols
, offset
,
350 &filename
, &functionname
,
353 if (functionname
!= NULL
354 && (fmt
[-1] == 'C' || fmt
[-1] == 'H'))
356 /* Detect the case where we are printing out a
357 message for the same function as the last
358 call to vinfo ("%C"). In this situation do
359 not print out the ABFD filename or the
360 function name again. Note - we do still
361 print out the source filename, as this will
362 allow programs that parse the linker's output
363 (eg emacs) to correctly locate multiple
364 errors in the same source file. */
366 || last_function
== NULL
368 || (last_file
== NULL
) != (filename
== NULL
)
370 && filename_cmp (last_file
, filename
) != 0)
371 || strcmp (last_function
, functionname
) != 0)
373 lfinfo (fp
, _("%pB: in function `%pT':\n"),
377 if (last_file
!= NULL
)
381 last_file
= xstrdup (filename
);
382 if (last_function
!= NULL
)
383 free (last_function
);
384 last_function
= xstrdup (functionname
);
386 discard_last
= FALSE
;
389 lfinfo (fp
, "%pB:", abfd
);
391 if (filename
!= NULL
)
392 fprintf (fp
, "%s:", filename
);
394 done
= fmt
[-1] != 'H';
395 if (functionname
!= NULL
&& fmt
[-1] == 'G')
396 lfinfo (fp
, "%pT", functionname
);
397 else if (filename
!= NULL
&& linenumber
!= 0)
398 fprintf (fp
, "%u%s", linenumber
, done
? "" : ":");
404 lfinfo (fp
, "%pB:", abfd
);
408 lfinfo (fp
, "(%pA+0x%v)", section
, offset
);
413 if (last_file
!= NULL
)
418 if (last_function
!= NULL
)
420 free (last_function
);
421 last_function
= NULL
;
430 /* section name from a section */
435 sec
= (asection
*) args
[arg_no
].p
;
437 fprintf (fp
, "%s", sec
->name
);
441 const char *group
= bfd_group_name (abfd
, sec
);
443 fprintf (fp
, "[%s]", group
);
446 else if (*fmt
== 'B')
448 /* filename from a bfd */
449 bfd
*abfd
= (bfd
*) args
[arg_no
].p
;
454 fprintf (fp
, "%s generated", program_name
);
455 else if (abfd
->my_archive
!= NULL
456 && !bfd_is_thin_archive (abfd
->my_archive
))
457 fprintf (fp
, "%s(%s)", abfd
->my_archive
->filename
,
460 fprintf (fp
, "%s", abfd
->filename
);
462 else if (*fmt
== 'I')
464 /* filename from a lang_input_statement_type */
465 lang_input_statement_type
*i
;
468 i
= (lang_input_statement_type
*) args
[arg_no
].p
;
470 if (i
->the_bfd
!= NULL
471 && i
->the_bfd
->my_archive
!= NULL
472 && !bfd_is_thin_archive (i
->the_bfd
->my_archive
))
473 fprintf (fp
, "(%s)%s", i
->the_bfd
->my_archive
->filename
,
476 fprintf (fp
, "%s", i
->filename
);
478 else if (*fmt
== 'R')
480 /* Print all that's interesting about a relent. */
481 arelent
*relent
= (arelent
*) args
[arg_no
].p
;
485 lfinfo (fp
, "%s+0x%v (type %s)",
486 (*(relent
->sym_ptr_ptr
))->name
,
488 relent
->howto
->name
);
490 else if (*fmt
== 'S')
492 /* Print script file and linenumber. */
494 etree_type
*tp
= (etree_type
*) args
[arg_no
].p
;
501 tp
->type
.filename
= ldlex_filename ();
502 tp
->type
.lineno
= lineno
;
504 if (tp
->type
.filename
!= NULL
)
505 fprintf (fp
, "%s:%u", tp
->type
.filename
, tp
->type
.lineno
);
507 else if (*fmt
== 'T')
510 const char *name
= (const char *) args
[arg_no
].p
;
514 if (name
== NULL
|| *name
== 0)
516 fprintf (fp
, _("no symbol"));
523 demangled
= bfd_demangle (link_info
.output_bfd
, name
,
524 DMGL_ANSI
| DMGL_PARAMS
);
525 if (demangled
!= NULL
)
527 fprintf (fp
, "%s", demangled
);
532 fprintf (fp
, "%s", name
);
536 /* native (host) void* pointer, like printf */
537 fprintf (fp
, "%p", args
[arg_no
].p
);
543 /* arbitrary string, like printf */
544 fprintf (fp
, "%s", (char *) args
[arg_no
].p
);
549 /* integer, like printf */
550 fprintf (fp
, "%d", args
[arg_no
].i
);
555 /* unsigned integer, like printf */
556 fprintf (fp
, "%u", args
[arg_no
].i
);
563 fprintf (fp
, "%ld", args
[arg_no
].l
);
568 else if (*fmt
== 'u')
570 fprintf (fp
, "%lu", args
[arg_no
].l
);
578 fprintf (fp
, "%%%c", fmt
[-1]);
584 if (is_warning
&& config
.fatal_warnings
)
585 config
.make_executable
= FALSE
;
591 /* Format info message and print on stdout. */
593 /* (You would think this should be called just "info", but then you
594 would be hosed by LynxOS, which defines that name in its libc.) */
597 info_msg (const char *fmt
, ...)
602 vfinfo (stdout
, fmt
, arg
, FALSE
);
606 /* ('e' for error.) Format info message and print on stderr. */
609 einfo (const char *fmt
, ...)
615 vfinfo (stderr
, fmt
, arg
, TRUE
);
621 info_assert (const char *file
, unsigned int line
)
623 einfo (_("%F%P: internal error %s %d\n"), file
, line
);
626 /* ('m' for map) Format info message and print on map. */
629 minfo (const char *fmt
, ...)
631 if (config
.map_file
!= NULL
)
636 if (fmt
[0] == '%' && fmt
[1] == '!' && fmt
[2] == 0)
638 /* Stash info about --as-needed shared libraries. Print
639 later so they don't appear intermingled with archive
641 struct asneeded_minfo
*m
= xmalloc (sizeof *m
);
644 m
->soname
= va_arg (arg
, const char *);
645 m
->ref
= va_arg (arg
, bfd
*);
646 m
->name
= va_arg (arg
, const char *);
647 *asneeded_list_tail
= m
;
648 asneeded_list_tail
= &m
->next
;
651 vfinfo (config
.map_file
, fmt
, arg
, FALSE
);
657 lfinfo (FILE *file
, const char *fmt
, ...)
662 vfinfo (file
, fmt
, arg
, FALSE
);
666 /* Functions to print the link map. */
671 fprintf (config
.map_file
, " ");
677 fprintf (config
.map_file
, "\n");
680 /* A more or less friendly abort message. In ld.h abort is defined to
681 call this function. */
684 ld_abort (const char *file
, int line
, const char *fn
)
687 einfo (_("%P: internal error: aborting at %s:%d in %s\n"),
690 einfo (_("%P: internal error: aborting at %s:%d\n"),
692 einfo (_("%F%P: please report this bug\n"));