From d48365bc6c150d94584adc7ef17438f8cb195732 Mon Sep 17 00:00:00 2001 From: Javier Miranda Date: Thu, 16 Aug 2007 14:18:37 +0200 Subject: [PATCH] exp_ch9.adb (Build_Protected_Entry): Undo previous change because it is not really required and can introduce... 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. From-SVN: r127540 --- 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 764d6430ca2..e56d67c6d65 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.30.2