2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
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, 59 Temple Place - Suite 330, Boston, MA
26 #include "libiberty.h"
29 #ifdef ANSI_PROTOTYPES
44 static void vfinfo
PARAMS ((FILE *, const char *, va_list));
50 %S print script file and linenumber
51 %E current bfd error or errno
52 %I filename from a lang_input_statement_type
53 %B filename from a bfd
55 %X no object output, fail return
57 %v hex bfd_vma, no leading zeros
58 %W hex bfd_vma with 0x with no leading zeros taking up 8 spaces
59 %C clever filename:linenumber with function
60 %D like %C, but no function name
61 %G like %D, but only function name
62 %R info about a relent
63 %s arbitrary string, like printf
64 %d integer, like printf
65 %u integer, like printf
75 if (output_bfd
!= NULL
76 && bfd_get_symbol_leading_char (output_bfd
) == string
[0])
79 /* This is a hack for better error reporting on XCOFF, PowerPC64-ELF
80 or the MS PE format. These formats have a number of leading '.'s
81 on at least some symbols, so we remove all dots to avoid
82 confusing the demangler. */
87 res
= cplus_demangle (p
, DMGL_ANSI
| DMGL_PARAMS
);
90 size_t dots
= p
- string
;
92 /* Now put back any stripped dots. */
95 size_t len
= strlen (res
) + 1;
96 char *add_dots
= xmalloc (len
+ dots
);
98 memcpy (add_dots
, string
, dots
);
99 memcpy (add_dots
+ dots
, res
, len
);
105 return xstrdup (string
);
109 vfinfo (fp
, fmt
, arg
)
114 boolean fatal
= false;
118 while (*fmt
!= '%' && *fmt
!= '\0')
130 fprintf (fp
, "%%%c", fmt
[-1]);
139 /* no object output, fail return */
140 config
.make_executable
= false;
146 bfd_vma value
= va_arg (arg
, bfd_vma
);
147 fprintf_vma (fp
, value
);
152 /* hex bfd_vma, no leading zeros */
156 bfd_vma value
= va_arg (arg
, bfd_vma
);
157 sprintf_vma (p
, value
);
167 /* hex bfd_vma with 0x with no leading zeroes taking up
175 value
= va_arg (arg
, bfd_vma
);
176 sprintf_vma (buf
, value
);
177 for (p
= buf
; *p
== '0'; ++p
)
187 fprintf (fp
, "0x%s", p
);
194 const char *name
= va_arg (arg
, const char *);
196 if (name
== (const char *) NULL
|| *name
== 0)
197 fprintf (fp
, _("no symbol"));
198 else if (! demangling
)
199 fprintf (fp
, "%s", name
);
204 demangled
= demangle (name
);
205 fprintf (fp
, "%s", demangled
);
212 /* filename from a bfd */
214 bfd
*abfd
= va_arg (arg
, bfd
*);
215 if (abfd
->my_archive
)
216 fprintf (fp
, "%s(%s)", abfd
->my_archive
->filename
,
219 fprintf (fp
, "%s", abfd
->filename
);
224 /* Error is fatal. */
229 /* Print program name. */
230 fprintf (fp
, "%s", program_name
);
234 /* current bfd error or errno */
235 fprintf (fp
, "%s", bfd_errmsg (bfd_get_error ()));
239 /* filename from a lang_input_statement_type */
241 lang_input_statement_type
*i
;
243 i
= va_arg (arg
, lang_input_statement_type
*);
244 if (bfd_my_archive (i
->the_bfd
) != NULL
)
246 bfd_get_filename (bfd_my_archive (i
->the_bfd
)));
247 fprintf (fp
, "%s", i
->local_sym_name
);
248 if (bfd_my_archive (i
->the_bfd
) == NULL
249 && strcmp (i
->local_sym_name
, i
->filename
) != 0)
250 fprintf (fp
, " (%s)", i
->filename
);
255 /* Print script file and linenumber. */
257 fprintf (fp
, "--defsym %s", lex_string
);
258 else if (ldfile_input_filename
!= NULL
)
259 fprintf (fp
, "%s:%u", ldfile_input_filename
, lineno
);
261 fprintf (fp
, _("built in linker script:%u"), lineno
);
265 /* Print all that's interesting about a relent. */
267 arelent
*relent
= va_arg (arg
, arelent
*);
269 lfinfo (fp
, "%s+0x%v (type %s)",
270 (*(relent
->sym_ptr_ptr
))->name
,
272 relent
->howto
->name
);
279 /* Clever filename:linenumber with function name if possible,
280 or section name as a last resort. The arguments are a BFD,
281 a section, and an offset. */
283 static bfd
*last_bfd
;
284 static char *last_file
= NULL
;
285 static char *last_function
= NULL
;
289 lang_input_statement_type
*entry
;
291 const char *filename
;
292 const char *functionname
;
293 unsigned int linenumber
;
294 boolean discard_last
;
296 abfd
= va_arg (arg
, bfd
*);
297 section
= va_arg (arg
, asection
*);
298 offset
= va_arg (arg
, bfd_vma
);
300 entry
= (lang_input_statement_type
*) abfd
->usrdata
;
301 if (entry
!= (lang_input_statement_type
*) NULL
302 && entry
->asymbols
!= (asymbol
**) NULL
)
303 asymbols
= entry
->asymbols
;
309 symsize
= bfd_get_symtab_upper_bound (abfd
);
311 einfo (_("%B%F: could not read symbols\n"), abfd
);
312 asymbols
= (asymbol
**) xmalloc (symsize
);
313 symbol_count
= bfd_canonicalize_symtab (abfd
, asymbols
);
314 if (symbol_count
< 0)
315 einfo (_("%B%F: could not read symbols\n"), abfd
);
316 if (entry
!= (lang_input_statement_type
*) NULL
)
318 entry
->asymbols
= asymbols
;
319 entry
->symbol_count
= symbol_count
;
324 if (bfd_find_nearest_line (abfd
, section
, asymbols
, offset
,
325 &filename
, &functionname
,
328 if (functionname
!= NULL
&& fmt
[-1] == 'G')
330 lfinfo (fp
, "%B:", abfd
);
332 && strcmp (filename
, bfd_get_filename (abfd
)) != 0)
333 fprintf (fp
, "%s:", filename
);
334 lfinfo (fp
, "%T", functionname
);
336 else if (functionname
!= NULL
&& fmt
[-1] == 'C')
338 if (filename
== (char *) NULL
)
339 filename
= abfd
->filename
;
343 || last_function
== NULL
345 || strcmp (last_file
, filename
) != 0
346 || strcmp (last_function
, functionname
) != 0)
348 /* We use abfd->filename in this initial line,
349 in case filename is a .h file or something
350 similarly unhelpful. */
351 lfinfo (fp
, _("%B: In function `%T':\n"),
355 if (last_file
!= NULL
)
357 last_file
= xstrdup (filename
);
358 if (last_function
!= NULL
)
359 free (last_function
);
360 last_function
= xstrdup (functionname
);
362 discard_last
= false;
364 fprintf (fp
, "%s:%u", filename
, linenumber
);
366 lfinfo (fp
, "%s(%s+0x%v)", filename
, section
->name
,
369 else if (filename
== NULL
370 || strcmp (filename
, abfd
->filename
) == 0)
372 lfinfo (fp
, "%B(%s+0x%v)", abfd
, section
->name
,
375 lfinfo (fp
, ":%u", linenumber
);
377 else if (linenumber
!= 0)
378 lfinfo (fp
, "%B:%s:%u", abfd
, filename
, linenumber
);
380 lfinfo (fp
, "%B(%s+0x%v):%s", abfd
, section
->name
,
384 lfinfo (fp
, "%B(%s+0x%v)", abfd
, section
->name
, offset
);
389 if (last_file
!= NULL
)
394 if (last_function
!= NULL
)
396 free (last_function
);
397 last_function
= NULL
;
404 /* arbitrary string, like printf */
405 fprintf (fp
, "%s", va_arg (arg
, char *));
409 /* integer, like printf */
410 fprintf (fp
, "%d", va_arg (arg
, int));
414 /* unsigned integer, like printf */
415 fprintf (fp
, "%u", va_arg (arg
, unsigned int));
421 if (config
.fatal_warnings
)
422 config
.make_executable
= false;
428 /* Format info message and print on stdout. */
430 /* (You would think this should be called just "info", but then you
431 would hosed by LynxOS, which defines that name in its libc.) */
434 info_msg
VPARAMS ((const char *fmt
, ...))
437 VA_FIXEDARG (arg
, const char *, fmt
);
439 vfinfo (stdout
, fmt
, arg
);
443 /* ('e' for error.) Format info message and print on stderr. */
446 einfo
VPARAMS ((const char *fmt
, ...))
449 VA_FIXEDARG (arg
, const char *, fmt
);
451 vfinfo (stderr
, fmt
, arg
);
456 info_assert (file
, line
)
460 einfo (_("%F%P: internal error %s %d\n"), file
, line
);
463 /* ('m' for map) Format info message and print on map. */
466 minfo
VPARAMS ((const char *fmt
, ...))
469 VA_FIXEDARG (arg
, const char *, fmt
);
471 vfinfo (config
.map_file
, fmt
, arg
);
476 lfinfo
VPARAMS ((FILE *file
, const char *fmt
, ...))
479 VA_FIXEDARG (arg
, FILE *, file
);
480 VA_FIXEDARG (arg
, const char *, fmt
);
482 vfinfo (file
, fmt
, arg
);
486 /* Functions to print the link map. */
491 fprintf (config
.map_file
, " ");
497 fprintf (config
.map_file
, "\n");
500 /* A more or less friendly abort message. In ld.h abort is defined to
501 call this function. */
504 ld_abort (file
, line
, fn
)
510 einfo (_("%P: internal error: aborting at %s line %d in %s\n"),
513 einfo (_("%P: internal error: aborting at %s line %d\n"),
515 einfo (_("%P%F: please report this bug\n"));