diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-26 19:42:43 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-26 20:07:53 +0200 |
| commit | e0090ffc06862b69915fca6e53234eb747f5abd9 (patch) | |
| tree | e6af1abe87925b1dbfa15059a69a140ef92edfe3 /src/synth/netlists-inference.adb | |
| parent | 2bdc1cdc3afc8350fb5bb1ba7a438055704a6ed9 (diff) | |
| download | ghdl-e0090ffc06862b69915fca6e53234eb747f5abd9.tar.gz ghdl-e0090ffc06862b69915fca6e53234eb747f5abd9.tar.bz2 ghdl-e0090ffc06862b69915fca6e53234eb747f5abd9.zip | |
synth: add many calls to set_location
Diffstat (limited to 'src/synth/netlists-inference.adb')
| -rw-r--r-- | src/synth/netlists-inference.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/netlists-inference.adb b/src/synth/netlists-inference.adb index 9ec445901..9079a260d 100644 --- a/src/synth/netlists-inference.adb +++ b/src/synth/netlists-inference.adb @@ -198,6 +198,7 @@ package body Netlists.Inference is Connect (I2, N1); else N4 := Build_Dyadic (Ctxt, Id_And, N2, N1); + Copy_Location (N4, Inst); Connect (I1, N4); end if; end; @@ -586,13 +587,16 @@ package body Netlists.Inference is -- Add the negation of the condition to the enable signal. -- Negate the condition for the current reset. Mux_Not_Rst := Build_Monadic (Ctxt, Id_Not, Mux_Rst); + Set_Location (Mux_Not_Rst, Stmt); if Rst /= No_Net then Rst := Build_Dyadic (Ctxt, Id_And, Rst, Mux_Not_Rst); + Set_Location (Rst, Stmt); end if; if Enable = No_Net then Enable := Mux_Not_Rst; else Enable := Build_Dyadic (Ctxt, Id_And, Enable, Mux_Not_Rst); + Set_Location (Enable, Stmt); end if; if Prev_Mux /= No_Instance then @@ -618,6 +622,7 @@ package body Netlists.Inference is else -- New async reset condition. Rst := Build_Dyadic (Ctxt, Id_Or, Mux_Rst, Rst); + Copy_Location (Rst, Mux_Rst); -- Use prev_mux to select the reset value. Connect (Get_Mux2_Sel (Prev_Mux), Mux_Rst); |