X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Futils_stub.cpp;fp=src%2Futils_stub.cpp;h=dc3688af639e9b514d587ca992d3a5b9ac73c8a5;hb=83e9f9d8f219fece86afbedd1332d5ad97971d1c;hp=0000000000000000000000000000000000000000;hpb=9d19c60e10c9572885509b35c2b72f362968d6ab;p=SXSI%2Fxpathcomp.git

diff --git a/src/utils_stub.cpp b/src/utils_stub.cpp
new file mode 100644
index 0000000..dc3688a
--- /dev/null
+++ b/src/utils_stub.cpp
@@ -0,0 +1,11 @@
+#include "common_stub.hpp"
+
+extern "C" value caml_clz(value i)
+{
+  return Val_long( ((sizeof(unsigned long)*8) - __builtin_clzl(Long_val(i))) - 1);
+}
+
+extern "C" value caml_leading_bit(value i)
+{
+  return Val_long( ( 1 << (sizeof(unsigned long)*8 - __builtin_clzl(Long_val(i)) - 1)));
+}