From 21732824cfea2164654635beb5fb28ebd6b37c35 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 27 Oct 2019 21:05:03 +0100
Subject: netlists: change Loc parameter of synth_case.

---
 src/synth/netlists-butils.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/synth/netlists-butils.adb')

diff --git a/src/synth/netlists-butils.adb b/src/synth/netlists-butils.adb
index d26e1762c..7b74def6d 100644
--- a/src/synth/netlists-butils.adb
+++ b/src/synth/netlists-butils.adb
@@ -18,13 +18,15 @@
 --  Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
 --  MA 02110-1301, USA.
 
+with Netlists.Locations; use Netlists.Locations;
+
 package body Netlists.Butils is
    procedure Synth_Case (Ctxt : Context_Acc;
                          Sel : Net;
                          Els : in out Case_Element_Array;
                          Default : Net;
                          Res : out Net;
-                         Sel_Loc : Syn_Src)
+                         Sel_Loc : Location_Type)
    is
       Wd : constant Width := Get_Width (Sel);
       Mask : Uns64;
-- 
cgit v1.2.3