PR binutils/1568

* config/obj-coff.c (obj_coff_section): Set readonly flag with the 'x'
attribute.  Remember the actions of the 'w' and 'n' attributes and do not
allow the 'x','s' or 'd' attributes to change them.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index b7ec09a..e1d2fe7 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,10 @@
+2005-11-07  Nick Clifton  <nickc@redhat.com>
+
+       PR binutils/1568
+       * config/obj-coff.c (obj_coff_section): Set readonly flag with the
+       'x' attribute.  Remember the actions of the 'w' and 'n' attributes
+       and do not allow the 'x','s' or 'd' attributes to change them.
+
 2005-11-07  John Levon  <levon@movementarian.org>
 
        * config/tc-i386.h (tc_comment_chars): Define.

diff --git a/gas/config/obj-coff.c b/gas/config/obj-coff.c
index ce4d6f5..a5a76ff 100644 (file)
--- a/gas/config/obj-coff.c
+++ b/gas/config/obj-coff.c
@@ -1522,38 +1522,81 @@ obj_coff_section (int ignore ATTRIBUTE_UNUSED)
        exp = get_absolute_expression ();
       else
        {
-         ++input_line_pointer;
-         while (*input_line_pointer != '"'
-                && ! is_end_of_line[(unsigned char) *input_line_pointer])
+         unsigned char attr;
+         int readonly_removed = 0;
+         int load_removed = 0;
+
+         while (attr = *++input_line_pointer,
+                attr != '"'
+                && ! is_end_of_line[attr])
            {
-             switch (*input_line_pointer)
+             switch (attr)
                {
-               case 'b': flags |= SEC_ALLOC; flags &=~ SEC_LOAD; break;
-               case 'n': flags &=~ SEC_LOAD; flags |= SEC_NEVER_LOAD; break;
+               case 'b':
+                 /* Uninitialised data section.  */
+                 flags |= SEC_ALLOC;
+                 flags &=~ SEC_LOAD;
+                 break;
+
+               case 'n':
+                 /* Section not loaded.  */
+                 flags &=~ SEC_LOAD;
+                 flags |= SEC_NEVER_LOAD;
+                 load_removed = 1;
+                 break;
+
+               case 's':
+                 /* Shared section.  */
+                 flags |= SEC_COFF_SHARED;
+                 /* Fall through.  */
+               case 'd':
+                 /* Data section.  */
+                 flags |= SEC_DATA;
+                 if (! load_removed)
+                   flags |= SEC_LOAD;
+                 flags &=~ SEC_READONLY;
+                 break;
 
-               case 's': flags |= SEC_COFF_SHARED; /* Fall through.  */
-               case 'd': flags |= SEC_DATA | SEC_LOAD; /* Fall through.  */
-               case 'w': flags &=~ SEC_READONLY; break;
+               case 'w':
+                 /* Writable section.  */
+                 flags &=~ SEC_READONLY;
+                 readonly_removed = 1;
+                 break;
 
-               case 'a': break; /* For compatibility with ELF.  */
-               case 'x': flags |= SEC_CODE | SEC_LOAD; break;
-               case 'r': flags |= SEC_DATA | SEC_LOAD | SEC_READONLY; break;
+               case 'a':
+                 /* Ignore.  Here for compatibility with ELF.  */
+                 break;
+
+               case 'r': /* Read-only section.  Implies a data section.  */
+                 readonly_removed = 0;
+                 /* Fall through.  */
+               case 'x': /* Executable section.  */
+                 /* If we are setting the 'x' attribute or if the 'r'
+                    attribute is being used to restore the readonly status
+                    of a code section (eg "wxr") then set the SEC_CODE flag,
+                    otherwise set the SEC_DATA flag.  */
+                 flags |= (attr == 'x' || (flags & SEC_CODE) ? SEC_CODE : SEC_DATA);
+                 if (! load_removed)
+                   flags |= SEC_LOAD;
+                 /* Note - the READONLY flag is set here, even for the 'x'
+                    attrbiute in order to be compatible with the MSVC
+                    linker.  */
+                 if (! readonly_removed)
+                   flags |= SEC_READONLY;
+                 break;
 
                case 'i': /* STYP_INFO */
                case 'l': /* STYP_LIB */
                case 'o': /* STYP_OVER */
-                 as_warn (_("unsupported section attribute '%c'"),
-                          *input_line_pointer);
+                 as_warn (_("unsupported section attribute '%c'"), attr);
                  break;
 
                default:
-                 as_warn (_("unknown section attribute '%c'"),
-                          *input_line_pointer);
+                 as_warn (_("unknown section attribute '%c'"), attr);
                  break;
                }
-             ++input_line_pointer;
            }
-         if (*input_line_pointer == '"')
+         if (attr == '"')
            ++input_line_pointer;
        }
     }