diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2015-10-23 10:43:30 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-23 12:43:30 +0200 |
| commit | 6e840989730297abbe1610c3b15ecb565e967f1f (patch) | |
| tree | 003413f638569a3555ab06e70ab2039cc817b977 /gcc/ada/exp_ch11.ads | |
| parent | c79f6efda3d3ebae36ecd7beab058684d2790903 (diff) | |
| download | gcc-6e840989730297abbe1610c3b15ecb565e967f1f.zip gcc-6e840989730297abbe1610c3b15ecb565e967f1f.tar.gz gcc-6e840989730297abbe1610c3b15ecb565e967f1f.tar.bz2 | |
exp_ch7.adb (Process_Transient_Objects): Reimplement to properly handle restriction No_Exception_Propagation.
2015-10-23 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Process_Transient_Objects): Reimplement to properly
handle restriction No_Exception_Propagation.
* exp_ch11.adb (Expand_At_End_Handler): Update the parameter
profile and all references to Block.
* exp_ch11.ads (Expand_At_End_Handler): Update the parameter
profile and comment on usage.
* exp_intr.adb (Expand_Unc_Deallocation): Reimplement to properly
handle restriction No_Exception_Propagation.
* gnat1drv.adb, restrict.adb: Update comment.
From-SVN: r229227
Diffstat (limited to 'gcc/ada/exp_ch11.ads')
| -rw-r--r-- | gcc/ada/exp_ch11.ads | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch11.ads b/gcc/ada/exp_ch11.ads index ab93d5d..cdd53de 100644 --- a/gcc/ada/exp_ch11.ads +++ b/gcc/ada/exp_ch11.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -40,12 +40,11 @@ package Exp_Ch11 is -- See runtime routine Ada.Exceptions for full details on the format and -- content of these tables. - procedure Expand_At_End_Handler (HSS : Node_Id; Block : Node_Id); - -- Given a handled statement sequence, HSS, for which the At_End_Proc - -- field is set, and which currently has no exception handlers, this - -- procedure expands the special exception handler required. - -- This procedure also create a new scope for the given Block, if - -- Block is not Empty. + procedure Expand_At_End_Handler (HSS : Node_Id; Blk_Id : Entity_Id); + -- Given handled statement sequence HSS for which the At_End_Proc field + -- is set, and which currently has no exception handlers, this procedure + -- expands the special exception handler required. This procedure also + -- create a new scope for the given block, if Blk_Id is not Empty. procedure Expand_Exception_Handlers (HSS : Node_Id); -- This procedure expands exception handlers, and is called as part |