aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-exexpr-gcc.adb
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2013-10-14 13:42:26 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2013-10-14 15:42:26 +0200
commit808876a99a6fc19e9977afba400919f041774459 (patch)
tree75a5dc69e760fdf43c1ecb566f7d668ba3f3c0b6 /gcc/ada/a-exexpr-gcc.adb
parent63bb4268049d7a6a1944c3a15b374bca8ccf2b45 (diff)
downloadgcc-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.adb35
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);