diff options
| author | mrs <mrs@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-20 23:47:35 +0000 |
|---|---|---|
| committer | mrs <mrs@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-20 23:47:35 +0000 |
| commit | 6b40961666f073231ed8a76e6e33deeda063cde7 (patch) | |
| tree | 8247eb4232e8be98b7f61bd68bab2fd1a9f06ca3 /gcc/ada/a-except-2005.adb | |
| parent | e6b1b76450af5f98696ecedd4bd9a0ed18cdb2a6 (diff) | |
| parent | fc1ce0cf396bf638746d546a557158d87f13849b (diff) | |
| download | gcc-6b40961666f073231ed8a76e6e33deeda063cde7.tar.gz | |
Merge in trunk.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/wide-int@203881 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except-2005.adb')
| -rw-r--r-- | gcc/ada/a-except-2005.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb index 3453eae90ab..b47f167be77 100644 --- a/gcc/ada/a-except-2005.adb +++ b/gcc/ada/a-except-2005.adb @@ -861,6 +861,17 @@ 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 -- ----------- |