From f28573f4914479bb9f9ca96f3a1436dcadb36c51 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 6 Apr 2007 11:27:42 +0200 Subject: sinfo.ads, sinfo.adb (Coextensions): New element list for allocators... 2007-04-06 Ed Schonberg Robert Dewar * 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 --- gcc/ada/sprint.ads | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/ada/sprint.ads') 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 -- cgit v1.1