exp_ch9.adb (Build_Protected_Entry): Undo previous change because it is not really required and can introduce...
2007-08-16 Javier Miranda <miranda@adacore.com> * 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
This commit is contained in:
parent
16f67b79ab
commit
d48365bc6c
@ -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),
|
||||
|
Loading…
Reference in New Issue
Block a user