From 132fde15a4d4bffd31bff341dfeaf11317c82130 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 28 Aug 2021 12:11:56 +0200
Subject: netlists-inference: improve location for dff.

---
 src/synth/netlists-inference.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/synth/netlists-inference.adb b/src/synth/netlists-inference.adb
index 00a029ea2..6da07e19a 100644
--- a/src/synth/netlists-inference.adb
+++ b/src/synth/netlists-inference.adb
@@ -355,7 +355,7 @@ package body Netlists.Inference is
                Prev := Build2_Extract (Ctxt, Prev_Val, Off, Get_Width (Data));
 
                Ndata := Build_Mux2 (Ctxt, Clk_Enable, Prev, Data);
-               Copy_Location (Ndata, Clk_Enable);
+               Set_Location (Ndata, Loc);
             end;
          else
             Ndata := Data;
-- 
cgit v1.2.3