diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-18 07:07:27 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-18 18:45:25 +0200 |
| commit | 1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef (patch) | |
| tree | 1d9f47c3896738ec3e4450b796b71d210fe5eada /src/synth/synth-stmts.adb | |
| parent | 48396102d53ed1c10a750a14ff75364d5c533e10 (diff) | |
| download | ghdl-1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef.tar.gz ghdl-1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef.tar.bz2 ghdl-1b8c3d64e07584ffcd60f2d13634e6285e3cc7ef.zip | |
synth: improve locations tracking.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 647cd0184..2abfc6bf9 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -460,7 +460,8 @@ package body Synth.Stmts is Pop_Phi (Phi_False); En_F := C.T_En; - Merge_Phis (Build_Context, Get_Net (Cond_Val), Phi_True, Phi_False); + Merge_Phis (Build_Context, + Get_Net (Cond_Val), Phi_True, Phi_False, Stmt); if En_T = En_F then C.T_En := En_T; else @@ -1372,7 +1373,7 @@ package body Synth.Stmts is Pop_Phi (Phi_F); Merge_Phis (Build_Context, Get_Current_Value (Build_Context, C.W_Ret), - Phi_F, Phi_T); + Phi_F, Phi_T, Stmt); end if; if C.T_En = False then return; @@ -1412,7 +1413,7 @@ package body Synth.Stmts is Pop_Phi (Phi_False); Merge_Phis (Build_Context, Get_Net (Cond_Val), - Phi_True, Phi_False); + Phi_True, Phi_False, Stmt); end Synth_Process_Sequential_Statements; procedure Synth_Process_Statement |