This tree-pretty-print.c patch allows proper dumping of the dynamic arrays case
of OMP_CLAUSE_MAP.

Thanks,
Chung-Lin

        gcc/
        * tree-pretty-print.c (dump_omp_clauses): Add cases for printing
        GOMP_MAP_DYNAMIC_ARRAY map kinds.
diff --git a/gcc/tree-pretty-print.c b/gcc/tree-pretty-print.c
index 1c7982c..803f76b 100644
--- a/gcc/tree-pretty-print.c
+++ b/gcc/tree-pretty-print.c
@@ -745,6 +745,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;
        default:
          gcc_unreachable ();
        }
@@ -766,6 +793,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;

Reply via email to