diff options
Diffstat (limited to 'gcc/gimple-pretty-print.cc')
| -rw-r--r-- | gcc/gimple-pretty-print.cc | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/gimple-pretty-print.cc b/gcc/gimple-pretty-print.cc index d1531fc..4e20b4c 100644 --- a/gcc/gimple-pretty-print.cc +++ b/gcc/gimple-pretty-print.cc @@ -1755,6 +1755,25 @@ dump_gimple_omp_dispatch (pretty_printer *buffer, const gimple *gs, int spc, } } +/* Dump a GIMPLE_OMP_INTEROP tuple on the pretty_printer BUFFER. */ + +static void +dump_gimple_omp_interop (pretty_printer *buffer, const gimple *gs, int spc, + dump_flags_t flags) +{ + if (flags & TDF_RAW) + { + dump_gimple_fmt (buffer, spc, flags, "%G <CLAUSES <", gs); + dump_omp_clauses (buffer, gimple_omp_interop_clauses (gs), spc, flags); + dump_gimple_fmt (buffer, spc, flags, " >"); + } + else + { + pp_string (buffer, "#pragma omp interop"); + dump_omp_clauses (buffer, gimple_omp_interop_clauses (gs), spc, flags); + } +} + /* Dump a GIMPLE_OMP_TARGET tuple on the pretty_printer PP. */ static void @@ -2838,6 +2857,10 @@ pp_gimple_stmt_1 (pretty_printer *pp, const gimple *gs, int spc, dump_gimple_omp_dispatch(pp, gs, spc, flags); break; + case GIMPLE_OMP_INTEROP: + dump_gimple_omp_interop (pp, gs, spc, flags); + break; + case GIMPLE_OMP_MASTER: case GIMPLE_OMP_SECTION: case GIMPLE_OMP_STRUCTURED_BLOCK: |