diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2007-06-06 12:47:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:47:54 +0200 |
| commit | 0c1edb568006ba74d4a3eb3d697aa3afc3425734 (patch) | |
| tree | 4bbd9660ec041e83c175e60d52a965c342281767 /gcc/ada/sprint.ads | |
| parent | 0600d9bc835c519013e43a91d434284b7dc868e5 (diff) | |
| download | gcc-0c1edb568006ba74d4a3eb3d697aa3afc3425734.zip gcc-0c1edb568006ba74d4a3eb3d697aa3afc3425734.tar.gz gcc-0c1edb568006ba74d4a3eb3d697aa3afc3425734.tar.bz2 | |
sprint.ads, sprint.adb (Sprint_Node_Actual): Output aggregate for exceptions.
2007-04-20 Ed Schonberg <schonberg@adacore.com>
Robert Dewar <dewar@adacore.com>
* sprint.ads, sprint.adb (Sprint_Node_Actual): Output aggregate for
exceptions.
(Write_Itype): Handle case of string literal subtype, which
comes up in this context.
(Update_Itype): when debugging expanded code, update sloc of itypes
associated with defining_identifiers and ranges, for gdb use.
(Sprint_Node_Actual): Add static keyword to object or exception
declaration output if Is_Statically_Allocated is True.
(Sprint_End_Label): Set entity of end marker for a subprogram, package,
or task body, so that the tree carries the proper Sloc information for
debugging use.
(Write_Indent): In Dump_Source_Text mode, ignore implicit label nodes
From-SVN: r125463
Diffstat (limited to 'gcc/ada/sprint.ads')
| -rw-r--r-- | gcc/ada/sprint.ads | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads index 66aeea8..2fc17e2 100644 --- a/gcc/ada/sprint.ads +++ b/gcc/ada/sprint.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -44,6 +44,8 @@ package Sprint is -- purely for the purposes of this printout (they are not recognized by the -- parser) + -- Could use more documentation for all of these ??? + -- Allocator new xxx [storage_pool = xxx] -- Cleanup action at end procedure name; -- Conditional expression (if expr then expr else expr) @@ -75,6 +77,7 @@ package Sprint is -- Rem wi Treat_Fixed_As_Integer x #rem y -- Reference expression'reference -- Shift nodes shift_name!(expr, count) + -- Static declaration name : static xxx -- Subprogram_Info subprog'Subprogram_Info -- Unchecked conversion target_type!(source_expression) -- Unchecked expression `(expression) @@ -136,19 +139,20 @@ package Sprint is -- Same as normal Sprint_Node procedure, except that one leading -- blank is output before the node if it is non-empty. - procedure pg (Node : Node_Id); + procedure pg (Arg : Union_Id); pragma Export (Ada, pg); - -- Print generated source for node N (like -gnatdg output). This is - -- intended only for use from gdb for debugging purposes. + -- Print generated source for argument N (like -gnatdg output). Intended + -- only for use from gdb for debugging purposes. Currently, Arg may be a + -- List_Id or a Node_Id (anything else outputs a blank line). - procedure po (Node : Node_Id); + procedure po (Arg : Union_Id); pragma Export (Ada, po); - -- Print original source for node N (like -gnatdo output). This is - -- intended only for use from gdb for debugging purposes. + -- Like pg, but prints original source for the argument (like -gnatdo + -- output). Intended only for use from gdb for debugging purposes. - procedure ps (Node : Node_Id); + procedure ps (Arg : Union_Id); pragma Export (Ada, ps); - -- Print generated and original source for node N (like -gnatds output). - -- This is intended only for use from gdb for debugging purposes. + -- Like pg, but prints generated and original source for the argument (like + -- -gnatds output). Intended only for use from gdb for debugging purposes. end Sprint; |