[6/8] Multi-dimensional dynamic array support for OpenACC data clauses, tree pretty...

2018-10-16  Chung-Lin Tang  <cltang@codesourcery.com>

	gcc/
	* tree-pretty-print.c (dump_omp_clauses): Add cases for printing
	GOMP_MAP_DYNAMIC_ARRAY map kinds.

(cherry picked from openacc-gcc-9-branch commit
1851ac580e2727cd8d2a3a8793e19fc02e8716b4)

diff --git a/gcc/ChangeLog.omp b/gcc/ChangeLog.omp
index 883b143b4767991389fc56d20d13ce24b19f6c33..fbe1afe552cabad5f3a5d836d28feefb1ea297a5 100644 (file)
--- a/gcc/ChangeLog.omp
+++ b/gcc/ChangeLog.omp
@@ -1,3 +1,8 @@
+2018-10-16  Chung-Lin Tang  <cltang@codesourcery.com>
+
+       * tree-pretty-print.c (dump_omp_clauses): Add cases for printing
+       GOMP_MAP_DYNAMIC_ARRAY map kinds.
+
 2018-10-16  Chung-Lin Tang  <cltang@codesourcery.com>
 
        * omp-low.c (dynamic_array_lookup): New function.

diff --git a/gcc/tree-pretty-print.c b/gcc/tree-pretty-print.c
index 2df1f2345bf6d7b47225cfab35801847a53908d7..589972ed90d62159a68e1c22d2506dd8be56effd 100644 (file)
--- a/gcc/tree-pretty-print.c
+++ b/gcc/tree-pretty-print.c
@@ -826,6 +826,33 @@ dump_omp_clause (pretty_printer *pp, tree clause, int spc, dump_flags_t flags)
        case GOMP_MAP_LINK:
          pp_string (pp, "link");
          break;
+       case GOMP_MAP_DYNAMIC_ARRAY_TO:
+         pp_string (pp, "to,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_FROM:
+         pp_string (pp, "from,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_TOFROM:
+         pp_string (pp, "tofrom,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_FORCE_TO:
+         pp_string (pp, "force_to,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_FORCE_FROM:
+         pp_string (pp, "force_from,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_FORCE_TOFROM:
+         pp_string (pp, "force_tofrom,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_ALLOC:
+         pp_string (pp, "alloc,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_FORCE_ALLOC:
+         pp_string (pp, "force_alloc,dynamic_array");
+         break;
+       case GOMP_MAP_DYNAMIC_ARRAY_FORCE_PRESENT:
+         pp_string (pp, "force_present,dynamic_array");
+         break;
        case GOMP_MAP_ATTACH:
          pp_string (pp, "attach");
          break;
@@ -856,6 +883,10 @@ dump_omp_clause (pretty_printer *pp, tree clause, int spc, dump_flags_t flags)
            case GOMP_MAP_TO_PSET:
              pp_string (pp, " [pointer set, len: ");
              break;
+           case GOMP_MAP_DYNAMIC_ARRAY:
+             gcc_assert (TREE_CODE (OMP_CLAUSE_SIZE (clause)) == TREE_LIST);
+             pp_string (pp, " [dimensions: ");
+             break;
            default:
              pp_string (pp, " [len: ");
              break;