diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2007-04-06 11:27:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-04-06 11:27:42 +0200 |
| commit | f28573f4914479bb9f9ca96f3a1436dcadb36c51 (patch) | |
| tree | 09de6cbedd12384c33d75cfc489f9993e719764d /gcc/ada/sprint.ads | |
| parent | 9e87a68deb22cb321bcec7c4cb6da10aa4a81827 (diff) | |
| download | gcc-f28573f4914479bb9f9ca96f3a1436dcadb36c51.zip gcc-f28573f4914479bb9f9ca96f3a1436dcadb36c51.tar.gz gcc-f28573f4914479bb9f9ca96f3a1436dcadb36c51.tar.bz2 | |
sinfo.ads, sinfo.adb (Coextensions): New element list for allocators...
2007-04-06 Ed Schonberg <schonberg@adacore.com>
Robert Dewar <dewar@adacore.com>
* sinfo.ads, sinfo.adb (Coextensions): New element list for allocators,
to chain nested components that are allocators for access discriminants
of the enclosing object.
Add N_Push and N_Pop nodes
New field Exception_Label added
(Local_Raise_Statements): New field in N_Exception_Handler_Node
(Local_Raise_Not_OK): New flag in N_Exception_Handler_Node
(Is_Coextension): New flag for allocators, to mark allocators that
correspond to access discriminants of dynamically allocated objects.
(N_Block_Statement): Document the fact that the corresponding entity
can be an E_Return_Statement.
(Is_Coextension): New flag for allocators.
Remove all code for DSP option
* sprint.ads, sprint.adb: Display basic information for class_wide
subtypes. Add handling of N_Push and N_Pop nodes
From-SVN: r123600
Diffstat (limited to 'gcc/ada/sprint.ads')
| -rw-r--r-- | gcc/ada/sprint.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads index 0e869f0..66aeea8 100644 --- a/gcc/ada/sprint.ads +++ b/gcc/ada/sprint.ads @@ -67,6 +67,8 @@ package Sprint is -- Multiply wi Treat_Fixed_As_Integer x #* y -- Multiply wi Rounded_Result x @* y -- Others choice for cleanup when all others + -- Pop exception label %pop_xxx_exception_label + -- Push exception label %push_xxx_exception_label (label) -- Raise xxx error [xxx_error [when cond]] -- Raise xxx error with msg [xxx_error [when cond], "msg"] -- Rational literal See UR_Write for details |