runtime: support new core_kernel

Author: hhugo

runtime/bigstring.js

@@ -10,19 +10,23 @@ function bigstring_destroy_stub(_v) {
   return 0; // noop
 }
 
-//Provides: bigstring_blit_bigstring_string_stub
+//Provides: bigstring_blit_bigstring_bytes_stub
 //Requires: caml_string_set, caml_ba_get_1
-function bigstring_blit_bigstring_string_stub(v_bstr, v_src_pos, v_str, v_dst_pos, v_len){
+function bigstring_blit_bigstring_bytes_stub(v_bstr, v_src_pos, v_str, v_dst_pos, v_len){
   for(var i = 0; i < v_len; i++){
     var c = caml_ba_get_1(v_bstr,v_src_pos + i);
     caml_string_set(v_str,v_dst_pos + i,c);
   }
   return 0;
 }
 
+//Provides: bigstring_blit_bigstring_string_stub
+//Requires: bigstring_blit_bigstring_bytes_stub
+var bigstring_blit_bigstring_string_stub = bigstring_blit_bigstring_bytes_stub
+
 //Provides: caml_blit_bigstring_to_string
-//Requires: bigstring_blit_bigstring_string_stub
-var caml_blit_bigstring_to_string = bigstring_blit_bigstring_string_stub
+//Requires: bigstring_blit_bigstring_bytes_stub
+var caml_blit_bigstring_to_string = bigstring_blit_bigstring_bytes_stub
 
 //Provides: bigstring_blit_string_bigstring_stub
 //Requires: caml_string_get, caml_ba_set_1
@@ -31,6 +35,12 @@ function bigstring_blit_string_bigstring_stub(v_str, v_src_pos, v_bstr, v_dst_po
   return 0;
 }
 
+//Provides: bigstring_blit_bytes_bigstring_stub
+//Requires: caml_string_get, caml_ba_set_1
+function bigstring_blit_bytes_bigstring_stub(v_str, v_src_pos, v_bstr, v_dst_pos, v_len){
+  for (var i = 0; i < v_len; i++) caml_ba_set_1(v_bstr,v_dst_pos + i,caml_string_get(v_str,v_src_pos + i));
+  return 0;
+}
 //Provides: caml_blit_string_to_bigstring
 //Requires: bigstring_blit_string_bigstring_stub
 var caml_blit_string_to_bigstring = bigstring_blit_string_bigstring_stub