From 9098f5452bfa1ab2b0a49d5aaae905ddf5f28279 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 14 Nov 2018 18:28:38 +0100 Subject: parse: strenghten. --- src/vhdl/parse.adb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb index 4333c97fb..5048719de 100644 --- a/src/vhdl/parse.adb +++ b/src/vhdl/parse.adb @@ -2758,8 +2758,7 @@ package body Parse is -- -- NAME is the type_mark when already parsed (in range expression or -- allocator by type). - function Parse_Subtype_Indication (Name : Iir := Null_Iir) - return Iir + function Parse_Subtype_Indication (Name : Iir := Null_Iir) return Iir is Type_Mark : Iir; Def: Iir; @@ -2820,8 +2819,10 @@ package body Parse is then -- A subtype needs to be created. Def := Create_Iir (Iir_Kind_Subtype_Definition); - Location_Copy (Def, Type_Mark); - Set_Subtype_Type_Mark (Def, Type_Mark); + if Type_Mark /= Null_Iir then + Location_Copy (Def, Type_Mark); + Set_Subtype_Type_Mark (Def, Type_Mark); + end if; Set_Resolution_Indication (Def, Resolution_Indication); Set_Tolerance (Def, Tolerance); else -- cgit v1.2.3