bfd/seclet.c

   1 /* This module is part of BFD */
   2
   3
   4 /* The intention is that one day, all the code which uses sections
   5    will change and use seclets instead - maybe seglet would have been
   6    a better name..
   7
   8    Anyway, a seclet contains enough info to be able to describe an
   9    area of output memory in one go.
  10
  11    The only description so far catered for is that of the
  12    <<bfd_indirect_seclet>>, which is a select which points to a
  13    <<section>> and the <<asymbols>> associated with the section, so
  14    that relocation can be done when needed.
  15
  16    One day there will be more types - they will at least migrate from
  17    the linker's data structures - also there could be extra stuff,
  18    like a bss seclet, which descibes a lump of memory as containing
  19    zeros compactly, without the horrible SEC_* flag cruft.
  20
  21
  22 */
  23
  24 #include "bfd.h"
  25 #include "sysdep.h"
  26 #include "libbfd.h"
  27 #include "seclet.h"
  28 #include "coff/internal.h"
  29 bfd_seclet_type *
  30 DEFUN(bfd_new_seclet,(abfd, section),
  31       bfd *abfd AND
  32       asection *section)
  33 {
  34   bfd_seclet_type *n = (bfd_seclet_type *)bfd_alloc(abfd, sizeof(bfd_seclet_type));
  35   if (section->seclets_tail != (bfd_seclet_type *)NULL) {
  36       section->seclets_tail->next = n;
  37     }
  38   else
  39   {
  40     section->seclets_head = n;
  41   }
  42   section->seclets_tail = n;
  43
  44   return n;
  45
  46 }
  47
  48
  49
  50
  51 #define MAX_ERRORS_IN_A_ROW 10
  52 extern bfd_error_vector_type bfd_error_vector;
  53
  54
  55 void
  56 DEFUN(rel,(abfd, seclet, output_section),
  57       bfd *abfd AND
  58       bfd_seclet_type *seclet AND
  59       asection *output_section)
  60 {
  61   bfd_byte *data;
  62   if (output_section->flags & SEC_HAS_CONTENTS )
  63   {
  64
  65   data = bfd_get_relocated_section_contents(abfd, seclet);
  66
  67   if(bfd_set_section_contents(abfd,
  68                               output_section,
  69                               data,
  70                               seclet->offset,
  71                               seclet->size) == false)
  72   {
  73     abort();
  74   }
  75
  76 }
  77
  78
  79
  80
  81
  82 }
  83
  84 void
  85 DEFUN(seclet_dump_seclet,(abfd, seclet, section),
  86       bfd *abfd AND
  87       bfd_seclet_type *seclet AND
  88       asection *section)
  89 {
  90   switch (seclet->type)
  91   {
  92
  93   case bfd_indirect_seclet:
  94     /* The contents of this section come from another one somewhere
  95        else */
  96     rel(abfd, seclet, section);
  97
  98
  99     break;
 100
 101   default:
 102     abort();
 103   }
 104
 105
 106
 107 }
 108
 109 void
 110 DEFUN(seclet_dump,(abfd),
 111       bfd *abfd)
 112 {
 113   /* Write all the seclets on the bfd out, relocate etc according to the
 114      rules */
 115
 116   asection *o = abfd->sections;
 117   while (o != (asection *)NULL)
 118   {
 119     bfd_seclet_type *p = o->seclets_head;
 120     while (p != (bfd_seclet_type *)NULL)
 121     {
 122       seclet_dump_seclet(abfd, p, o);
 123       p = p ->next;
 124     }
 125
 126     o = o->next;
 127   }
 128
 129 }