diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-08-11 17:36:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-08-11 17:36:12 +0200 |
commit | fe7533020065c4fce5c74030769cb1ef81ec2ddf (patch) | |
tree | 8929053fcbab664747b984ed4b7be01505a61199 | |
parent | 362f987a4d2277480695dd2432736d7403eed01d (diff) | |
download | ghdl-fe7533020065c4fce5c74030769cb1ef81ec2ddf.tar.gz ghdl-fe7533020065c4fce5c74030769cb1ef81ec2ddf.tar.bz2 ghdl-fe7533020065c4fce5c74030769cb1ef81ec2ddf.zip |
vhdl-parse.adb: parse pathname expression
-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 '.'. |