diff options
Diffstat (limited to 'gcc/ada/treepr.ads')
-rw-r--r-- | gcc/ada/treepr.ads | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads index f8a17fb..43e5187 100644 --- a/gcc/ada/treepr.ads +++ b/gcc/ada/treepr.ads @@ -60,6 +60,12 @@ package Treepr is -- Prints the subtree consisting of the given element list and all its -- referenced descendants. + procedure Print_Entity_Chain (From : Entity_Id; Rev : Boolean := False); + -- Prints the entity chain From is on, starting from From. In other words, + -- prints From and then recursively follow the Next_Entity field. If Rev is + -- True, prints the chain backwards, i.e. follow the Last_Entity field + -- instead of Next_Entity. + -- The following debugging procedures are intended to be called from gdb. -- Note that in several cases there are synonyms which represent historical -- development, and we keep them because some people are used to them! @@ -103,4 +109,12 @@ package Treepr is -- on the left and add a minus sign. This just saves some typing in the -- debugger. + procedure pec (From : Entity_Id); + pragma Export (Ada, pec); + -- Print From and the entities that follow it on its entity chain + + procedure rpec (From : Entity_Id); + pragma Export (Ada, rpec); + -- Like pec, but walk the entity chain backwards. The 'r' stands for + -- "reverse". end Treepr; |