diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:25:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:25:19 +0000 |
| commit | 2bb1c36656bb1bcac3ae654ecbdc54b582ed298a (patch) | |
| tree | 1a7fbadf4793fca844818142d46165e676ff37cc /gcc/ada/exp_ch7.adb | |
| parent | 15044392b374476c15645b61ce3802439e82d792 (diff) | |
| download | gcc-2bb1c36656bb1bcac3ae654ecbdc54b582ed298a.tar.gz | |
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-cdlili.ads, a-coinve.ads, a-coorma.adb, a-coorma.ads, s-tassta.adb,
a-cborma.adb, a-cborma.ads, a-cohama.ads, a-coorse.ads, a-cbhama.ads,
a-cborse.ads, a-cobove.adb, a-cobove.ads, a-cbhase.ads: Minor
reformatting.
2011-08-29 Tristan Gingold <gingold@adacore.com>
* exp_ch7.adb, exp_ch7.ads (Build_Exception_Handler): Move its spec to
package spec.
* exp_intr.adb (Expand_Unc_Deallocation): Use Build_Exception_Handler.
* a-except.adb, a-except-2005.adb (Rcheck_22): Do not defer aborts
while raising PE.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178245 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 24b3e16eb70..730ac6b86dc 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -301,33 +301,6 @@ package body Exp_Ch7 is -- context does not contain the above constructs, the routine returns an -- empty list. - function Build_Exception_Handler - (Loc : Source_Ptr; - E_Id : Entity_Id; - Raised_Id : Entity_Id; - For_Library : Boolean := False) return Node_Id; - -- Subsidiary to Build_Finalizer, Make_Deep_Array_Body and Make_Deep_Record - -- _Body. Create an exception handler of the following form: - -- - -- when others => - -- if not Raised_Id then - -- Raised_Id := True; - -- Save_Occurrence (E_Id, Get_Current_Excep.all.all); - -- end if; - -- - -- If flag For_Library is set (and not in restricted profile): - -- - -- when others => - -- if not Raised_Id then - -- Raised_Id := True; - -- Save_Library_Occurrence (Get_Current_Excep.all.all); - -- end if; - -- - -- E_Id denotes the defining identifier of a local exception occurrence. - -- Raised_Id is the entity of a local boolean flag. Flag For_Library is - -- used when operating at the library level, when enabled the current - -- exception will be saved to a global location. - procedure Build_Finalizer (N : Node_Id; Clean_Stmts : List_Id; |