diff options
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
-rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index 383d161d6..f61f8d32c 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -1306,6 +1306,21 @@ package body Netlists.Disp_Vhdl is and then Id < Id_User_None and then not Need_Signal (Inst)) then + if Locations.Get_Location (Inst) = No_Location then + case Get_Id (Inst) is + when Id_Const_UB32 + | Id_Const_UL32 + | Id_Const_Z + | Id_Concat2 + | Id_Concat3 + | Id_Concat4 + | Id_Concatn + | Id_Extract => + null; + when others => + raise Internal_Error; + end case; + end if; for N of Outputs (Inst) loop if Id in Constant_Module_Id then Put (" constant "); |