diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-26 20:07:15 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-26 20:08:02 +0200 |
| commit | 538876ee05630948c101b86829efc5f963ba5e36 (patch) | |
| tree | 728b8958f48ecca226c6908585cd7959878369b0 /src | |
| parent | e0090ffc06862b69915fca6e53234eb747f5abd9 (diff) | |
| download | ghdl-538876ee05630948c101b86829efc5f963ba5e36.tar.gz ghdl-538876ee05630948c101b86829efc5f963ba5e36.tar.bz2 ghdl-538876ee05630948c101b86829efc5f963ba5e36.zip | |
netlists-disp_vhdl: check presence location on significant instances.
Diffstat (limited to 'src')
| -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 "); |