diff options
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 0c9bc68..4863321 100644 --- a/gcc/ada/a-except-2005.adb +++ b/gcc/ada/a-except-2005.adb @@ -760,6 +760,16 @@ package body Ada.Exceptions is -- in case we do not want any exception tracing support. This is -- why this package is separated. + ----------------- + -- Local_Raise -- + ----------------- + + procedure Local_Raise (Excep : Exception_Id) is + pragma Warnings (Off, Excep); + begin + return; + end Local_Raise; + ----------------------- -- Stream Attributes -- ----------------------- |