diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2020-06-01 20:49:43 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-15 09:42:36 -0400 |
| commit | 1c77806b48e87fb1e2dc75f2ac2957ef61bd5fe3 (patch) | |
| tree | 7d5d4670b87d269dd50b76912e543e99e479970c /gcc | |
| parent | 4f6ebe2a519e26ff881cf0ff26eac4dae807e613 (diff) | |
| download | gcc-1c77806b48e87fb1e2dc75f2ac2957ef61bd5fe3.zip gcc-1c77806b48e87fb1e2dc75f2ac2957ef61bd5fe3.tar.gz gcc-1c77806b48e87fb1e2dc75f2ac2957ef61bd5fe3.tar.bz2 | |
[Ada] Use Sloc of delay statement in timed entry call
gcc/ada/
* exp_ch9.adb (Expand_N_Timed_Entry_Call): Use the Sloc of
the delay statement in the expansion.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index c4b9882..2c3e9d8 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -12613,8 +12613,6 @@ package body Exp_Ch9 is -- global references if within an instantiation. procedure Expand_N_Timed_Entry_Call (N : Node_Id) is - Loc : constant Source_Ptr := Sloc (N); - Actuals : List_Id; Blk_Typ : Entity_Id; Call : Node_Id; @@ -12637,6 +12635,7 @@ package body Exp_Ch9 is Index : Node_Id; Is_Disp_Select : Boolean; Lim_Typ_Stmts : List_Id; + Loc : constant Source_Ptr := Sloc (D_Stat); N_Stats : List_Id; Obj : Entity_Id; Param : Node_Id; |