are indeed custom blocks.
compile_flags @= [A "-noassert"];
pp_macro_options @= [ A "-unsafe" ];
native_compile_flags @= [ A "-inline"; A ocaml_inline ];
compile_flags @= [A "-noassert"];
pp_macro_options @= [ A "-unsafe" ];
native_compile_flags @= [ A "-inline"; A ocaml_inline ];
- cxx_flags @= [ A "-O3" ]
+ cxx_flags @= [ A "-O3"; A "-DNDEBUG" ]
end;
let dir_path = Pathname.pwd / src_path in
end;
let dir_path = Pathname.pwd / src_path in
}
#include <typeinfo>
#include <cstdio>
}
#include <typeinfo>
#include <cstdio>
template <class X> X& Obj_val(value v)
{
template <class X> X& Obj_val(value v)
{
+ assert(Tag_val(v) == Custom_tag);
return * (X*) Data_custom_val(v);
}
return * (X*) Data_custom_val(v);
}