From 424dddae237d7adcf037761c1fa8add783a9313f Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 16 Aug 2007 12:18:37 +0000 Subject: [PATCH] 2007-08-16 Javier Miranda * exp_ch9.adb (Build_Protected_Entry): Undo previous change because it is not really required and can introduce regression with the debugger. The original problem is fixed with the patch written for checks.adb. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127540 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_ch9.adb | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 764d643..e56d67c 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -2084,12 +2084,10 @@ package body Exp_Ch9 is if Debug_Generated_Code then Han_Loc := End_Loc; - -- Otherwise we propagate the original source location to allow the - -- correct generation of errors in case of restrictions applied to - -- the expanded code. + -- Otherwise the inserted code should not be visible to the debugger else - Han_Loc := Sloc (N); + Han_Loc := No_Location; end if; Edef := @@ -11231,7 +11229,7 @@ package body Exp_Ch9 is -- required value is obtained by taking the address of the task body -- procedure and converting it (with an unchecked conversion) to the -- type required by the task kernel. For further details, see the - -- description of Expand_Task_Body + -- description of Expand_N_Task_Body Append_To (Args, Unchecked_Convert_To (RTE (RE_Task_Procedure_Access), -- 2.7.4