Add debug msg to dump_file in add_new_function
2014-06-04 Tom de Vries <tom@codesourcery.com>
* cgraphunit.c (cgraph_node::add_new_function): Dump message on new
function.
* gcc.dg/gomp/notify-new-function-2.c: New test.
* gcc.dg/gomp/notify-new-function-3.c: Same.
* gcc.dg/gomp/notify-new-function.c: Same.
---
gcc/cgraphunit.c | 17 +++++++++++++++++
gcc/testsuite/gcc.dg/gomp/notify-new-function-2.c | 20 ++++++++++++++++++++
gcc/testsuite/gcc.dg/gomp/notify-new-function-3.c | 14 ++++++++++++++
gcc/testsuite/gcc.dg/gomp/notify-new-function.c | 17 +++++++++++++++++
4 files changed, 68 insertions(+)
create mode 100644 gcc/testsuite/gcc.dg/gomp/notify-new-function-2.c
create mode 100644 gcc/testsuite/gcc.dg/gomp/notify-new-function-3.c
create mode 100644 gcc/testsuite/gcc.dg/gomp/notify-new-function.c
@@ -503,6 +503,23 @@ cgraph_node::add_new_function (tree fndecl, bool lowered)
{
gcc::pass_manager *passes = g->get_passes ();
cgraph_node *node;
+
+ if (dump_file)
+ {
+ struct function *fn = DECL_STRUCT_FUNCTION (fndecl);
+ const char *function_type = ((gimple_has_body_p (fndecl))
+ ? (lowered
+ ? (gimple_in_ssa_p (fn)
+ ? "ssa gimple"
+ : "low gimple")
+ : "high gimple")
+ : "to-be-gimplified");
+ fprintf (dump_file,
+ "Added new %s function %s to callgraph\n",
+ function_type,
+ fndecl_name (fndecl));
+ }
+
switch (symtab->state)
{
case PARSING:
new file mode 100644
@@ -0,0 +1,20 @@
+/* { dg-do compile } */
+/* { dg-options "-O2 -fopenmp -fdump-tree-omplower" } */
+
+void __attribute__((noinline))
+baz (int *p)
+{
+}
+
+void
+foo (void)
+{
+ int p[2];
+ p[0] = 1;
+ p[1] = 3;
+ #pragma omp task firstprivate (p)
+ baz (p);
+}
+
+/* Check for new function notification in omplower dump. */
+/* { dg-final { scan-tree-dump-times "Added new high gimple function foo\\._omp_cpyfn\\.1 to callgraph" 1 "omplower" } } */
new file mode 100644
@@ -0,0 +1,14 @@
+/* { dg-do compile } */
+/* { dg-options "-O2 -ftree-parallelize-loops=2 -fdump-tree-ompexpssa" } */
+
+void
+foo (int *__restrict a, int *__restrict b, int *__restrict c)
+{
+ int i;
+ for (i = 0; i < 1000; ++i)
+ c[i] = a[i] + b[i];
+}
+
+
+/* Check for new function notification in ompexpssa dump. */
+/* { dg-final { scan-tree-dump-times "Added new ssa gimple function foo\\._loopfn\\.0 to callgraph" 1 "ompexpssa" } } */
new file mode 100644
@@ -0,0 +1,17 @@
+/* { dg-do compile } */
+/* { dg-options "-O2 -fopenmp -fdump-tree-ompexp" } */
+
+int
+main (void)
+{
+#pragma omp parallel
+ {
+ extern void foo (void);
+ foo ();
+ }
+ return 0;
+}
+
+
+/* Check for new function notification in ompexp dump. */
+/* { dg-final { scan-tree-dump-times "Added new low gimple function main\\._omp_fn\\.0 to callgraph" 1 "ompexp" } } */
--
1.9.1