diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-21 21:43:37 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-21 21:43:37 +0200 |
| commit | b96e9b2d90f9c586b50c442b7fd1e4bb9972ac0d (patch) | |
| tree | 5542b9ac3ec676e1df558f3ce0bb8070d56ff30b /src/synth/netlists-disp_vhdl.adb | |
| parent | baca4659950b461dcbfec08046ad6360362bcf8b (diff) | |
| download | ghdl-b96e9b2d90f9c586b50c442b7fd1e4bb9972ac0d.tar.gz ghdl-b96e9b2d90f9c586b50c442b7fd1e4bb9972ac0d.tar.bz2 ghdl-b96e9b2d90f9c586b50c442b7fd1e4bb9972ac0d.zip | |
netlists-memories: set location on utrunc. Fix #1332
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index c1289935c..0ca1cdb04 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -1341,16 +1341,17 @@ package body Netlists.Disp_Vhdl is if Locations.Get_Location (Inst) = No_Location then case Get_Id (Inst) is when Id_Const_UB32 - | Id_Const_SB32 - | Id_Const_UL32 - | Id_Const_Bit - | Id_Const_Log - | Id_Const_Z - | Id_Concat2 - | Id_Concat3 - | Id_Concat4 - | Id_Concatn - | Id_Extract => + | Id_Const_SB32 + | Id_Const_UL32 + | Id_Const_Bit + | Id_Const_Log + | Id_Const_Z + | Id_Const_0 + | Id_Concat2 + | Id_Concat3 + | Id_Concat4 + | Id_Concatn + | Id_Extract => null; when others => raise Internal_Error; |