diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-05 11:44:58 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-05 11:44:58 +0100 |
| commit | 76264f602ae32ac6fea5e80ac0098d07b40fe4ab (patch) | |
| tree | c9a9215ce2eb42e4e990fdaa7c8f4d3a1ad9ff39 /gcc/ada/treepr.adb | |
| parent | 7f3d8f56e747b1a814c633a9ab160adf02b5d498 (diff) | |
| download | gcc-76264f602ae32ac6fea5e80ac0098d07b40fe4ab.zip gcc-76264f602ae32ac6fea5e80ac0098d07b40fe4ab.tar.gz gcc-76264f602ae32ac6fea5e80ac0098d07b40fe4ab.tar.bz2 | |
[multiple changes]
2011-12-05 Bob Duff <duff@adacore.com>
* sem_ch4.adb: Minor comment fix.
2011-12-05 Robert Dewar <dewar@adacore.com>
* gnat_ugn.texi: Add documentation for -gnatw.e.
2011-12-05 Bob Duff <duff@adacore.com>
* treepr.adb (pn): Print something useful for
Elmt_Ids. Add Write_Eol to 'when others' case, so the output
will be seen immediately in gdb.
2011-12-05 Ed Schonberg <schonberg@adacore.com>
* lib-writ.adb (Output_Main_Program_Line): A generic subprogram
is never a main program.
2011-12-05 Thomas Quinot <quinot@adacore.com>
* par_sco.adb: Various minor adjustments to dominance markers
generation.
2011-12-05 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Analyze_Expression_Function): If the function is
a completion, generate a body reference for its defining entity,
before rewriting the node as a body.
* sem_util.adb (Defining_Entity): Add entry for expression
function.
From-SVN: r182006
Diffstat (limited to 'gcc/ada/treepr.adb')
| -rw-r--r-- | gcc/ada/treepr.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index c9411e1..684cccd 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -273,7 +273,17 @@ package body Treepr is when Elist_Range => Print_Tree_Elist (Elist_Id (N)); when Elmt_Range => - raise Program_Error; + declare + Id : constant Elmt_Id := Elmt_Id (N); + begin + if No (Id) then + Write_Str ("No_Elmt"); + Write_Eol; + else + Write_Str ("Elmt_Id --> "); + Print_Tree_Node (Node (Id)); + end if; + end; when Names_Range => Namet.wn (Name_Id (N)); when Strings_Range => @@ -285,6 +295,7 @@ package body Treepr is when others => Write_Str ("Invalid Union_Id: "); Write_Int (Int (N)); + Write_Eol; end case; end pn; |