2010-05-21 Tristan Gingold <gingold@adacore.com>
authorTristan Gingold <gingold@adacore.com>
Fri, 21 May 2010 15:11:06 +0000 (15:11 +0000)
committerTristan Gingold <gingold@adacore.com>
Fri, 21 May 2010 15:11:06 +0000 (15:11 +0000)
* vms-alpha.c (_bfd_vms_slurp_eihs): Do not create a bfd section
for the GST.

bfd/ChangeLog
bfd/vms-alpha.c

index 167e8c6f062f74e9ccc8114d51bb543ce84e45a3..0372583b0dfd9f106f1e3204319e963e322c7185 100644 (file)
@@ -1,3 +1,8 @@
+2010-05-21  Tristan Gingold  <gingold@adacore.com>
+
+       * vms-alpha.c (_bfd_vms_slurp_eihs): Do not create a bfd section
+       for the GST.
+
 2010-05-21  Tristan Gingold  <gingold@adacore.com>
 
        * vms-alpha.c (_bfd_vms_slurp_eisd): Set SEC_HAS_CONTENTS and
index 2c6a19c600ff57b781930b5c5d29efadc3ba8475..f4804b4f70d4c2746d0d65a35cdf564c62d5552b 100644 (file)
@@ -667,12 +667,6 @@ _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
 
   if (gstvbn)
     {
-      flagword bfd_flags = SEC_HAS_CONTENTS;
-
-      section = bfd_make_section (abfd, "$GST$");
-      if (!section)
-       return FALSE;
-
       if (bfd_seek (abfd, VMS_BLOCK_SIZE * (gstvbn - 1), SEEK_SET))
        {
          bfd_set_error (bfd_error_file_truncated);
@@ -682,12 +676,6 @@ _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
       if (_bfd_vms_slurp_object_records (abfd) != TRUE)
        return FALSE;
 
-      section->filepos = VMS_BLOCK_SIZE * (gstvbn - 1);
-      section->size = bfd_tell (abfd) - section->filepos;
-
-      if (!bfd_set_section_flags (abfd, section, bfd_flags))
-       return FALSE;
-
       abfd->flags |= HAS_SYMS;
     }