diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
| commit | 19db894c481e5c3fca89862ef244803c63a54ed7 (patch) | |
| tree | d04ed7d0707a74fb072fb57f88948a8416c00375 /disp_vhdl.adb | |
| parent | 301584eaf540c982676f520d662b473e59890584 (diff) | |
| download | ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.gz ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.bz2 ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.zip | |
synchronized to ghdl 0.26
Diffstat (limited to 'disp_vhdl.adb')
| -rw-r--r-- | disp_vhdl.adb | 5 |
1 files changed, 1 insertions, 4 deletions
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); |