X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2FOCamlDriver.cpp;h=6b4e7737ecffa0193aa84cac2ba45c7b20cb8d14;hb=8c3aa2796959837e89a86d0076cdec89a46d9bb6;hp=4a31dad386e8b507824bd290ff2fdaf31ac3d88a;hpb=eff6c8d2b5c0ea839c660688338b59cbc99cba93;p=SXSI%2Fxpathcomp.git

diff --git a/src/OCamlDriver.cpp b/src/OCamlDriver.cpp
index 4a31dad..6b4e773 100644
--- a/src/OCamlDriver.cpp
+++ b/src/OCamlDriver.cpp
@@ -45,6 +45,15 @@ extern "C" {
 }
 
 
+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)));
+}
 
 /** XMLTreeBuilder bindings
  *