diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-12 20:06:28 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-12 20:36:03 +0100 |
| commit | 97c875c15734f991e1c7b190385def8f0b587538 (patch) | |
| tree | ea0a837dc526d2bc147da536c62544220c94c6ea | |
| parent | 159ba3c92b646fa66a484514078d154068fa5d43 (diff) | |
| download | ghdl-97c875c15734f991e1c7b190385def8f0b587538.tar.gz ghdl-97c875c15734f991e1c7b190385def8f0b587538.tar.bz2 ghdl-97c875c15734f991e1c7b190385def8f0b587538.zip | |
netlists: initial support of net of width 0.
| -rw-r--r-- | src/synth/netlists-builders.adb | 2 | ||||
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 1 |
2 files changed, 0 insertions, 3 deletions
diff --git a/src/synth/netlists-builders.adb b/src/synth/netlists-builders.adb index a764cad1a..48ebe51c2 100644 --- a/src/synth/netlists-builders.adb +++ b/src/synth/netlists-builders.adb @@ -858,7 +858,6 @@ package body Netlists.Builders is I0, I1 : Net) return Net is Wd : constant Width := Get_Width (I1); - pragma Assert (Wd /= No_Width); pragma Assert (I0 = No_Net or else Get_Width (I0) = Wd); pragma Assert (Get_Width (Sel) = 1); Inst : Instance; @@ -1223,7 +1222,6 @@ package body Netlists.Builders is D : Net) return Net is Wd : constant Width := Get_Width (D); - pragma Assert (Wd /= No_Width); pragma Assert (Get_Width (Clk) = 1); Inst : Instance; O : Net; diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index f673a69de..992f0bf5e 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -1007,7 +1007,6 @@ package body Netlists.Disp_Vhdl is Ow : constant Width := Get_Width (Get_Output (Inst, 0)); Iw : constant Width := Get_Width (Get_Input_Net (Inst, 0)); begin - pragma Assert (Iw > 0); pragma Assert (Ow > Iw); Disp_Template (" \o0 <= """, Inst); Put ((1 .. Natural (Ow - Iw) => '0')); |