diff options
author | Robert Dewar <dewar@adacore.com> | 2013-10-14 13:42:26 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 15:42:26 +0200 |
commit | 808876a99a6fc19e9977afba400919f041774459 (patch) | |
tree | 75a5dc69e760fdf43c1ecb566f7d668ba3f3c0b6 /gcc/ada/a-exexpr-gcc.adb | |
parent | 63bb4268049d7a6a1944c3a15b374bca8ccf2b45 (diff) | |
download | gcc-808876a99a6fc19e9977afba400919f041774459.zip gcc-808876a99a6fc19e9977afba400919f041774459.tar.gz gcc-808876a99a6fc19e9977afba400919f041774459.tar.bz2 |
sem_ch3.adb: Minor fix to error message.
2013-10-14 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor fix to error message.
* a-exexpr-gcc.adb, sem_util.adb, sem_case.adb, exp_ch11.adb: Minor
reformatting.
From-SVN: r203554
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
-rw-r--r-- | gcc/ada/a-exexpr-gcc.adb | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb index 77abaa5..98d5758 100644 --- a/gcc/ada/a-exexpr-gcc.adb +++ b/gcc/ada/a-exexpr-gcc.adb @@ -206,7 +206,7 @@ package body Exception_Propagation is (GCC_Exception : not null GCC_Exception_Access) return EOA; pragma Export (C, Setup_Current_Excep, "__gnat_setup_current_excep"); -- Write Get_Current_Excep.all from GCC_Exception. Called by the - -- personnality routine. + -- personality routine. procedure Unhandled_Except_Handler (GCC_Exception : not null GCC_Exception_Access); @@ -245,15 +245,16 @@ package body Exception_Propagation is pragma Import (C, Unwind_ForcedUnwind, "__gnat_Unwind_ForcedUnwind"); procedure Set_Exception_Parameter - (Excep : EOA; + (Excep : EOA; GCC_Exception : not null GCC_Exception_Access); - pragma Export (C, Set_Exception_Parameter, - "__gnat_set_exception_parameter"); + pragma Export + (C, Set_Exception_Parameter, "__gnat_set_exception_parameter"); -- Called inserted by gigi to initialize the exception parameter procedure Set_Foreign_Occurrence (Excep : EOA; Mo : System.Address); - -- Utility routine to initialize occurrence Excep for a foreign exception - -- whose machine occurrence is Mo. + -- Utility routine to initialize occurrence Excep from a foreign exception + -- whose machine occurrence is Mo. The message is empty, the backtrace + -- is empty too and the exception identity is Foreign_Exception. -- Hooks called when entering/leaving an exception handler for a given -- occurrence, aimed at handling the stack of active occurrences. The @@ -356,12 +357,12 @@ package body Exception_Propagation is procedure Set_Foreign_Occurrence (Excep : EOA; Mo : System.Address) is begin - Excep.Id := Foreign_Exception'Access; + Excep.Id := Foreign_Exception'Access; Excep.Machine_Occurrence := Mo; - Excep.Msg_Length := 0; - Excep.Exception_Raised := True; - Excep.Pid := Local_Partition_ID; - Excep.Num_Tracebacks := 0; + Excep.Msg_Length := 0; + Excep.Exception_Raised := True; + Excep.Pid := Local_Partition_ID; + Excep.Num_Tracebacks := 0; end Set_Foreign_Occurrence; ------------------------- @@ -382,14 +383,13 @@ package body Exception_Propagation is declare GNAT_Occurrence : constant GNAT_GCC_Exception_Access := - To_GNAT_GCC_Exception (GCC_Exception); + To_GNAT_GCC_Exception (GCC_Exception); begin Excep.all := GNAT_Occurrence.Occurrence; - return GNAT_Occurrence.Occurrence'Access; end; - else + else -- A default one Set_Foreign_Occurrence (Excep, GCC_Exception.all'Address); @@ -491,8 +491,9 @@ package body Exception_Propagation is ----------------------------- procedure Set_Exception_Parameter - (Excep : EOA; - GCC_Exception : not null GCC_Exception_Access) is + (Excep : EOA; + GCC_Exception : not null GCC_Exception_Access) + is begin -- Setup the exception occurrence @@ -506,8 +507,8 @@ package body Exception_Propagation is begin Save_Occurrence (Excep.all, GNAT_Occurrence.Occurrence); end; - else + else -- A default one Set_Foreign_Occurrence (Excep, GCC_Exception.all'Address); |