From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/objc.dg/torture/tls/diag-1.m     | 12 +++++++
 gcc/testsuite/objc.dg/torture/tls/thr-init-2.m | 43 ++++++++++++++++++++++++++
 gcc/testsuite/objc.dg/torture/tls/thr-init-3.m | 39 +++++++++++++++++++++++
 gcc/testsuite/objc.dg/torture/tls/thr-init.m   | 26 ++++++++++++++++
 gcc/testsuite/objc.dg/torture/tls/tls.exp      | 17 ++++++++++
 gcc/testsuite/objc.dg/torture/tls/trivial.m    |  3 ++
 6 files changed, 140 insertions(+)
 create mode 100644 gcc/testsuite/objc.dg/torture/tls/diag-1.m
 create mode 100644 gcc/testsuite/objc.dg/torture/tls/thr-init-2.m
 create mode 100644 gcc/testsuite/objc.dg/torture/tls/thr-init-3.m
 create mode 100644 gcc/testsuite/objc.dg/torture/tls/thr-init.m
 create mode 100644 gcc/testsuite/objc.dg/torture/tls/tls.exp
 create mode 100644 gcc/testsuite/objc.dg/torture/tls/trivial.m

(limited to 'gcc/testsuite/objc.dg/torture/tls')

diff --git a/gcc/testsuite/objc.dg/torture/tls/diag-1.m b/gcc/testsuite/objc.dg/torture/tls/diag-1.m
new file mode 100644
index 000000000..7c3245d9f
--- /dev/null
+++ b/gcc/testsuite/objc.dg/torture/tls/diag-1.m
@@ -0,0 +1,12 @@
+// Valid __thread specifiers.
+// { dg-require-effective-target tls }
+
+__thread int g1;
+extern __thread int g2;
+static __thread int g3;
+
+void foo()
+{
+  extern __thread int l1;
+  static __thread int l2;
+}
diff --git a/gcc/testsuite/objc.dg/torture/tls/thr-init-2.m b/gcc/testsuite/objc.dg/torture/tls/thr-init-2.m
new file mode 100644
index 000000000..cdbef4d77
--- /dev/null
+++ b/gcc/testsuite/objc.dg/torture/tls/thr-init-2.m
@@ -0,0 +1,43 @@
+// { dg-do run }
+// { dg-require-effective-target tls_runtime }
+// { dg-add-options tls }
+
+extern void _exit(int);
+
+__thread int glb =1 ;
+
+static __thread int fstat = 2;
+
+int fa(int a)
+{
+static __thread int as = 3;
+  as += a ;
+  return as;
+}
+
+int fb(int b)
+{
+static __thread int bs = 4;
+  bs += b ;
+  glb = bs;
+  return bs;
+}
+
+int main (int ac, char *av[])
+{
+  int a = 1;
+  
+  a = fa(fstat);
+  if ( a != 5 ) 
+    _exit (-(__LINE__)) ;
+
+  a = fa(glb);
+  if ( a != 6 ) 
+    _exit (-(__LINE__)) ;
+
+  a = fb(a);  
+  if ( a != 10 || glb != 10 ) 
+    _exit (-(__LINE__)) ;
+  
+  return 0;
+}
diff --git a/gcc/testsuite/objc.dg/torture/tls/thr-init-3.m b/gcc/testsuite/objc.dg/torture/tls/thr-init-3.m
new file mode 100644
index 000000000..b52c87391
--- /dev/null
+++ b/gcc/testsuite/objc.dg/torture/tls/thr-init-3.m
@@ -0,0 +1,39 @@
+/* { dg-do run } */
+/* { dg-require-effective-target tls_runtime } */
+/* { dg-add-options tls } */
+/* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
+/* { dg-additional-sources "../../../objc-obj-c++-shared/Object1.m" } */
+
+#include "../../../objc-obj-c++-shared/Object1.h"
+extern void _exit(int);
+
+@interface tsObj: Object {
+  int ai ;
+}
+
+- (int) fa:(int) n;
+
+@end
+
+@implementation tsObj
+
+- (int) fa:(int) n
+{
+static __thread int as = 3;
+  as += n ;
+  return as ;
+}
+
+@end
+
+int main (int ac, char *av[])
+{
+  int a ;
+  tsObj *to = [tsObj new];
+  
+  a = [to fa:5];
+  if ( a != 8 ) 
+    _exit (-(__LINE__)) ;
+  
+  return 0;
+}
diff --git a/gcc/testsuite/objc.dg/torture/tls/thr-init.m b/gcc/testsuite/objc.dg/torture/tls/thr-init.m
new file mode 100644
index 000000000..986b425f7
--- /dev/null
+++ b/gcc/testsuite/objc.dg/torture/tls/thr-init.m
@@ -0,0 +1,26 @@
+/* { dg-do run } */
+/* { dg-require-effective-target tls_runtime } */
+/* { dg-add-options tls } */
+
+extern void _exit(int);
+
+static __thread int fstat ;
+
+static __thread int fstat = 1;
+
+static __thread int fstat ;
+
+int test_code(int b)
+{
+  fstat += b ;
+  return fstat;
+}
+
+int main (int ac, char *av[])
+{
+  int a = test_code(1);
+  
+  if ( a != 2 || fstat != 2 ) _exit (-(__LINE__)) ;
+  
+  return 0;
+}
diff --git a/gcc/testsuite/objc.dg/torture/tls/tls.exp b/gcc/testsuite/objc.dg/torture/tls/tls.exp
new file mode 100644
index 000000000..4b1869e9c
--- /dev/null
+++ b/gcc/testsuite/objc.dg/torture/tls/tls.exp
@@ -0,0 +1,17 @@
+# This harness is for tests that should be run at all optimisation levels.
+
+load_lib objc-dg.exp
+
+dg-init
+
+# Gather a list of all tests.
+set tests [lsort [glob -nocomplain $srcdir/$subdir/*.m]]
+
+objc-dg-runtest $tests "-fgnu-runtime"
+
+# darwin targets can also run code with the NeXT runtime.
+if [istarget "*-*-darwin*" ] {
+  objc-dg-runtest $tests "-fnext-runtime"
+}
+
+dg-finish
diff --git a/gcc/testsuite/objc.dg/torture/tls/trivial.m b/gcc/testsuite/objc.dg/torture/tls/trivial.m
new file mode 100644
index 000000000..e2b8f45b8
--- /dev/null
+++ b/gcc/testsuite/objc.dg/torture/tls/trivial.m
@@ -0,0 +1,3 @@
+// { dg-require-effective-target tls }
+
+__thread int i;
-- 
cgit v1.2.3