From 79fe2268c2d2f887e2feb5b2ab63b061c5173636 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 16 Jan 2015 22:05:36 +0100 Subject: Keep and handle simple name for Block_Specification. --- src/vhdl/translate/trans-chap1.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/vhdl/translate/trans-chap1.adb') 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; -- cgit v1.2.3