diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-12 11:49:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-12 11:49:31 +0000 |
| commit | 693b08225e50adb104ff6da9a4fdb918bb9de908 (patch) | |
| tree | c5a05d81342446366f864e0be7b46fe5f6196617 /gcc/ada/treepr.ads | |
| parent | 309c3053481b62acea44176015e6ee2eea218a12 (diff) | |
| download | gcc-693b08225e50adb104ff6da9a4fdb918bb9de908.tar.gz | |
2011-12-12 Thomas Quinot <quinot@adacore.com>
* exp_disp.adb: Minor reformatting.
2011-12-12 Tristan Gingold <gingold@adacore.com>
* gnatls.adb (Search_RTS): New procedure.
(Scan_Ls_Arg): Move code that search the RTS.
(Gnatls): search the RTS later.
* prj-env.ads, prj-env.adb (Get_Runtime_Path): New function.
2011-12-12 Ed Falis <falis@adacore.com>
* sysdep.c: Fix treatment of VxWorks task options so that run-times
built with __SPE__ get option VX_SPE_TASK while others get VX_FP_TASK.
2011-12-12 Bob Duff <duff@adacore.com>
* sem_type.adb, sem_type.ads, sem_ch4.adb, treepr.adb, treepr.ads:
Minor cleanup and fiddling with debug printouts.
2011-12-12 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Get_Directories): For a non extending project,
always get a declared object and/or exec directory if it already
exists, even when there are no sources, but do not create them.
2011-12-12 Bob Duff <duff@adacore.com>
* sem_res.adb (Resolve): Deal with the case where an abstract
operator is called with operands of type universal_integer.
2011-12-12 Thomas Quinot <quinot@adacore.com>
* par_sco.adb: Minor fix to dominance marker referencing WHILE
decision.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182227 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/treepr.ads')
| -rw-r--r-- | gcc/ada/treepr.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/treepr.ads b/gcc/ada/treepr.ads index 683eb0db90b..6e9541a8e9f 100644 --- a/gcc/ada/treepr.ads +++ b/gcc/ada/treepr.ads @@ -37,6 +37,9 @@ package Treepr is -- Prints a single tree node, without printing descendants. The Label -- string is used to preface each line of the printed output. + procedure Print_Node_Briefly (N : Node_Id); + -- Terse version of Print_Tree_Node + procedure Print_Tree_List (L : List_Id); -- Prints a single node list, without printing the descendants of any -- of the nodes in the list |