diff options
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 1983409a5..e79f31526 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -9800,9 +9800,19 @@ package body Vhdl.Parse is Hier_Name := Create_Iir (Iir_Kind_Psl_Hierarchical_Name); Set_Location (Hier_Name); + Set_Hierarchical_Name (Res, Hier_Name); + Set_Entity_Name (Hier_Name, Parse_Simple_Name); - Set_Hierarchical_Name (Res, Hier_Name); + if Current_Token = Tok_Left_Paren then + -- Skip '('. + Scan; + + Set_Architecture (Hier_Name, Parse_Simple_Name); + + -- Skip ')'. + Expect_Scan (Tok_Right_Paren); + end if; -- Skip ')' Expect_Scan (Tok_Right_Paren); |