diff options
| author | Tom de Vries <tdevries@suse.de> | 2022-03-18 10:34:02 +0100 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2022-03-18 16:16:24 +0100 |
| commit | 356e2720e9030927579024c2f060d665a0b9080f (patch) | |
| tree | 9252b0b01116b5a9d156179f7b5266b09b286a56 /gcc/gimplify.cc | |
| parent | 093cdadbce30ce2d36846a05d979b8afc2eff618 (diff) | |
| download | gcc-356e2720e9030927579024c2f060d665a0b9080f.zip gcc-356e2720e9030927579024c2f060d665a0b9080f.tar.gz gcc-356e2720e9030927579024c2f060d665a0b9080f.tar.bz2 | |
[openmp] Set location for taskloop stmts
The test-case included in this patch contains:
...
#pragma omp taskloop simd shared(a) lastprivate(myId)
...
This is translated to 3 taskloop statements in gimple, visible with
-fdump-tree-gimple:
...
#pragma omp taskloop private(D.2124)
#pragma omp taskloop shared(a) shared(myId) private(i.0) firstprivate(a_h)
#pragma omp taskloop lastprivate(myId)
...
But when exposing the gimple statement locations using
-fdump-tree-gimple-lineno, we find that only the first one has location
information.
Fix this by adding the missing location information.
Tested gomp.exp on x86_64.
Tested libgomp testsuite on x86_64 with nvptx accelerator.
gcc/ChangeLog:
2022-03-18 Tom de Vries <tdevries@suse.de>
* gimplify.cc (gimplify_omp_for): Set taskloop location.
gcc/testsuite/ChangeLog:
2022-03-18 Tom de Vries <tdevries@suse.de>
* c-c++-common/gomp/pr104968.c: New test.
Diffstat (limited to 'gcc/gimplify.cc')
| -rw-r--r-- | gcc/gimplify.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/gimplify.cc b/gcc/gimplify.cc index 139a0de..c465896 100644 --- a/gcc/gimplify.cc +++ b/gcc/gimplify.cc @@ -13178,6 +13178,7 @@ gimplify_omp_for (tree *expr_p, gimple_seq *pre_p) gfor = gimple_build_omp_for (for_body, kind, OMP_FOR_CLAUSES (orig_for_stmt), TREE_VEC_LENGTH (OMP_FOR_INIT (for_stmt)), for_pre_body); + gimple_set_location (gfor, EXPR_LOCATION (*expr_p)); if (orig_for_stmt != for_stmt) gimple_omp_for_set_combined_p (gfor, true); if (gimplify_omp_ctxp @@ -13361,6 +13362,7 @@ gimplify_omp_for (tree *expr_p, gimple_seq *pre_p) g = gimple_build_bind (NULL_TREE, gfor, NULL_TREE); g = gimple_build_omp_task (g, task_clauses, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE); + gimple_set_location (g, EXPR_LOCATION (*expr_p)); gimple_omp_task_set_taskloop_p (g, true); g = gimple_build_bind (NULL_TREE, g, NULL_TREE); gomp_for *gforo |