From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 1 Jun 2020 18:49:43 +0000 (+0200)
Subject: [Ada] Use Sloc of delay statement in timed entry call
X-Git-Tag: basepoints/gcc-12~6147
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c77806b48e87fb1e2dc75f2ac2957ef61bd5fe3;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index c4b98822684e..2c3e9d8df805 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;