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/raise-gcc.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/ada/raise-gcc.c') diff --git a/gcc/ada/raise-gcc.c b/gcc/ada/raise-gcc.c index a207e52..ca1e84a 100644 --- a/gcc/ada/raise-gcc.c +++ b/gcc/ada/raise-gcc.c @@ -1463,3 +1463,10 @@ __gnat_personality_seh0 (PEXCEPTION_RECORD ms_exc, void *this_frame, ms_disp, __gnat_personality_imp); } #endif /* SEH */ + +#if !defined (__USING_SJLJ_EXCEPTIONS__) +/* Size of the _Unwind_Exception structure. This is used by g-cppexc to get + the offset to the C++ object. */ + +const int __gnat_unwind_exception_size = sizeof (_Unwind_Exception); +#endif -- cgit v1.1