diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-01-16 22:05:36 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-01-16 22:05:36 +0100 |
commit | 79fe2268c2d2f887e2feb5b2ab63b061c5173636 (patch) | |
tree | 09072dbee2250cad9ef7e7dff0cfbc25350d2d66 /src/vhdl/translate/trans-chap1.adb | |
parent | 682cd848b5cd28c96b15b9b0cca70f6192a4c9dc (diff) | |
download | ghdl-79fe2268c2d2f887e2feb5b2ab63b061c5173636.tar.gz ghdl-79fe2268c2d2f887e2feb5b2ab63b061c5173636.tar.bz2 ghdl-79fe2268c2d2f887e2feb5b2ab63b061c5173636.zip |
Keep and handle simple name for Block_Specification.
Diffstat (limited to 'src/vhdl/translate/trans-chap1.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap1.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb index 5911e954f..ac64e6523 100644 --- a/src/vhdl/translate/trans-chap1.adb +++ b/src/vhdl/translate/trans-chap1.adb @@ -827,7 +827,7 @@ package body Trans.Chap1 is Block_Config : constant Iir_Block_Configuration := Get_Block_Configuration (Config); Arch : constant Iir_Architecture_Body := - Get_Block_Specification (Block_Config); + Strip_Denoting_Name (Get_Block_Specification (Block_Config)); Arch_Info : constant Block_Info_Acc := Get_Info (Arch); Interface_List : O_Inter_List; Config_Info : Config_Info_Acc; |