tools/collect-aros/backend-bfd.c

   1 #include <bfd.h>
   2
   3 #include "misc.h"
   4 #include "backend.h"
   5
   6 static void bfd_fatal(const char *msg)
   7 {
   8     fatal(msg, bfd_errmsg(bfd_get_error()));
   9 }
  10
  11 int check_and_print_undefined_symbols(const char *file)
  12 {
  13     bfd_byte *cur, *minisyms;
  14     asymbol *store;
  15     long symcount;
  16     unsigned int size;
  17     int there_are_undefined_syms = 0;
  18     bfd *abfd;
  19
  20     bfd_init();
  21
  22     if
  23     (
  24         (abfd = bfd_openr(file, "default")) == NULL ||
  25         !bfd_check_format(abfd, bfd_object)
  26     )
  27     {
  28         bfd_fatal(file);
  29     }
  30
  31     symcount = bfd_read_minisymbols(abfd, FALSE, (void **)&minisyms, &size);
  32     if (symcount < 0)
  33         bfd_fatal (bfd_get_filename (abfd));
  34
  35     if (symcount == 0)
  36         return 0;
  37
  38     store = bfd_make_empty_symbol(abfd);
  39     if (store == NULL)
  40         bfd_fatal(bfd_get_filename(abfd));
  41
  42     for (cur = minisyms; cur < (minisyms + (symcount * size)); cur += size)
  43     {
  44         asymbol *sym;
  45
  46         sym = bfd_minisymbol_to_symbol(abfd, FALSE, (const void *)cur, store);
  47         if (sym == NULL)
  48             bfd_fatal(bfd_get_filename (abfd));
  49
  50         if (bfd_is_und_section (sym->section))
  51         {
  52             if (!there_are_undefined_syms)
  53             {
  54                 there_are_undefined_syms = 1;
  55
  56                 fprintf(stderr, "There are undefined symbols in '%s':\n", bfd_get_filename(abfd));
  57             }
  58
  59             fprintf(stderr, "%s\n", sym->name);
  60         }
  61     }
  62
  63     bfd_close(abfd);
  64     /* We should free() minisyms, but since we're called only once, we let the system
  65        do it for us.  */
  66
  67     return there_are_undefined_syms;
  68 }
  69
  70 static void setfunc(bfd *exe, asection *sect, PTR setlist_ptr)
  71 {
  72     parse_secname(sect->name, (setnode **)setlist_ptr);
  73 }
  74
  75 void collect_sets(const char *file, setnode **setlist_ptr)
  76 {
  77     bfd_init();
  78
  79     bfd *abfd;
  80
  81     if
  82     (
  83         (abfd = bfd_openr(file, "default")) == NULL ||
  84         !bfd_check_format(abfd, bfd_object)
  85     )
  86     {
  87         bfd_fatal(file);
  88     }
  89
  90     parse_format(abfd->xvec->name);
  91     bfd_map_over_sections(abfd, setfunc, setlist_ptr);
  92
  93     bfd_close(abfd);
  94 }