diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 15:53:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 15:53:02 +0200 |
| commit | 161c5cc509e5e8abd70ec84848c43f51a9b1cbcb (patch) | |
| tree | ef04c8f1c5d0d38bf962a2310fac94d96a929607 /gcc/ada/a-except-2005.adb | |
| parent | 2590ef129b3c7fa8dd899eed69e97b418411f40e (diff) | |
| download | gcc-161c5cc509e5e8abd70ec84848c43f51a9b1cbcb.zip gcc-161c5cc509e5e8abd70ec84848c43f51a9b1cbcb.tar.gz gcc-161c5cc509e5e8abd70ec84848c43f51a9b1cbcb.tar.bz2 | |
[multiple changes]
2013-10-14 Robert Dewar <dewar@adacore.com>
* 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 <gingold@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/a-except-2005.adb')
| -rw-r--r-- | gcc/ada/a-except-2005.adb | 10 |
1 files changed, 10 insertions, 0 deletions
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 -- ----------- |