From: Richard Henderson <rth@redhat.com>
Date: Wed, 22 May 2002 23:31:48 +0000 (-0700)
Subject: varasm.c (default_section_type_flags): Handle tls data and default sections.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c711ba8e2edb69d3f6fa58cfba1d6dc49847afcd;p=gcc.git

varasm.c (default_section_type_flags): Handle tls data and default sections.

        * varasm.c (default_section_type_flags): Handle tls data and
        default sections.
        (default_unique_section): Handle tls sections.

From-SVN: r53753
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 88f72e42cd1..9ededbccd39 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2002-05-22  Richard Henderson  <rth@redhat.com>
+
+	* varasm.c (default_section_type_flags): Handle tls data and
+	default sections.
+	(default_unique_section): Handle tls sections.
+
 2002-05-23  Alan Modra  <amodra@bigpond.net.au>
 
 	* configure.in (CROSS): Define NATIVE_CROSS.
diff --git a/gcc/testsuite/gcc.dg/tls/section-1.c b/gcc/testsuite/gcc.dg/tls/section-1.c
new file mode 100644
index 00000000000..741eadba536
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/tls/section-1.c
@@ -0,0 +1,11 @@
+/* Verify that we get errors for trying to put TLS data in 
+   sections which can't work.  */
+
+#define A(X)	__attribute__((section(X)))
+
+__thread int i A("foo");		/* Ok */
+
+__thread int j A(".data");  /* { dg-error "causes a section type conflict" "conflict with .data section" { xfail *-*-* } } */
+
+int k A("bar");
+__thread int l A("bar");  /* { dg-error "causes a section type conflict" "conflict with user-defined section" } */
diff --git a/gcc/varasm.c b/gcc/varasm.c
index 3165b92f56c..0c4b3cd942b 100644
--- a/gcc/varasm.c
+++ b/gcc/varasm.c
@@ -5105,17 +5105,23 @@ default_section_type_flags (decl, name, reloc)
   if (decl && DECL_ONE_ONLY (decl))
     flags |= SECTION_LINKONCE;
 
+  if (decl && DECL_THREAD_LOCAL (decl))
+    flags |= SECTION_TLS | SECTION_WRITE;
+
   if (strcmp (name, ".bss") == 0
       || strncmp (name, ".bss.", 5) == 0
       || strncmp (name, ".gnu.linkonce.b.", 16) == 0
       || strcmp (name, ".sbss") == 0
       || strncmp (name, ".sbss.", 6) == 0
       || strncmp (name, ".gnu.linkonce.sb.", 17) == 0
-      || strcmp (name, ".tbss") == 0)
+      || strcmp (name, ".tbss") == 0
+      || strncmp (name, ".gnu.linkonce.tb.", 17) == 0)
     flags |= SECTION_BSS;
 
   if (strcmp (name, ".tdata") == 0
-      || strcmp (name, ".tbss") == 0)
+      || strcmp (name, ".tbss") == 0
+      || strncmp (name, ".gnu.linkonce.td.", 17) == 0
+      || strncmp (name, ".gnu.linkonce.tb.", 17) == 0)
     flags |= SECTION_TLS;
 
   return flags;
@@ -5495,7 +5501,11 @@ default_unique_section (decl, reloc)
       prefix = one_only ? ".gnu.linkonce.sb." : ".sbss.";
       break;
     case SECCAT_TDATA:
+      prefix = one_only ? ".gnu.linkonce.td." : ".tdata.";
+      break;
     case SECCAT_TBSS:
+      prefix = one_only ? ".gnu.linkonce.tb." : ".tbss.";
+      break;
     default:
       abort ();
     }