diff options
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index 177d46f88..310922f19 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -1391,6 +1391,16 @@ package body Vhdl.Parse is -- Skip identifier. Scan; + if Current_Token = Tok_Left_Paren then + -- Skip '('. + Scan; + + Set_Pathname_Expression (El, Parse_Expression); + + -- Skip ')'. + Expect_Scan (Tok_Right_Paren); + end if; + exit when Current_Token /= Tok_Dot; -- Skip '.'. |