1 #include "common_stub.hpp"
3 extern "C" value caml_clz(value i)
5 return Val_long( ((sizeof(unsigned long)*8) - __builtin_clzl(Long_val(i))) - 1);
8 extern "C" value caml_leading_bit(value i)
10 return Val_long( ( 1 << (sizeof(unsigned long)*8 - __builtin_clzl(Long_val(i)) - 1)));