diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap9.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 0736c6dcd..ae6efeac0 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1302,7 +1302,7 @@ package body Trans.Chap9 is Gen_Register_Direct_Driver (Sig_Node, Get_Type (Sig), Drv_Node); else - Register_Signal (Chap6.Translate_Name (Sig), + Register_Signal (Chap6.Translate_Name (Sig, Mode_Signal), Get_Type (Sig), Ghdl_Process_Add_Driver); end if; @@ -1432,6 +1432,9 @@ package body Trans.Chap9 is -- Create the guard signal. Start_Association (Constr, Ghdl_Signal_Create_Guard); New_Association + (Constr, New_Unchecked_Address (Get_Var (Info.Signal_Val), + Ghdl_Ptr_Type)); + New_Association (Constr, New_Unchecked_Address (Get_Instance_Ref (Block_Info.Block_Scope), Ghdl_Ptr_Type)); New_Association @@ -2050,7 +2053,8 @@ package body Trans.Chap9 is Data.Has_Val := False; end case; - Merge_Signals_Rti (Chap6.Translate_Name (Port), Port_Type, Data); + Merge_Signals_Rti + (Chap6.Translate_Name (Port, Mode_Signal), Port_Type, Data); Close_Temp; Port := Get_Chain (Port); |