Skip to content

R
riscv-gcc-1
Commit 9e2b9627 by Ed Schonberg Committed by Geert Bosch
Options

exp_ch7.adb (Make_Transient_Block): if statement is within exception handler... 

	* exp_ch7.adb (Make_Transient_Block): if statement is within
	exception handler, always use new transient scope to place Clean
	procedure.

From-SVN: r46208
parent be98560f
Showing with 9 additions and 1 deletions
gcc/ada/ChangeLog
2001-10-11 Ed Schonberg <schonber@gnat.com>
* exp_ch7.adb (Make_Transient_Block): if statement is within
exception handler, always use new transient scope to place Clean
procedure.
2001-10-11 Pascal Obry <obry@gnat.com>
* Makefile.in:
......
gcc/ada/exp_ch7.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- $Revision: 1.245 $
-- $Revision$
-- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- --
......@@ -2404,6 +2404,7 @@ package body Exp_Ch7 is
is
Flist : constant Entity_Id := Finalization_Chain_Entity (Current_Scope);
Decls : constant List_Id := New_List;
Par : constant Node_Id := Parent (Action);
Instrs : constant List_Id := New_List (Action);
Blk : Node_Id;
......@@ -2413,6 +2414,7 @@ package body Exp_Ch7 is
if Uses_Sec_Stack (Current_Scope)
and then No (Flist)
and then Nkind (Action) /= N_Return_Statement
and then Nkind (Par) /= N_Exception_Handler
then
declare
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment