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/synth-environment.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/synth-environment.adb')
| -rw-r--r-- | src/synth/synth-environment.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb index 03acc2478..cf5384eb3 100644 --- a/src/synth/synth-environment.adb +++ b/src/synth/synth-environment.adb @@ -1278,11 +1278,13 @@ package body Synth.Environment is Res := N1_Net; Disconnect (N1_Sel); N1_Sel_Net := Build_Dyadic (Ctxt, Id_And, Sel, N1_Sel_Net); + Set_Location (N1_Sel_Net, Stmt); Connect (N1_Sel, N1_Sel_Net); else + Res := Build_Dyadic (Ctxt, Id_And, Sel, N1_Sel_Net); + Set_Location (Res, Stmt); Res := Build_Mux2 - (Ctxt, Build_Dyadic (Ctxt, Id_And, Sel, N1_Sel_Net), - N (0), Get_Driver (Get_Mux2_I1 (N1_Inst))); + (Ctxt, Res, N (0), Get_Driver (Get_Mux2_I1 (N1_Inst))); end if; end; elsif N (0) = N (1) then |