2 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/netlists-utils.adb b/src/synth/netlists-utils.adb
index d5a1f2edd..7d9d71f5b 100644
--- a/src/synth/netlists-utils.adb
+++ b/src/synth/netlists-utils.adb
@@ -19,6 +19,7 @@
 --  MA 02110-1301, USA.
 
 with Netlists.Gates; use Netlists.Gates;
+with Mutils;
 
 package body Netlists.Utils is
    function Get_Nbr_Inputs (Inst : Instance) return Port_Nbr
@@ -175,4 +176,9 @@ package body Netlists.Utils is
       --  Free Inst
       Free_Instance (Inst);
    end Disconnect_And_Free;
+
+   function Clog2 (W : Width) return Width is
+   begin
+      return Uns32 (Mutils.Clog2 (Uns64 (W)));
+   end Clog2;
 end Netlists.Utils;
diff --git a/src/synth/netlists-utils.ads b/src/synth/netlists-utils.ads
index 1026bedc2..e8565c823 100644
--- a/src/synth/netlists-utils.ads
+++ b/src/synth/netlists-utils.ads
@@ -55,4 +55,6 @@ package Netlists.Utils is
    --  Disconnect input I.  If the driver of I has no output(s) connected,
    --  disconnect and free it.
    procedure Disconnect_And_Free (I : Input);
+
+   function Clog2 (W : Width) return Width;
 end Netlists.Utils;