From caba1d1b21d9756ede50f40d53fbc816d3b84320 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 17 Jul 2014 20:34:57 +0200 Subject: vhdl 2008: visibility, more implicit subprograms, alias... Use Type_Definition in type_declarator. --- parse.adb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'parse.adb') diff --git a/parse.adb b/parse.adb index e5adb0e8b..d5df876c7 100644 --- a/parse.adb +++ b/parse.adb @@ -1670,7 +1670,7 @@ package body Parse is Decl := Create_Iir (Iir_Kind_Type_Declaration); Res := Create_Iir (Iir_Kind_Protected_Type_Declaration); Set_Location (Res, Loc); - Set_Type (Decl, Res); + Set_Type_Definition (Decl, Res); end if; Set_Identifier (Decl, Ident); Set_Location (Decl, Loc); @@ -1759,7 +1759,7 @@ package body Parse is Set_Identifier (Decl, Ident); Set_Location (Decl, Loc); Def := Parse_Range_Constraint; - Set_Type (Decl, Def); + Set_Type_Definition (Decl, Def); if Current_Token = Tok_Units then declare Unit_Def : Iir; @@ -1784,7 +1784,7 @@ package body Parse is Decl := Create_Iir (Iir_Kind_Type_Declaration); Set_Identifier (Decl, Ident); Set_Location (Decl, Loc); - Set_Type (Decl, Parse_Record_Definition); + Set_Type_Definition (Decl, Parse_Record_Definition); if Current_Token = Tok_Identifier then if Flags.Vhdl_Std = Vhdl_87 then Error_Msg_Parse ("simple_name not allowed here in vhdl87"); @@ -1829,13 +1829,12 @@ package body Parse is | Iir_Kind_Array_Type_Definition | Iir_Kind_File_Type_Definition => Decl := Create_Iir (Iir_Kind_Type_Declaration); - Set_Type (Decl, Def); when Iir_Kind_Array_Subtype_Definition => Decl := Create_Iir (Iir_Kind_Anonymous_Type_Declaration); - Set_Type (Decl, Def); when others => Error_Kind ("parse_type_declaration", Def); end case; + Set_Type_Definition (Decl, Def); end if; Set_Identifier (Decl, Ident); Set_Location (Decl, Loc); -- cgit v1.2.3