diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:47:54 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:47:54 +0000 |
| commit | 36b59c4c18f2cac5f312f1864f1320e0ddb9b680 (patch) | |
| tree | 4bbd9660ec041e83c175e60d52a965c342281767 /gcc/ada/sprint.ads | |
| parent | 80aeb5828dacd765b9dded31f586b871c3cb1dd6 (diff) | |
| download | gcc-36b59c4c18f2cac5f312f1864f1320e0ddb9b680.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125463 138bc75d-0d04-0410-961f-82ee72b054a4
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 66aeea83bd3..2fc17e24d85 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; |