From 1c77806b48e87fb1e2dc75f2ac2957ef61bd5fe3 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 1 Jun 2020 20:49:43 +0200 Subject: [PATCH] [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. --- gcc/ada/exp_ch9.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index c4b98822684..2c3e9d8df80 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; -- 2.30.2