1 files changed, 27 insertions, 0 deletions
diff --git a/src/mutils.adb b/src/mutils.adb
new file mode 100644
index 000000000..1b40bff79
--- /dev/null
+++ b/src/mutils.adb
@@ -0,0 +1,27 @@
+package body Mutils is
+   function Clog2 (V : Uns64) return Integer
+   is
+      Low : Natural;
+   begin
+      if V >= 2**16 then
+         if V >= 2**32 then
+            Low := 32;
+         else
+            Low := 16;
+         end if;
+      else
+         if V >= 2**8 then
+            Low := 8;
+         else
+            Low := 0;
+         end if;
+      end if;
+      for I in Low .. 63 loop
+         if 2**I >= V then
+            return I;
+         end if;
+      end loop;
+      return 64;
+   end Clog2;
+
+end Mutils;