X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcommon_stub.cpp;h=781d0794c2992b428c6061af43a69b5da47011bc;hb=refs%2Fheads%2Fmaster;hp=12b354eca2b741fdd264c357f4714cf4f5107133;hpb=4fb1afc60e3af83e6184c77ea2cb002def542a96;p=SXSI%2Fxpathcomp.git

diff --git a/src/common_stub.cpp b/src/common_stub.cpp
index 12b354e..781d079 100644
--- a/src/common_stub.cpp
+++ b/src/common_stub.cpp
@@ -71,7 +71,7 @@ value alloc_custom_(char* name)
 }
 
 
-extern "C" value sxsi_cpp_init(value unit)
+ML_BINDING value sxsi_cpp_init(value unit)
 {
   struct rlimit rlim;
   init_exception();
@@ -88,7 +88,7 @@ extern "C" value sxsi_cpp_init(value unit)
   return Val_unit;
 }
 
-void sxsi_raise_msg(char * msg)
+void sxsi_raise_msg(const char * msg)
 {
   if (cpp_exception == 0) init_error();
   caml_raise_with_string(*cpp_exception, msg);