diff options
Diffstat (limited to 'src/vhdl/parse.adb')
| -rw-r--r-- | src/vhdl/parse.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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); |