From fe7533020065c4fce5c74030769cb1ef81ec2ddf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Aug 2022 17:36:12 +0200
Subject: vhdl-parse.adb: parse pathname expression

---
 src/vhdl/vhdl-parse.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src')

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 '.'.
-- 
cgit v1.2.3