From 161c5cc509e5e8abd70ec84848c43f51a9b1cbcb Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 14 Oct 2013 15:53:02 +0200 Subject: [multiple changes] 2013-10-14 Robert Dewar * exp_attr.adb (Find_Stream_Subprogram): Optimize Storage_Array stream handling. (Find_Stream_Subprogram): Optimize Stream_Element_Array stream handling * rtsfind.ads: Add entry for Stream_Element_Array Add entries for RE_Storage_Array subprograms Add entries for RE_Stream_Element_Array subprograms * s-ststop.ads, s-ststop.adb: Add processing for System.Storage_Array. Add processing for Ada.Stream_Element_Array. 2013-10-14 Tristan Gingold * a-except-2005.ads, a-except-2005.adb: (Get_Exception_Machine_Occurrence): New function. * raise-gcc.c (__gnat_unwind_exception_size): New constant. From-SVN: r203560 --- gcc/ada/a-except-2005.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gcc/ada/a-except-2005.adb') diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb index 3453eae..29ecf39 100644 --- a/gcc/ada/a-except-2005.adb +++ b/gcc/ada/a-except-2005.adb @@ -861,6 +861,16 @@ package body Ada.Exceptions is -- in case we do not want any exception tracing support. This is -- why this package is separated. + -------------------------------------- + -- Get_Exception_Machine_Occurrence -- + -------------------------------------- + + function Get_Exception_Machine_Occurrence (X : Exception_Occurrence) + return System.Address is + begin + return X.Machine_Occurrence; + end Get_Exception_Machine_Occurrence; + ----------- -- Image -- ----------- -- cgit v1.1