1 files changed, 4 insertions, 0 deletions
diff --git a/src/mutils.adb b/src/mutils.adb
index 1b40bff79..d51891f02 100644
--- a/src/mutils.adb
+++ b/src/mutils.adb
@@ -24,4 +24,8 @@ package body Mutils is
       return 64;
    end Clog2;
 
+   function Is_Power2 (V : Uns64) return Boolean is
+   begin
+      return (V and (V - 1)) = 0;
+   end Is_Power2;
 end Mutils;