diff options
| author | Javier Miranda <miranda@adacore.com> | 2007-08-16 14:18:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-16 14:18:37 +0200 |
| commit | d48365bc6c150d94584adc7ef17438f8cb195732 (patch) | |
| tree | 37eaf2e13ad604e78e2217839fa9128c063b4fcf /gcc/ada | |
| parent | 16f67b79ab89d12af2b5c8e829a785244e7718af (diff) | |
| download | gcc-d48365bc6c150d94584adc7ef17438f8cb195732.zip gcc-d48365bc6c150d94584adc7ef17438f8cb195732.tar.gz gcc-d48365bc6c150d94584adc7ef17438f8cb195732.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 8 |
1 files 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), |