update for jsoo#883

inhabitedtype · Oct 11, 2019 · 985e2ef · 985e2ef
1 parent aaf92c5
commit 985e2ef
Showing 1 changed file with 6 additions and 12 deletions.
diff --git a/lib/runtime.js b/lib/runtime.js
@@ -32,27 +32,21 @@
   ----------------------------------------------------------------------------*/
 
 //Provides: bigstringaf_blit_to_bytes
-//Requires: caml_string_unsafe_set, caml_ba_get_1
+//Requires: caml_ba_blit_ba_to_bytes
 function bigstringaf_blit_to_bytes(src, src_off, dst, dst_off, len) {
-  for (var i = 0; i < len; i++) {
-    caml_string_unsafe_set(dst, dst_off + i, caml_ba_get_1(src, src_off + i));
-  }
+  return caml_ba_blit_ba_to_bytes(src,src_off,dst,dst_off,len);
 }
 
 //Provides: bigstringaf_blit_to_bigstring
-//Requires: caml_ba_set_1, caml_ba_get_1
+//Requires: caml_ba_blit_ba_to_ba
 function bigstringaf_blit_to_bigstring(src, src_off, dst, dst_off, len) {
-  for (var i = 0; i < len; i++) {
-    caml_ba_set_1(dst, dst_off + i, caml_ba_get_1(src, src_off + i));
-  }
+  return caml_ba_blit_ba_to_ba(src, src_off, dst, dst_off, len);
 }
 
 //Provides: bigstringaf_blit_from_bytes
-//Requires: caml_ba_set_1, caml_string_unsafe_get
+//Requires: caml_ba_blit_string_to_ba
 function bigstringaf_blit_from_bytes(src, src_off, dst, dst_off, len) {
-  for (var i = 0; i < len; i++) {
-    caml_ba_set_1(dst, dst_off + i, caml_string_unsafe_get(src, src_off + i));
-  }
+  return caml_ba_blit_string_to_ba(src, src_off, dst, dst_off, len);
 }
 
 //Provides: bigstringaf_memcmp_bigstring