diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-05-15 09:42:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-05-15 09:42:01 +0000 |
| commit | 3c7975d3d77bdf98398b8c4b59ff1d5b95661803 (patch) | |
| tree | 5a7ac058a8f04e8b7cccfac5bee4543e94989482 /gcc/ada/a-except.adb | |
| parent | 1825e2757762f6b4124118c9a90f2907f9b261c6 (diff) | |
| download | gcc-3c7975d3d77bdf98398b8c4b59ff1d5b95661803.tar.gz | |
2012-05-15 Arnaud Charlet <charlet@adacore.com>
* a-except.adb, a-except.ads (Reraise_Library_Exception_If_Any): New.
Mark this unit preelaborate.
* s-soflin.ads: Make package Preelaborate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@187511 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except.adb')
| -rw-r--r-- | gcc/ada/a-except.adb | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index f34d4975612..fc144bb1c91 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1175,6 +1175,19 @@ package body Ada.Exceptions is Raise_Current_Excep (Excep.Id); end Reraise; + -------------------------------------- + -- Reraise_Library_Exception_If_Any -- + -------------------------------------- + + procedure Reraise_Library_Exception_If_Any is + LE : Exception_Occurrence; + begin + if Library_Exception_Set then + LE := Library_Exception; + Raise_From_Controlled_Operation (LE); + end if; + end Reraise_Library_Exception_If_Any; + ------------------------ -- Reraise_Occurrence -- ------------------------ |