tools/collect-aros/backend-bfd.c

   1 #include <bfd.h>
   2 #include <string.h>
   3 #include <malloc.h>
   4 #include <stdlib.h>
   5
   6 #include "misc.h"
   7 #include "backend.h"
   8
   9 static void bfd_fatal(const char *msg)
  10 {
  11     fatal(msg, bfd_errmsg(bfd_get_error()));
  12 }
  13
  14 int check_and_print_undefined_symbols(const char *file)
  15 {
  16     bfd_byte *cur, *minisyms;
  17     asymbol *store;
  18     long symcount;
  19     unsigned int size;
  20     int there_are_undefined_syms = 0;
  21     bfd *abfd;
  22
  23     bfd_init();
  24
  25     if
  26     (
  27         (abfd = bfd_openr(file, "default")) == NULL ||
  28         !bfd_check_format(abfd, bfd_object)
  29     )
  30     {
  31         bfd_fatal(file);
  32     }
  33
  34     symcount = bfd_read_minisymbols(abfd, FALSE, (void **)&minisyms, &size);
  35     if (symcount < 0)
  36         bfd_fatal (bfd_get_filename (abfd));
  37
  38     if (symcount == 0)
  39         return 0;
  40
  41     store = bfd_make_empty_symbol(abfd);
  42     if (store == NULL)
  43         bfd_fatal(bfd_get_filename(abfd));
  44
  45     for (cur = minisyms; cur < (minisyms + (symcount * size)); cur += size)
  46     {
  47         asymbol *sym;
  48
  49         sym = bfd_minisymbol_to_symbol(abfd, FALSE, (const void *)cur, store);
  50         if (sym == NULL)
  51             bfd_fatal(bfd_get_filename (abfd));
  52
  53         if (bfd_is_und_section (sym->section))
  54         {
  55             if (!there_are_undefined_syms)
  56             {
  57                 there_are_undefined_syms = 1;
  58
  59                 fprintf(stderr, "There are undefined symbols in '%s':\n", bfd_get_filename(abfd));
  60             }
  61
  62             fprintf(stderr, "%s\n", sym->name);
  63         }
  64     }
  65
  66     bfd_close(abfd);
  67     /* We should free() minisyms, but since we're called only once, we let the system
  68        do it for us.  */
  69
  70     return there_are_undefined_syms;
  71 }
  72
  73 static void setfunc(bfd *exe, asection *sect, PTR setlist_ptr)
  74 {
  75     parse_secname(sect->name, (setnode **)setlist_ptr);
  76 }
  77
  78 void collect_sets(const char *file, setnode **setlist_ptr)
  79 {
  80     bfd_init();
  81
  82     bfd *abfd;
  83
  84     if
  85     (
  86         (abfd = bfd_openr(file, "default")) == NULL ||
  87         !bfd_check_format(abfd, bfd_object)
  88     )
  89     {
  90         bfd_fatal(file);
  91     }
  92
  93     parse_format(abfd->xvec->name);
  94     bfd_map_over_sections(abfd, setfunc, setlist_ptr);
  95
  96     bfd_close(abfd);
  97 }
  98
  99 static void collect_lib(asymbol *sym, setnode **liblist_ptr)
 100 {
 101     setnode *node;
 102     char *cp, *name;
 103     int pri;
 104
 105     if (strncmp(sym->name, "__aros_libreq_", 14) != 0)
 106             return;
 107
 108     node = xmalloc(sizeof(*node)+strlen(sym->name)+1);
 109     name = (char *)(&node[1]);
 110     strcpy(name, sym->name);
 111
 112     cp = strchr(name + 14, '.');
 113     if (cp != NULL) {
 114         char *tmp;
 115         pri = strtoul(cp+1, &tmp, 0);
 116
 117         if ((cp+1) == tmp) {
 118             free(node);
 119             return;
 120         }
 121
 122         *(cp++) = 0;
 123
 124     } else {
 125         pri = 0;
 126     }
 127
 128     node->secname = name;
 129     node->off_setname = 14;
 130     node->pri = pri;
 131     node->next = *liblist_ptr;
 132     *liblist_ptr = node;
 133 }
 134
 135 void collect_libs(const char *file, setnode **liblist_ptr)
 136 {
 137     long symtab_size;
 138     bfd *abfd;
 139
 140     /* We assume bfd_init() has already been colled by
 141      * collect_sets
 142      */
 143
 144     if
 145     (
 146         (abfd = bfd_openr(file, "default")) == NULL ||
 147         !bfd_check_format(abfd, bfd_object)
 148     )
 149     {
 150         bfd_fatal(file);
 151     }
 152
 153     symtab_size = bfd_get_symtab_upper_bound(abfd);
 154     if (symtab_size > 0) {
 155         asymbol **symtab;
 156         long symbols;
 157
 158         symtab = (asymbol **)xmalloc(symtab_size);
 159         symbols = bfd_canonicalize_symtab(abfd, symtab);
 160         if (symbols > 0) {
 161             long i;
 162
 163             for (i = 0; i < symbols; i++)
 164                 collect_lib(symtab[i], liblist_ptr);
 165         }
 166
 167         free(symtab);
 168     }
 169
 170     bfd_close(abfd);
 171 }