Finish adapting to new libxml-tree API

[SXSI/xpathcomp.git] / src / utils_stub.cpp

diff --git a/src/utils_stub.cpp b/src/utils_stub.cpp
new file mode 100644 (file)
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)));
+}