diff options
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 2 | ||||
| -rw-r--r-- | src/synth/netlists-expands.adb | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index c1ce68c2e..4bbaaef31 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -109,6 +109,7 @@ package body Netlists.Disp_Vhdl is return; end if; + -- Interface names are not versionned, and don't have prefix. if Get_Sname_Kind (N) in Sname_User .. Sname_Artificial and then Get_Sname_Prefix (N) = No_Sname then @@ -142,6 +143,7 @@ package body Netlists.Disp_Vhdl is case Get_Id (M) is when Id_Signal | Id_Isignal => + -- No suffix for signals (it's 'o'). null; when others => Port_Name := Get_Output_Desc (M, Idx).Name; diff --git a/src/synth/netlists-expands.adb b/src/synth/netlists-expands.adb index bab2b9b47..a7afdda01 100644 --- a/src/synth/netlists-expands.adb +++ b/src/synth/netlists-expands.adb @@ -406,7 +406,8 @@ package body Netlists.Expands is Off : Uns32; begin Off := Get_Param_Uns32 (Inst, 0); - Generate_Muxes (Ctxt, Concat, Mem, Off, Dat, Memidx_Arr, Net_Arr.all); + Generate_Muxes + (Ctxt, Concat, Mem, Off, Dat, Memidx_Arr, Net_Arr.all, En); if Off < O_W then Append (Concat, Build_Extract (Ctxt, Mem, Off, O_W - Off)); end if; |