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 #define MAX_ERRORS_IN_A_ROW 10
  51 extern bfd_error_vector_type bfd_error_vector;
  52
  53
  54 void
  55 DEFUN(rel,(abfd, seclet, output_section),
  56       bfd *abfd AND
  57       bfd_seclet_type *seclet AND
  58       asection *output_section)
  59 {
  60   bfd_byte *data;
  61   if (output_section->flags & SEC_HAS_CONTENTS )
  62   {
  63     data = bfd_get_relocated_section_contents(abfd, seclet);
  64     if(bfd_set_section_contents(abfd,
  65                                 output_section,
  66                                 data,
  67                                 seclet->offset,
  68                                 seclet->size) == false)
  69     {
  70       abort();
  71     }
  72   }
  73 }
  74
  75 void
  76 DEFUN(seclet_dump_seclet,(abfd, seclet, section),
  77       bfd *abfd AND
  78       bfd_seclet_type *seclet AND
  79       asection *section)
  80 {
  81   switch (seclet->type)
  82   {
  83    case bfd_indirect_seclet:
  84     /* The contents of this section come from another one somewhere
  85        else */
  86     rel(abfd, seclet, section);
  87     break;
  88    case bfd_fill_seclet:
  89     /* Fill in the section with us */
  90    {
  91      char *d = malloc(seclet->size);
  92      unsigned int i;
  93      for (i =0;  i < seclet->size; i+=2) {
  94        d[i] = seclet->u.fill.value >> 8;
  95      }
  96      for (i = 1; i < seclet->size; i+=2) {
  97        d[i] = seclet->u.fill.value ;
  98      }
  99      bfd_set_section_contents(abfd, section, d, seclet->offset, seclet->size);
 100
 101    }
 102     break;
 103    default:
 104     abort();
 105   }
 106 }
 107
 108 void
 109 DEFUN(seclet_dump,(abfd),
 110       bfd *abfd)
 111 {
 112   /* Write all the seclets on the bfd out, relocate etc according to the
 113      rules */
 114
 115   asection *o = abfd->sections;
 116   while (o != (asection *)NULL)
 117   {
 118     bfd_seclet_type *p = o->seclets_head;
 119     while (p != (bfd_seclet_type *)NULL)
 120     {
 121       seclet_dump_seclet(abfd, p, o);
 122       p = p ->next;
 123     }
 124     o = o->next;
 125   }
 126 }