diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-29 18:44:11 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-29 18:44:11 +0200 |
| commit | 1e90b56431dc5df5463a760555b1abc746f50958 (patch) | |
| tree | a2f558d972f3d72817e5bf60087334cae6370838 /src/synth/synth-stmts.adb | |
| parent | 2068fb5a9eba5da625d2dd73fdcb47755487d9f3 (diff) | |
| download | ghdl-1e90b56431dc5df5463a760555b1abc746f50958.tar.gz ghdl-1e90b56431dc5df5463a760555b1abc746f50958.tar.bz2 ghdl-1e90b56431dc5df5463a760555b1abc746f50958.zip | |
synth: add support for memories.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 3d779f54c..468733b09 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -161,7 +161,8 @@ package body Synth.Stmts is Pfx : constant Node := Get_Prefix (Target); Targ : constant Value_Acc := Get_Value (Syn_Inst, Get_Base_Name (Pfx)); - Res_Bnd : Type_Acc; + Res_Bnd : Bound_Type; + Res_Type : Type_Acc; Targ_Net : Net; Inp : Net; Step : Uns32; @@ -174,7 +175,7 @@ package body Synth.Stmts is -- Only support assignment of vector. raise Internal_Error; end if; - Synth_Slice_Suffix (Syn_Inst, Target, Targ.Typ, + Synth_Slice_Suffix (Syn_Inst, Target, Targ.Typ.Vbound, Res_Bnd, Inp, Step, Off, Wd); Targ_Net := Get_Last_Assigned_Value (Targ.W); V := Get_Net (Val); @@ -186,7 +187,8 @@ package body Synth.Stmts is (Build_Context, Targ_Net, V, Uns32 (Off)); end if; Set_Location (Res, Target); - Synth_Assign (Targ, Create_Value_Net (Res, Res_Bnd)); + Res_Type := Create_Vector_Type (Res_Bnd, Targ.Typ.Vec_El); + Synth_Assign (Targ, Create_Value_Net (Res, Res_Type)); end; when others => Error_Kind ("synth_assignment", Target); |