@@ -1402,6 +1402,17 @@ dump_omp_clause (pretty_printer *pp, tree clause, int spc, dump_flags_t flags)
}
}
+/* Print the single clause at the top of the clause chain C to a string and
+ return it. Note that print_generic_expr_to_str prints the whole clause chain
+ instead. The caller must free the returned memory. */
+
+char *
+print_omp_clause_to_str (tree c)
+{
+ pretty_printer pp;
+ dump_omp_clause (&pp, c, 0, TDF_VOPS|TDF_MEMSYMS);
+ return xstrdup (pp_formatted_text (&pp));
+}
/* Dump chain of OMP clauses.
@@ -41,6 +41,7 @@ extern void print_generic_expr (FILE *, tree, dump_flags_t = TDF_NONE);
extern char *print_generic_expr_to_str (tree);
extern void dump_omp_clauses (pretty_printer *, tree, int, dump_flags_t,
bool = true);
+extern char *print_omp_clause_to_str (tree);
extern void dump_omp_atomic_memory_order (pretty_printer *,
enum omp_memory_order);
extern void dump_omp_loop_non_rect_expr (pretty_printer *, tree, int,