diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-01 06:09:55 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-01 06:09:55 +0200 |
commit | a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9 (patch) | |
tree | 84f3c18584169d3582efe6a3f2a6bdb1b024f47a /src/synth/netlists-builders.adb | |
parent | bb00cae25caff518b54c28ba8cc6ee7381fdf2ac (diff) | |
download | ghdl-a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9.tar.gz ghdl-a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9.tar.bz2 ghdl-a7d9aa91b5a9f4847edf71c80b70cfec6d646fd9.zip |
synth: improve support of arrays or arrays. Fix #955
Diffstat (limited to 'src/synth/netlists-builders.adb')
-rw-r--r-- | src/synth/netlists-builders.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/netlists-builders.adb b/src/synth/netlists-builders.adb index b6fdcbb92..e0c749792 100644 --- a/src/synth/netlists-builders.adb +++ b/src/synth/netlists-builders.adb @@ -922,7 +922,7 @@ package body Netlists.Builders is function Build_Dyn_Insert (Ctxt : Context_Acc; - I : Net; V : Net; P : Net; Step : Uns32; Off : Int32) + I : Net; V : Net; P : Net; Step : Uns32; Off : Uns32) return Net is Wd : constant Width := Get_Width (I); @@ -939,7 +939,7 @@ package body Netlists.Builders is end if; Connect (Get_Input (Inst, 2), P); Set_Param_Uns32 (Inst, 0, Step); - Set_Param_Uns32 (Inst, 1, To_Uns32 (Off)); + Set_Param_Uns32 (Inst, 1, Off); return O; end Build_Dyn_Insert; @@ -1114,7 +1114,7 @@ package body Netlists.Builders is function Build_Dyn_Extract (Ctxt : Context_Acc; - I : Net; P : Net; Step : Uns32; Off : Int32; W : Width) return Net + I : Net; P : Net; Step : Uns32; Off : Uns32; W : Width) return Net is Wd : constant Width := Get_Width (I); pragma Assert (Wd /= No_Width); @@ -1128,7 +1128,7 @@ package body Netlists.Builders is Connect (Get_Input (Inst, 0), I); Connect (Get_Input (Inst, 1), P); Set_Param_Uns32 (Inst, 0, Step); - Set_Param_Uns32 (Inst, 1, To_Uns32 (Off)); + Set_Param_Uns32 (Inst, 1, Off); return O; end Build_Dyn_Extract; |