diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:27:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:27:42 +0000 |
| commit | 41ee875ca042606c60974bfc41225388785c6409 (patch) | |
| tree | 09de6cbedd12384c33d75cfc489f9993e719764d /gcc/ada/sprint.ads | |
| parent | b3c77df2cbe4abe8eed06dad6f0579d99724feb5 (diff) | |
| download | gcc-41ee875ca042606c60974bfc41225388785c6409.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123600 138bc75d-0d04-0410-961f-82ee72b054a4
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 0e869f05350..66aeea83bd3 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 |