2010-08-04 Tristan Gingold <gingold@adacore.com>

	* vms-alpha.c (alpha_vms_create_eisd_for_section): Do not make
	CODE sections writable.

diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index c7a1c3f1bc35da7ba42214603ed7a1dd1c377f47..c653f7350ac741bcfbb4ee9ba96d8177e6381ee1 100644 (file)
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-04  Tristan Gingold  <gingold@adacore.com>
+
+       * vms-alpha.c (alpha_vms_create_eisd_for_section): Do not make
+       CODE sections writable.
+
 2010-08-04  Tristan Gingold  <gingold@adacore.com>
 
        * vms-alpha.c (alpha_vms_add_lw_fixup): Renamed to ...

diff --git a/bfd/vms-alpha.c b/bfd/vms-alpha.c
index 916c279fac02af54571ba0d34398a046be35d04e..1f6e97fde57729ca8fc964ce989d0782029826fd 100644 (file)
--- a/bfd/vms-alpha.c
+++ b/bfd/vms-alpha.c
@@ -2901,7 +2901,7 @@ alpha_vms_create_eisd_for_section (bfd *abfd, asection *sec)
 
   if (sec->flags & SEC_CODE)
     eisd->u.eisd.flags |= EISD__M_EXE;
-  if (!(sec->flags & SEC_READONLY))
+  else if (!(sec->flags & SEC_READONLY))
     eisd->u.eisd.flags |= EISD__M_WRT | EISD__M_CRF;
 
   if (!(sec->flags & SEC_LOAD))