diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-20 04:43:52 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-20 07:34:00 +0200 |
commit | 1c081e799d51ce644d33910ff801dc0479ab4a06 (patch) | |
tree | 4a1a6d9970e0ade12a345a6ac67129e0b4ee0ccb /src/synth/synth-decls.adb | |
parent | 70cf91a7ccc9e8cce2277897efa10d9c6f59f1f1 (diff) | |
download | ghdl-1c081e799d51ce644d33910ff801dc0479ab4a06.tar.gz ghdl-1c081e799d51ce644d33910ff801dc0479ab4a06.tar.bz2 ghdl-1c081e799d51ce644d33910ff801dc0479ab4a06.zip |
synth: improve handling of nested memories. Fix #1250
Diffstat (limited to 'src/synth/synth-decls.adb')
-rw-r--r-- | src/synth/synth-decls.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index d615af910..003505bc6 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -776,8 +776,7 @@ package body Synth.Decls is is Atype : constant Node := Get_Declaration_Type (Decl); Off : Value_Offsets; - Voff : Net; - Rdwd : Width; + Dyn : Stmts.Dyn_Name; Res : Valtyp; Obj_Typ : Type_Acc; Base : Valtyp; @@ -792,8 +791,8 @@ package body Synth.Decls is end if; Stmts.Synth_Assignment_Prefix (Syn_Inst, Get_Name (Decl), - Base, Typ, Off, Voff, Rdwd); - pragma Assert (Voff = No_Net); + Base, Typ, Off, Dyn); + pragma Assert (Dyn.Voff = No_Net); if Base.Val.Kind = Value_Net then -- Object is a net if it is not writable. Extract the -- bits for the alias. |