On Fri, 29 Nov 2013, Jakub Jelinek wrote:
> Hi!
>
> And here is second part of the fixes. Still, the vect-simd-clone-12.c
> testcase fails with -flto -flto-partition=1to1, so there is further work to
> do, but at least all current test succeed and actually use SIMD elementals
> when they should. Bootstrapped/regtested on x86_64-linux and i686-linux,
> ok for trunk?
Ok. Still my hack
> - bool gate () { return flag_openmp || flag_openmp_simd
> - || flag_enable_cilkplus; }
> + bool gate () { return ((flag_openmp || flag_openmp_simd
> + || flag_enable_cilkplus || flag_ltrans)
> + &&
(targetm.simd_clone.compute_vecsize_and_simdlen
> + != NULL)); }
won't work for -flto-partition=none. Instead of flag_ltrans you
probably want to test (in_lto_p && !flag_wpa).
Richard.
> 2013-11-28 Jakub Jelinek
> Richard Biener
>
> PR lto/59326
> * omp-low.c (simd_clone_create): Return NULL if for definition
> !cgraph_function_with_gimple_body_p (old_node). Call cgraph_get_body
> before calling cgraph_function_versioning.
> (expand_simd_clones): Look for "omp declare simd" attribute first.
> Don't check targetm.simd_clone.compute_vecsize_and_simdlen here.
> Punt if node->global.inlined_to.
> (pass_omp_simd_clone::gate): Also enable if flag_ltrans. Disable
> pass if targetm.simd_clone.compute_vecsize_and_simdlen is NULL.
> * lto-streamer-out.c (hash_tree): Handle OMP_CLAUSE.
> lto/
> * lto.c (compare_tree_sccs_1): Handle OMP_CLAUSE.
> testsuite/
> * gcc.dg/vect/vect-simd-clone-12.c: New test.
> * gcc.dg/vect/vect-simd-clone-12a.c: New test.
> * gcc.dg/vect/vect-simd-clone-10a.c: Remove extern keywords.
>
> --- gcc/omp-low.c.jj 2013-11-27 12:15:13.0 +0100
> +++ gcc/omp-low.c 2013-11-28 16:53:49.388242468 +0100
> @@ -10912,8 +10912,13 @@ simd_clone_create (struct cgraph_node *o
> {
>struct cgraph_node *new_node;
>if (old_node->definition)
> -new_node = cgraph_function_versioning (old_node, vNULL, NULL, NULL,
> false,
> -NULL, NULL, "simdclone");
> +{
> + if (!cgraph_function_with_gimple_body_p (old_node))
> + return NULL;
> + cgraph_get_body (old_node);
> + new_node = cgraph_function_versioning (old_node, vNULL, NULL, NULL,
> + false, NULL, NULL, "simdclone");
> +}
>else
> {
>tree old_decl = old_node->decl;
> @@ -11622,13 +11627,13 @@ simd_clone_adjust (struct cgraph_node *n
> static void
> expand_simd_clones (struct cgraph_node *node)
> {
> - if (lookup_attribute ("noclone", DECL_ATTRIBUTES (node->decl)))
> -return;
> -
>tree attr = lookup_attribute ("omp declare simd",
> DECL_ATTRIBUTES (node->decl));
> - if (!attr || targetm.simd_clone.compute_vecsize_and_simdlen == NULL)
> + if (attr == NULL_TREE
> + || node->global.inlined_to
> + || lookup_attribute ("noclone", DECL_ATTRIBUTES (node->decl)))
> return;
> +
>/* Ignore
> #pragma omp declare simd
> extern int foo ();
> @@ -11764,8 +11769,10 @@ public:
>{}
>
>/* opt_pass methods: */
> - bool gate () { return flag_openmp || flag_openmp_simd
> - || flag_enable_cilkplus; }
> + bool gate () { return ((flag_openmp || flag_openmp_simd
> + || flag_enable_cilkplus || flag_ltrans)
> + && (targetm.simd_clone.compute_vecsize_and_simdlen
> + != NULL)); }
>unsigned int execute () { return ipa_omp_simd_clone (); }
> };
>
> --- gcc/lto/lto.c.jj 2013-11-28 16:02:36.0 +0100
> +++ gcc/lto/lto.c 2013-11-28 16:27:04.164663085 +0100
> @@ -1410,6 +1410,36 @@ compare_tree_sccs_1 (tree t1, tree t2, t
> TREE_STRING_LENGTH (t1)) != 0)
>return false;
>
> + if (code == OMP_CLAUSE)
> +{
> + compare_values (OMP_CLAUSE_CODE);
> + switch (OMP_CLAUSE_CODE (t1))
> + {
> + case OMP_CLAUSE_DEFAULT:
> + compare_values (OMP_CLAUSE_DEFAULT_KIND);
> + break;
> + case OMP_CLAUSE_SCHEDULE:
> + compare_values (OMP_CLAUSE_SCHEDULE_KIND);
> + break;
> + case OMP_CLAUSE_DEPEND:
> + compare_values (OMP_CLAUSE_DEPEND_KIND);
> + break;
> + case OMP_CLAUSE_MAP:
> + compare_values (OMP_CLAUSE_MAP_KIND);
> + break;
> + case OMP_CLAUSE_PROC_BIND:
> + compare_values (OMP_CLAUSE_PROC_BIND_KIND);
> + break;
> + case OMP_CLAUSE_REDUCTION:
> + compare_values (OMP_CLAUSE_REDUCTION_CODE);
> + compare_values (OMP_CLAUSE_REDUCTION_GIMPLE_INIT);
> + compare_values (OMP_CLAUSE_REDUCTION_GIMPLE_MERGE);
> + break;
> + default:
> + break;
> + }
> +}
> +
> #undef compare_values
>
>
> @@ -1633,6 +1663,16 @@ compare_tree_sccs_1 (tree t1,
