diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls')
6 files changed, 141 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/diag-1.mm b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/diag-1.mm new file mode 100644 index 000000000..7c3245d9f --- /dev/null +++ b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/diag-1.mm @@ -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-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-1.mm b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-1.mm new file mode 100644 index 000000000..62e322ed1 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-1.mm @@ -0,0 +1,25 @@ +// { dg-do run } +// { dg-require-effective-target tls } +// { dg-add-options tls } + +extern "C" { +extern void abort (); +} + +static __thread int fstat = 1; + +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 ) + abort (); + + return 0; +} diff --git a/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-2.mm b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-2.mm new file mode 100644 index 000000000..4e3f8e6e3 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-2.mm @@ -0,0 +1,45 @@ +// { dg-do run } +// { dg-require-effective-target tls } +// { dg-add-options tls } + +extern "C" { +extern void abort (); +} + +__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 ) + abort () ; + + a = fa(glb); + if ( a != 6 ) + abort () ; + + a = fb(a); + if ( a != 10 || glb != 10 ) + abort () ; + + return 0; +} diff --git a/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-3.mm b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-3.mm new file mode 100644 index 000000000..a3d66089e --- /dev/null +++ b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/thr-init-3.mm @@ -0,0 +1,40 @@ +/* { dg-do run } */ +/* { dg-require-effective-target tls } */ +/* { dg-add-options tls } */ +/* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */ + +#include "../../../objc-obj-c++-shared/TestsuiteObject.m" +extern "C" { +extern void abort (); +} + +@interface tsObj: TestsuiteObject { + 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 ) + abort () ; + + return 0; +} diff --git a/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/tls.exp b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/tls.exp new file mode 100644 index 000000000..6d0668045 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/tls.exp @@ -0,0 +1,16 @@ +# This harness is for tests that should be run at all optimisation levels. + +load_lib obj-c++-dg.exp + +dg-init +# Gather a list of all tests. +set tests [lsort [glob -nocomplain $srcdir/$subdir/*.mm]] + +obj-c++-dg-runtest $tests "-fgnu-runtime" + +# darwin targets can also run code with the NeXT runtime. +if [istarget "*-*-darwin*" ] { + obj-c++-dg-runtest $tests "-fnext-runtime" +} + +dg-finish diff --git a/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/trivial.mm b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/trivial.mm new file mode 100644 index 000000000..e2b8f45b8 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/obj-c++.dg/torture/tls/trivial.mm @@ -0,0 +1,3 @@ +// { dg-require-effective-target tls } + +__thread int i; |