From ef32e0b2e0339ceabc55ef4ac6cfcef4b3933f21 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 27 Apr 2020 05:38:23 +0200 Subject: synth-stmts: add a missing location. Fix #1267 --- src/synth/synth-stmts.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index d94095a5b..838f19270 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -2030,6 +2030,7 @@ package body Synth.Stmts is function Loop_Control_And (C : Seq_Context; L, R : Net) return Net is B1 : constant Net := Get_Inst_Bit1 (C.Inst); + Res : Net; begin -- Optimize common cases. if L = B1 then @@ -2037,7 +2038,9 @@ package body Synth.Stmts is elsif R = B1 then return L; else - return Build_Dyadic (Get_Build (C.Inst), Netlists.Gates.Id_And, L, R); + Res := Build_Dyadic (Get_Build (C.Inst), Netlists.Gates.Id_And, L, R); + Set_Location (Res, C.Cur_Loop.Loop_Stmt); + return Res; end if; end Loop_Control_And; -- cgit v1.2.3