3-18 Abbildende Ada-Sprache, v1.2 Oktober 2001 3 Exception_Occurrence; : aus Overflow_Members; Underflow: Ausnahme; Art Underflow_Members ist neues CORBA.IDL_Exception_Members mit Nullaufzeichnung; Funktion Get_Members(From: in Ada.Exceptions. Exception_Occurrence; : aus Underflow_Members); ... Endenstapel; Der folgende Verbrauch des Stapels veranschaulicht Zugang zu den Mitgliedern nach einer Ausnahmeerhöhung: mit Ada.Text_IO; mit Ada.Exceptions; mit Stapel; verwenden Sie Ada; Verfahren Use_stack ist ... The_Overflow_Members: Stack.Overflow_Members; fangen Sie an ... Ausnahme wenn Stack_Error: Stack.Overflow = > Stack.Get_Members(Stack_Error, The_Overflow_Members; Text_IO.Put_Line ("die angehobene Ausnahme ist "u. Exceptions.Exception_Name (Stack_Error)); Text_IO.Put_Line ("überstiegenes oberes Limit = "u. CORBA.Long'image(The_Overflow_Members.Upper_Bound)); ... Ende Use_stack;