src/utils_stub.cpp

   1 #include "common_stub.hpp"
   2
   3 extern "C" value caml_clz(value i)
   4 {
   5   return Val_long( ((sizeof(unsigned long)*8) - __builtin_clzl(Long_val(i))) - 1);
   6 }
   7
   8 extern "C" value caml_leading_bit(value i)
   9 {
  10   return Val_long( ( 1 << (sizeof(unsigned long)*8 - __builtin_clzl(Long_val(i)) - 1)));
  11 }