diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-03 19:29:58 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-04 19:04:09 +0200 |
commit | 7792975e486d010c8a6f85fe3ff9c01afc65d015 (patch) | |
tree | dd9c2ecdb03bf80f039df84c0f3bad50b4ca2d54 /src/synth/synth-environment.adb | |
parent | 683fbcde25efed81aac4d659d89bc4a8421a7b26 (diff) | |
download | ghdl-7792975e486d010c8a6f85fe3ff9c01afc65d015.tar.gz ghdl-7792975e486d010c8a6f85fe3ff9c01afc65d015.tar.bz2 ghdl-7792975e486d010c8a6f85fe3ff9c01afc65d015.zip |
synth: improve debugging routines.
Diffstat (limited to 'src/synth/synth-environment.adb')
-rw-r--r-- | src/synth/synth-environment.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb index d6bb29883..a48ae0119 100644 --- a/src/synth/synth-environment.adb +++ b/src/synth/synth-environment.adb @@ -1315,7 +1315,7 @@ package body Synth.Environment is end Merge_Partial_Assigns; procedure Merge_Assigns (Ctxt : Builders.Context_Acc; - W : Wire_Id; + Wid : Wire_Id; Sel : Net; F_Asgns : Seq_Assign_Value; T_Asgns : Seq_Assign_Value; @@ -1347,7 +1347,7 @@ package body Synth.Environment is for I in N'Range loop if N (I) = No_Net then -- No partial assignment. Get extract previous value. - N (I) := Get_Current_Assign_Value (Ctxt, W, Off, Wd); + N (I) := Get_Current_Assign_Value (Ctxt, Wid, Off, Wd); end if; end loop; @@ -1407,7 +1407,7 @@ package body Synth.Environment is -- Do the assignments from the result list. -- It cannot be done before because the assignments will overwrite the -- last assignments which are read to create a partial assignment. - Merge_Partial_Assigns (Ctxt, W, List); + Merge_Partial_Assigns (Ctxt, Wid, List); end Merge_Assigns; function Merge_Static_Assigns (Wid : Wire_Id; Tv, Fv : Seq_Assign_Value) |