From 19db894c481e5c3fca89862ef244803c63a54ed7 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Sun, 22 Apr 2007 06:16:11 +0000
Subject: synchronized to ghdl 0.26

---
 disp_vhdl.adb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'disp_vhdl.adb')

diff --git a/disp_vhdl.adb b/disp_vhdl.adb
index e87013674..9a9545318 100644
--- a/disp_vhdl.adb
+++ b/disp_vhdl.adb
@@ -1952,10 +1952,7 @@ package body Disp_Vhdl is
             Put ("");
             return;
          when Iir_Kind_Selected_Name =>
-            Disp_Expression (Get_Prefix (Expr));
-            Put ('.');
-            Disp_Expression (Get_Suffix (Expr));
-            return;
+            Disp_Name (Expr);
 
          when Iir_Kinds_Type_And_Subtype_Definition =>
             Disp_Type (Expr);
-- 
cgit v1.2.3