From a95c7301be2f7ee279f1bf9d94cc728abd614f37 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Nov 2018 20:31:11 +0100
Subject: Fix xref regression on subtype declaration from last patches.

---
 src/vhdl/parse.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 0cfb1b318..13c9d1f29 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -2869,12 +2869,12 @@ package body Parse is
    begin
       Decl := Create_Iir (Iir_Kind_Subtype_Declaration);
       Set_Parent (Decl, Parent);
-      Set_Location (Decl);
       Start_Loc := Get_Token_Location;
 
       --  Eat 'subtype'.
       Scan;
 
+      Set_Location (Decl);
       if Current_Token = Tok_Identifier then
          Set_Identifier (Decl, Current_Identifier);
 
-- 
cgit v1.2.3