1 #include "utils_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)));
13 xml_tree::tag_t*& TAGLIST(value x)
15 return Obj_val<xml_tree::tag_t*>(x);
18 static void finalize_tag_list(value x)
20 xml_tree::tag_t * t = TAGLIST(x);
24 extern "C" value caml_tag_list_alloc(value length)
28 tlist = sxsi_alloc_custom<xml_tree::tag_t*>();
29 TAGLIST(tlist) = new xml_tree::tag_t[Int_val(length)];
33 NoAlloc extern "C" value caml_tag_list_set(value tl, value i, value v)
35 TAGLIST(tl)[Int_val(i)] = Int_val(v);