diff options
Diffstat (limited to 'gcc/ada/a-exexpr.adb')
| -rw-r--r-- | gcc/ada/a-exexpr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-exexpr.adb b/gcc/ada/a-exexpr.adb index ba554f9bc2d..b42b3fc7fd7 100644 --- a/gcc/ada/a-exexpr.adb +++ b/gcc/ada/a-exexpr.adb @@ -2,7 +2,7 @@ -- -- -- GNAT COMPILER COMPONENTS -- -- -- --- ADA.EXCEPTIONS.EXCEPTION_PROPAGATION -- +-- A D A . E X C E P T I O N S . E X C E P T I O N _ P R O P A G A T I O N -- -- -- -- B o d y -- -- -- @@ -104,6 +104,7 @@ package body Exception_Propagation is type Unwind_Word is mod 2 ** System.Word_Size; for Unwind_Word'Size use System.Word_Size; + -- Map the corresponding C type used in Unwind_Exception below. type Unwind_Exception is record Class : Exception_Class := GNAT_Exception_Class; @@ -111,8 +112,7 @@ package body Exception_Propagation is Private1 : Unwind_Word; Private2 : Unwind_Word; end record; - - pragma Convention (C, Unwind_Exception); + -- Map the GCC struct used for exception handling. for Unwind_Exception'Alignment use Standard'Maximum_Alignment; -- The C++ ABI mandates the common exception header to be at least @@ -122,7 +122,7 @@ package body Exception_Propagation is -- 1/ We pass pointers to such headers down to the underlying -- libGCC unwinder, - -- and + -- and -- 2/ The GNAT_GCC_Exception record below starts with this common -- common header and has a C counterpart which needs to be laid |