missing prims

Author: hhugo

runtime/js/array.js

@@ -92,6 +92,18 @@ function caml_floatarray_concat(l) {
   return a;
 }
 
+//Provides: caml_uniform_array_concat mutable
+//Version: >= 5.4
+function caml_uniform_array_concat(l) {
+  var a = [0];
+  while (l !== 0) {
+    var b = l[1];
+    for (var i = 1; i < b.length; i++) a.push(b[i]);
+    l = l[2];
+  }
+  return a;
+}
+
 //Provides: caml_array_blit
 function caml_array_blit(a1, i1, a2, i2, len) {
   if (i2 <= i1) {

runtime/js/obj.js

@@ -32,6 +32,7 @@ function caml_update_dummy(x, y) {
 
 //Provides: caml_alloc_dummy_infix
 //Requires: caml_call_gen
+//Version: < 5.4
 function caml_alloc_dummy_infix() {
   return function f(x) {
     return caml_call_gen(f.fun, [x]);
@@ -269,3 +270,18 @@ function caml_is_continuation_tag(t) {
 function caml_custom_identifier(o) {
   return caml_string_of_jsstring(o.caml_custom);
 }
+
+//Provides: caml_ml_gc_ramp_up
+//Requires: caml_callback
+//Version: >= 5.4
+function caml_ml_gc_ramp_up(f) {
+  var a = caml_callback(f, [0]);
+  var suspended = 0;
+  return [0, a, suspended];
+}
+
+//Provides: caml_ml_gc_ramp_down
+//Version: >= 5.4
+function caml_ml_gc_ramp_down(_suspended_collection_work) {
+  return 0;
+}