diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-02 20:17:23 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-02 20:17:23 +0200 |
commit | d145f8b9f99463f310a466f2e8e114d1b61afaee (patch) | |
tree | cc53ea8b73878af0cc7b2d20a41dfb700a5a3c59 /src/synth/netlists-builders.adb | |
parent | 336dbeaa305bdfe968a500161f561b35a9c495c0 (diff) | |
download | ghdl-d145f8b9f99463f310a466f2e8e114d1b61afaee.tar.gz ghdl-d145f8b9f99463f310a466f2e8e114d1b61afaee.tar.bz2 ghdl-d145f8b9f99463f310a466f2e8e114d1b61afaee.zip |
synth: introduce memidx1
Diffstat (limited to 'src/synth/netlists-builders.adb')
-rw-r--r-- | src/synth/netlists-builders.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/synth/netlists-builders.adb b/src/synth/netlists-builders.adb index 12aee039d..f27d82723 100644 --- a/src/synth/netlists-builders.adb +++ b/src/synth/netlists-builders.adb @@ -982,10 +982,10 @@ package body Netlists.Builders is end Build_Dyn_Insert; function Build_Memidx1 - (Ctxt : Context_Acc; I : Net; Step : Uns32; Max : Uns32) return Net + (Ctxt : Context_Acc; + I : Net; Step : Uns32; Max : Uns32; W : Width) return Net is - W : constant Width := Get_Width (I); - pragma Assert (W /= No_Width); + pragma Assert (Get_Width (I) /= No_Width); pragma Assert (Step > 0); pragma Assert (W > 0); Inst : Instance; @@ -1001,12 +1001,10 @@ package body Netlists.Builders is end Build_Memidx1; function Build_Memidx2 - (Ctxt : Context_Acc; I : Net; Add : Net; Step : Uns32; Max : Uns32) - return Net + (Ctxt : Context_Acc; + I : Net; Add : Net; Step : Uns32; Max : Uns32; W : Width) return Net is - W : constant Width := Get_Width (I); - pragma Assert (W /= No_Width); - pragma Assert (Get_Width (Add) = W); + pragma Assert (Get_Width (I) /= No_Width); pragma Assert (Get_Width (Add) /= No_Width); pragma Assert (Step > 0); pragma Assert (W > 0); |