From d88513eaf77e9dd8bcc5a662518d18bd350e383c Mon Sep 17 00:00:00 2001 From: Patrick Marlier Date: Mon, 20 Aug 2012 16:22:17 +0000 Subject: [PATCH] re PR middle-end/53992 (Combining -fopenmp and -fgnu-tm results in segfault or misbehaving binaries) gcc/ 2012-08-20 Patrick Marlier PR middle-end/53992 * omp-low.c (lower_omp_1): Handle GIMPLE_TRANSACTION. testsuite/ 2012-08-20 Patrick Marlier PR middle-end/53992 * gcc.dg/gomp/pr53992.c: New test. From-SVN: r190536 --- gcc/ChangeLog | 5 +++++ gcc/omp-low.c | 3 +++ gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gcc.dg/gomp/pr53992.c | 21 +++++++++++++++++++++ 4 files changed, 34 insertions(+) create mode 100644 gcc/testsuite/gcc.dg/gomp/pr53992.c diff --git a/gcc/ChangeLog b/gcc/ChangeLog index cfb31890b47..a80dafe88dc 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2012-08-20 Patrick Marlier + + PR middle-end/53992 + * omp-low.c (lower_omp_1): Handle GIMPLE_TRANSACTION. + 2012-08-20 Richard Earnshaw PR tree-ssa/54295 diff --git a/gcc/omp-low.c b/gcc/omp-low.c index 846840e2b67..adbd0345f9e 100644 --- a/gcc/omp-low.c +++ b/gcc/omp-low.c @@ -6827,6 +6827,9 @@ lower_omp_1 (gimple_stmt_iterator *gsi_p, omp_context *ctx) lower_omp (gimple_try_eval_ptr (stmt), ctx); lower_omp (gimple_try_cleanup_ptr (stmt), ctx); break; + case GIMPLE_TRANSACTION: + lower_omp (gimple_transaction_body_ptr (stmt), ctx); + break; case GIMPLE_BIND: lower_omp (gimple_bind_body_ptr (stmt), ctx); break; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f33149ae1b6..3ff68d8de67 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-08-20 Patrick Marlier + + PR middle-end/53992 + * gcc.dg/gomp/pr53992.c: New test. + 2012-08-20 Richard Earnshaw PR tree-ssa/54295 diff --git a/gcc/testsuite/gcc.dg/gomp/pr53992.c b/gcc/testsuite/gcc.dg/gomp/pr53992.c new file mode 100644 index 00000000000..4d5af3ce785 --- /dev/null +++ b/gcc/testsuite/gcc.dg/gomp/pr53992.c @@ -0,0 +1,21 @@ +/* PR middle-end/53992 */ +/* { dg-do compile } */ +/* { dg-options "-fgnu-tm -fopenmp" } */ +/* { dg-require-effective-target fgnu_tm } */ + +int main() { + long data[10000]; + long i, min=10000; + for (i=0; i<10000; i++) data[i] = -i; + +#pragma omp parallel for + for (i=0; i<10000; i++) { + __transaction_atomic + { + if (data[i] < min) + min = data[i]; + } + } + + return !(min == -9999); +} -- 2.30.2