[COMMITTED] a68: clear output pp before writing in a68_dump_parse_tree

[Jose E. Marchesi]

---
 gcc/algol68/a68-parser-debug.cc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/algol68/a68-parser-debug.cc b/gcc/algol68/a68-parser-debug.cc
index b829b0700e9..79ca07c69aa 100644
--- a/gcc/algol68/a68-parser-debug.cc
+++ b/gcc/algol68/a68-parser-debug.cc
@@ -101,6 +101,7 @@ a68_dump_parse_tree (NODE_T *p)
 
   text_art::canvas c (widget->to_canvas (sm));
   pretty_printer *const pp = global_dc->get_reference_printer ();
+  pp_clear_output_area (pp);
   c.print_to_pp (pp);
   printf ("%s", pp_formatted_text (pp));
 }
-- 
2.30.2