diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch11.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index 0bf8711dd62..bf2381f43d9 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -142,8 +142,15 @@ package body Exp_Ch11 is Stmnts := New_List ( Make_Procedure_Call_Statement (Loc, - Name => New_Occurrence_Of (Clean, Loc)), - Make_Raise_Statement (Loc)); + Name => New_Occurrence_Of (Clean, Loc))); + + -- Avoid generation of raise stmt if compiling with no exceptions + -- propagation + + if not Restriction_Active (No_Exception_Propagation) then + Append_To (Stmnts, + Make_Raise_Statement (Loc)); + end if; Set_Exception_Handlers (HSS, New_List ( Make_Implicit_Exception_Handler (Loc, |