diff options
Diffstat (limited to 'gcc/ada/a-except.ads')
-rw-r--r-- | gcc/ada/a-except.ads | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/ada/a-except.ads b/gcc/ada/a-except.ads index 2dae518..0c1f224 100644 --- a/gcc/ada/a-except.ads +++ b/gcc/ada/a-except.ads @@ -35,7 +35,10 @@ -- -- ------------------------------------------------------------------------------ --- This version of Ada.Exceptions is a full Ada 95 version. +-- This version of Ada.Exceptions is a full Ada 95 version. It omits Ada 2005 +-- features such as the additional definitions of Exception_Name returning +-- Wide_[Wide_]String. + -- It is used for building the compiler and the basic tools, since these -- builds may be done with bootstrap compilers that cannot handle these -- additions. The full version of Ada.Exceptions can be found in the files @@ -172,6 +175,15 @@ private -- private barrier, so we can place this function in the private part -- where the compiler can find it, but the spec is unchanged.) + procedure Local_Raise (Excep : Exception_Id); + pragma Export (Ada, Local_Raise); + -- This is a dummy routine, used only by the debugger for the purpose of + -- logging local raise statements that were transformed into a direct goto + -- to the handler code. The compiler in this case generates: + -- + -- Local_Raise (exception_id); + -- goto Handler + procedure Raise_Exception_Always (E : Exception_Id; Message : String := ""); pragma No_Return (Raise_Exception_Always); pragma Export (Ada, Raise_Exception_Always, "__gnat_raise_exception"); |