2 Copyright (C) 1991-2020 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
;
325 bfd_error_type last_bfd_error
= bfd_get_error ();
327 abfd
= args
[arg_no
].reladdr
.abfd
;
328 section
= args
[arg_no
].reladdr
.sec
;
329 offset
= args
[arg_no
].reladdr
.off
;
334 if (!bfd_generic_link_read_symbols (abfd
))
335 einfo (_("%F%P: %pB: could not read symbols: %E\n"), abfd
);
337 asymbols
= bfd_get_outsymbols (abfd
);
340 /* The GNU Coding Standard requires that error messages
343 source-file-name:lineno: message
345 We do not always have a line number available so if
346 we cannot find them we print out the section name and
350 && bfd_find_nearest_line (abfd
, section
, asymbols
, offset
,
351 &filename
, &functionname
,
354 if (functionname
!= NULL
355 && (fmt
[-1] == 'C' || fmt
[-1] == 'H'))
357 /* Detect the case where we are printing out a
358 message for the same function as the last
359 call to vinfo ("%C"). In this situation do
360 not print out the ABFD filename or the
361 function name again. Note - we do still
362 print out the source filename, as this will
363 allow programs that parse the linker's output
364 (eg emacs) to correctly locate multiple
365 errors in the same source file. */
367 || last_function
== NULL
369 || (last_file
== NULL
) != (filename
== NULL
)
371 && filename_cmp (last_file
, filename
) != 0)
372 || strcmp (last_function
, functionname
) != 0)
374 lfinfo (fp
, _("%pB: in function `%pT':\n"),
381 last_file
= xstrdup (filename
);
382 free (last_function
);
383 last_function
= xstrdup (functionname
);
385 discard_last
= FALSE
;
388 lfinfo (fp
, "%pB:", abfd
);
390 if (filename
!= NULL
)
391 fprintf (fp
, "%s:", filename
);
393 done
= fmt
[-1] != 'H';
394 if (functionname
!= NULL
&& fmt
[-1] == 'G')
395 lfinfo (fp
, "%pT", functionname
);
396 else if (filename
!= NULL
&& linenumber
!= 0)
397 fprintf (fp
, "%u%s", linenumber
, done
? "" : ":");
403 lfinfo (fp
, "%pB:", abfd
);
407 lfinfo (fp
, "(%pA+0x%v)", section
, offset
);
408 bfd_set_error (last_bfd_error
);
415 free (last_function
);
416 last_function
= NULL
;
424 /* section name from a section */
429 sec
= (asection
*) args
[arg_no
].p
;
431 fprintf (fp
, "%s", sec
->name
);
435 const char *group
= bfd_group_name (abfd
, sec
);
437 fprintf (fp
, "[%s]", group
);
440 else if (*fmt
== 'B')
442 /* filename from a bfd */
443 bfd
*abfd
= (bfd
*) args
[arg_no
].p
;
448 fprintf (fp
, "%s generated", program_name
);
449 else if (abfd
->my_archive
!= NULL
450 && !bfd_is_thin_archive (abfd
->my_archive
))
451 fprintf (fp
, "%s(%s)",
452 bfd_get_filename (abfd
->my_archive
),
453 bfd_get_filename (abfd
));
455 fprintf (fp
, "%s", bfd_get_filename (abfd
));
457 else if (*fmt
== 'I')
459 /* filename from a lang_input_statement_type */
460 lang_input_statement_type
*i
;
463 i
= (lang_input_statement_type
*) args
[arg_no
].p
;
465 if (i
->the_bfd
!= NULL
466 && i
->the_bfd
->my_archive
!= NULL
467 && !bfd_is_thin_archive (i
->the_bfd
->my_archive
))
468 fprintf (fp
, "(%s)%s",
469 bfd_get_filename (i
->the_bfd
->my_archive
),
472 fprintf (fp
, "%s", i
->filename
);
474 else if (*fmt
== 'R')
476 /* Print all that's interesting about a relent. */
477 arelent
*relent
= (arelent
*) args
[arg_no
].p
;
481 lfinfo (fp
, "%s+0x%v (type %s)",
482 (*(relent
->sym_ptr_ptr
))->name
,
484 relent
->howto
->name
);
486 else if (*fmt
== 'S')
488 /* Print script file and linenumber. */
490 etree_type
*tp
= (etree_type
*) args
[arg_no
].p
;
497 tp
->type
.filename
= ldlex_filename ();
498 tp
->type
.lineno
= lineno
;
500 if (tp
->type
.filename
!= NULL
)
501 fprintf (fp
, "%s:%u", tp
->type
.filename
, tp
->type
.lineno
);
503 else if (*fmt
== 'T')
506 const char *name
= (const char *) args
[arg_no
].p
;
510 if (name
== NULL
|| *name
== 0)
512 fprintf (fp
, _("no symbol"));
519 demangled
= bfd_demangle (link_info
.output_bfd
, name
,
520 DMGL_ANSI
| DMGL_PARAMS
);
521 if (demangled
!= NULL
)
523 fprintf (fp
, "%s", demangled
);
528 fprintf (fp
, "%s", name
);
532 /* native (host) void* pointer, like printf */
533 fprintf (fp
, "%p", args
[arg_no
].p
);
539 /* arbitrary string, like printf */
540 fprintf (fp
, "%s", (char *) args
[arg_no
].p
);
545 /* integer, like printf */
546 fprintf (fp
, "%d", args
[arg_no
].i
);
551 /* unsigned integer, like printf */
552 fprintf (fp
, "%u", args
[arg_no
].i
);
559 fprintf (fp
, "%ld", args
[arg_no
].l
);
564 else if (*fmt
== 'u')
566 fprintf (fp
, "%lu", args
[arg_no
].l
);
574 fprintf (fp
, "%%%c", fmt
[-1]);
580 if (is_warning
&& config
.fatal_warnings
)
581 config
.make_executable
= FALSE
;
587 /* Format info message and print on stdout. */
589 /* (You would think this should be called just "info", but then you
590 would be hosed by LynxOS, which defines that name in its libc.) */
593 info_msg (const char *fmt
, ...)
598 vfinfo (stdout
, fmt
, arg
, FALSE
);
602 /* ('e' for error.) Format info message and print on stderr. */
605 einfo (const char *fmt
, ...)
611 vfinfo (stderr
, fmt
, arg
, TRUE
);
617 info_assert (const char *file
, unsigned int line
)
619 einfo (_("%F%P: internal error %s %d\n"), file
, line
);
622 /* ('m' for map) Format info message and print on map. */
625 minfo (const char *fmt
, ...)
627 if (config
.map_file
!= NULL
)
632 if (fmt
[0] == '%' && fmt
[1] == '!' && fmt
[2] == 0)
634 /* Stash info about --as-needed shared libraries. Print
635 later so they don't appear intermingled with archive
637 struct asneeded_minfo
*m
= xmalloc (sizeof *m
);
640 m
->soname
= va_arg (arg
, const char *);
641 m
->ref
= va_arg (arg
, bfd
*);
642 m
->name
= va_arg (arg
, const char *);
643 *asneeded_list_tail
= m
;
644 asneeded_list_tail
= &m
->next
;
647 vfinfo (config
.map_file
, fmt
, arg
, FALSE
);
653 lfinfo (FILE *file
, const char *fmt
, ...)
658 vfinfo (file
, fmt
, arg
, FALSE
);
662 /* Functions to print the link map. */
667 fprintf (config
.map_file
, " ");
673 fprintf (config
.map_file
, "\n");
676 /* A more or less friendly abort message. In ld.h abort is defined to
677 call this function. */
680 ld_abort (const char *file
, int line
, const char *fn
)
683 einfo (_("%P: internal error: aborting at %s:%d in %s\n"),
686 einfo (_("%P: internal error: aborting at %s:%d\n"),
688 einfo (_("%F%P: please report this bug\n"));