From: Javier Miranda Date: Thu, 16 Aug 2007 12:18:37 +0000 (+0200) Subject: exp_ch9.adb (Build_Protected_Entry): Undo previous change because it is not really... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d48365bc6c150d94584adc7ef17438f8cb195732;p=gcc.git 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 --- 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),