daily update
[binutils.git] / ld / ldmisc.c
blob5661aca576773bd601bf5d32922c589145f054dc
1 /* ldmisc.c
2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2002
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)
12 any later version.
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
22 02111-1307, USA. */
24 #include "bfd.h"
25 #include "sysdep.h"
26 #include "libiberty.h"
27 #include "demangle.h"
29 #ifdef ANSI_PROTOTYPES
30 #include <stdarg.h>
31 #else
32 #include <varargs.h>
33 #endif
35 #include "ld.h"
36 #include "ldmisc.h"
37 #include "ldexp.h"
38 #include "ldlang.h"
39 #include "ldgram.h"
40 #include "ldlex.h"
41 #include "ldmain.h"
42 #include "ldfile.h"
44 static void vfinfo PARAMS ((FILE *, const char *, va_list));
47 %% literal %
48 %F error is fatal
49 %P print program name
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
54 %T symbol name
55 %X no object output, fail return
56 %V hex bfd_vma
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
68 static void
69 vfinfo (fp, fmt, arg)
70 FILE *fp;
71 const char *fmt;
72 va_list arg;
74 boolean fatal = false;
76 while (*fmt != '\0')
78 while (*fmt != '%' && *fmt != '\0')
80 putc (*fmt, fp);
81 fmt++;
84 if (*fmt == '%')
86 fmt++;
87 switch (*fmt++)
89 default:
90 fprintf (fp, "%%%c", fmt[-1]);
91 break;
93 case '%':
94 /* literal % */
95 putc ('%', fp);
96 break;
98 case 'X':
99 /* no object output, fail return */
100 config.make_executable = false;
101 break;
103 case 'V':
104 /* hex bfd_vma */
106 bfd_vma value = va_arg (arg, bfd_vma);
107 fprintf_vma (fp, value);
109 break;
111 case 'v':
112 /* hex bfd_vma, no leading zeros */
114 char buf[100];
115 char *p = buf;
116 bfd_vma value = va_arg (arg, bfd_vma);
117 sprintf_vma (p, value);
118 while (*p == '0')
119 p++;
120 if (!*p)
121 p--;
122 fputs (p, fp);
124 break;
126 case 'W':
127 /* hex bfd_vma with 0x with no leading zeroes taking up
128 8 spaces. */
130 char buf[100];
131 bfd_vma value;
132 char *p;
133 int len;
135 value = va_arg (arg, bfd_vma);
136 sprintf_vma (buf, value);
137 for (p = buf; *p == '0'; ++p)
139 if (*p == '\0')
140 --p;
141 len = strlen (p);
142 while (len < 8)
144 putc (' ', fp);
145 ++len;
147 fprintf (fp, "0x%s", p);
149 break;
151 case 'T':
152 /* Symbol name. */
154 const char *name = va_arg (arg, const char *);
156 if (name == (const char *) NULL || *name == 0)
157 fprintf (fp, _("no symbol"));
158 else if (! demangling)
159 fprintf (fp, "%s", name);
160 else
162 char *demangled;
164 demangled = demangle (name);
165 fprintf (fp, "%s", demangled);
166 free (demangled);
169 break;
171 case 'B':
172 /* filename from a bfd */
174 bfd *abfd = va_arg (arg, bfd *);
175 if (abfd->my_archive)
176 fprintf (fp, "%s(%s)", abfd->my_archive->filename,
177 abfd->filename);
178 else
179 fprintf (fp, "%s", abfd->filename);
181 break;
183 case 'F':
184 /* Error is fatal. */
185 fatal = true;
186 break;
188 case 'P':
189 /* Print program name. */
190 fprintf (fp, "%s", program_name);
191 break;
193 case 'E':
194 /* current bfd error or errno */
195 fprintf (fp, "%s", bfd_errmsg (bfd_get_error ()));
196 break;
198 case 'I':
199 /* filename from a lang_input_statement_type */
201 lang_input_statement_type *i;
203 i = va_arg (arg, lang_input_statement_type *);
204 if (bfd_my_archive (i->the_bfd) != NULL)
205 fprintf (fp, "(%s)",
206 bfd_get_filename (bfd_my_archive (i->the_bfd)));
207 fprintf (fp, "%s", i->local_sym_name);
208 if (bfd_my_archive (i->the_bfd) == NULL
209 && strcmp (i->local_sym_name, i->filename) != 0)
210 fprintf (fp, " (%s)", i->filename);
212 break;
214 case 'S':
215 /* Print script file and linenumber. */
216 if (parsing_defsym)
217 fprintf (fp, "--defsym %s", lex_string);
218 else if (ldfile_input_filename != NULL)
219 fprintf (fp, "%s:%u", ldfile_input_filename, lineno);
220 else
221 fprintf (fp, _("built in linker script:%u"), lineno);
222 break;
224 case 'R':
225 /* Print all that's interesting about a relent. */
227 arelent *relent = va_arg (arg, arelent *);
229 lfinfo (fp, "%s+0x%v (type %s)",
230 (*(relent->sym_ptr_ptr))->name,
231 relent->addend,
232 relent->howto->name);
234 break;
236 case 'C':
237 case 'D':
238 case 'G':
239 /* Clever filename:linenumber with function name if possible.
240 The arguments are a BFD, a section, and an offset. */
242 static bfd *last_bfd;
243 static char *last_file = NULL;
244 static char *last_function = NULL;
245 bfd *abfd;
246 asection *section;
247 bfd_vma offset;
248 lang_input_statement_type *entry;
249 asymbol **asymbols;
250 const char *filename;
251 const char *functionname;
252 unsigned int linenumber;
253 boolean discard_last;
255 abfd = va_arg (arg, bfd *);
256 section = va_arg (arg, asection *);
257 offset = va_arg (arg, bfd_vma);
259 entry = (lang_input_statement_type *) abfd->usrdata;
260 if (entry != (lang_input_statement_type *) NULL
261 && entry->asymbols != (asymbol **) NULL)
262 asymbols = entry->asymbols;
263 else
265 long symsize;
266 long symbol_count;
268 symsize = bfd_get_symtab_upper_bound (abfd);
269 if (symsize < 0)
270 einfo (_("%B%F: could not read symbols\n"), abfd);
271 asymbols = (asymbol **) xmalloc (symsize);
272 symbol_count = bfd_canonicalize_symtab (abfd, asymbols);
273 if (symbol_count < 0)
274 einfo (_("%B%F: could not read symbols\n"), abfd);
275 if (entry != (lang_input_statement_type *) NULL)
277 entry->asymbols = asymbols;
278 entry->symbol_count = symbol_count;
282 lfinfo (fp, "%B(%s+0x%v)", abfd, section->name, offset);
284 discard_last = true;
285 if (bfd_find_nearest_line (abfd, section, asymbols, offset,
286 &filename, &functionname,
287 &linenumber))
289 boolean need_colon = true;
291 if (functionname != NULL && fmt[-1] == 'C')
293 if (last_bfd == NULL
294 || last_file == NULL
295 || last_function == NULL
296 || last_bfd != abfd
297 || (filename != NULL
298 && strcmp (last_file, filename) != 0)
299 || strcmp (last_function, functionname) != 0)
301 lfinfo (fp, _(": In function `%T':\n"),
302 functionname);
303 need_colon = false;
305 last_bfd = abfd;
306 if (last_file != NULL)
307 free (last_file);
308 last_file = NULL;
309 if (filename)
310 last_file = xstrdup (filename);
311 if (last_function != NULL)
312 free (last_function);
313 last_function = xstrdup (functionname);
315 discard_last = false;
318 if (filename != NULL)
320 if (need_colon)
321 putc (':', fp);
322 fputs (filename, fp);
325 if (functionname != NULL && fmt[-1] == 'G')
326 lfinfo (fp, ":%T", functionname);
327 else if (filename != NULL && linenumber != 0)
328 fprintf (fp, ":%u", linenumber);
331 if (discard_last)
333 last_bfd = NULL;
334 if (last_file != NULL)
336 free (last_file);
337 last_file = NULL;
339 if (last_function != NULL)
341 free (last_function);
342 last_function = NULL;
346 break;
348 case 's':
349 /* arbitrary string, like printf */
350 fprintf (fp, "%s", va_arg (arg, char *));
351 break;
353 case 'd':
354 /* integer, like printf */
355 fprintf (fp, "%d", va_arg (arg, int));
356 break;
358 case 'u':
359 /* unsigned integer, like printf */
360 fprintf (fp, "%u", va_arg (arg, unsigned int));
361 break;
366 if (config.fatal_warnings)
367 config.make_executable = false;
369 if (fatal == true)
370 xexit (1);
373 /* Wrapper around cplus_demangle. Strips leading underscores and
374 other such chars that would otherwise confuse the demangler. */
376 char *
377 demangle (name)
378 const char *name;
380 char *res;
381 const char *p;
383 if (output_bfd != NULL
384 && bfd_get_symbol_leading_char (output_bfd) == name[0])
385 ++name;
387 /* This is a hack for better error reporting on XCOFF, PowerPC64-ELF
388 or the MS PE format. These formats have a number of leading '.'s
389 on at least some symbols, so we remove all dots to avoid
390 confusing the demangler. */
391 p = name;
392 while (*p == '.')
393 ++p;
395 res = cplus_demangle (p, DMGL_ANSI | DMGL_PARAMS);
396 if (res)
398 size_t dots = p - name;
400 /* Now put back any stripped dots. */
401 if (dots != 0)
403 size_t len = strlen (res) + 1;
404 char *add_dots = xmalloc (len + dots);
406 memcpy (add_dots, name, dots);
407 memcpy (add_dots + dots, res, len);
408 free (res);
409 res = add_dots;
411 return res;
413 return xstrdup (name);
416 /* Format info message and print on stdout. */
418 /* (You would think this should be called just "info", but then you
419 would hosed by LynxOS, which defines that name in its libc.) */
421 void
422 info_msg VPARAMS ((const char *fmt, ...))
424 VA_OPEN (arg, fmt);
425 VA_FIXEDARG (arg, const char *, fmt);
427 vfinfo (stdout, fmt, arg);
428 VA_CLOSE (arg);
431 /* ('e' for error.) Format info message and print on stderr. */
433 void
434 einfo VPARAMS ((const char *fmt, ...))
436 VA_OPEN (arg, fmt);
437 VA_FIXEDARG (arg, const char *, fmt);
439 vfinfo (stderr, fmt, arg);
440 VA_CLOSE (arg);
443 void
444 info_assert (file, line)
445 const char *file;
446 unsigned int line;
448 einfo (_("%F%P: internal error %s %d\n"), file, line);
451 /* ('m' for map) Format info message and print on map. */
453 void
454 minfo VPARAMS ((const char *fmt, ...))
456 VA_OPEN (arg, fmt);
457 VA_FIXEDARG (arg, const char *, fmt);
459 vfinfo (config.map_file, fmt, arg);
460 VA_CLOSE (arg);
463 void
464 lfinfo VPARAMS ((FILE *file, const char *fmt, ...))
466 VA_OPEN (arg, fmt);
467 VA_FIXEDARG (arg, FILE *, file);
468 VA_FIXEDARG (arg, const char *, fmt);
470 vfinfo (file, fmt, arg);
471 VA_CLOSE (arg);
474 /* Functions to print the link map. */
476 void
477 print_space ()
479 fprintf (config.map_file, " ");
482 void
483 print_nl ()
485 fprintf (config.map_file, "\n");
488 /* A more or less friendly abort message. In ld.h abort is defined to
489 call this function. */
491 void
492 ld_abort (file, line, fn)
493 const char *file;
494 int line;
495 const char *fn;
497 if (fn != NULL)
498 einfo (_("%P: internal error: aborting at %s line %d in %s\n"),
499 file, line, fn);
500 else
501 einfo (_("%P: internal error: aborting at %s line %d\n"),
502 file, line);
503 einfo (_("%P%F: please report this bug\n"));
504 xexit (1);