diff options
Diffstat (limited to 'gcc/ada/treepr.adb')
| -rw-r--r-- | gcc/ada/treepr.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index 959b990254a..55ecbdbb07c 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -242,6 +242,14 @@ package body Treepr is function par (N : Union_Id) return Node_Or_Entity_Id renames p; + procedure ppar (N : Union_Id) is + begin + if N /= Empty_List_Or_Node then + pp (N); + ppar (Union_Id (p (N))); + end if; + end ppar; + -------- -- pe -- -------- |