OxCaml runtime: stubs in Obj, Gc, and Runtime_events

Author: vouillon

runtime/js/gc.js

@@ -86,14 +86,23 @@ function caml_memprof_discard(_t) {
   return 0;
 }
 
+//Provides: caml_memprof_participate
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_memprof_participate(_config) {
+  return 0;
+}
+
 //Provides: caml_eventlog_resume
-//Version: < 5.0
+//Version: <= 5.2
+//(actually < 5.0, but OxCaml still references it)
 function caml_eventlog_resume(_unit) {
   return 0;
 }
 
 //Provides: caml_eventlog_pause
-//Version: < 5.0
+//Version: <= 5.2
+//(actually < 5.0, but OxCaml still references it)
 function caml_eventlog_pause(_unit) {
   return 0;
 }
@@ -130,3 +139,26 @@ function caml_get_major_bucket(_n) {
 function caml_get_major_credit(_n) {
   return 0;
 }
+
+//Provides: caml_gc_tweak_get
+//Requires: caml_invalid_argument
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_gc_tweak_get(_name) {
+  caml_invalid_argument("Gc.Tweak: parameter not found");
+}
+
+//Provides: caml_gc_tweak_set
+//Requires: caml_invalid_argument
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_gc_tweak_set(_name, _value) {
+  caml_invalid_argument("Gc.Tweak: parameter not found");
+}
+
+//Provides: caml_gc_tweak_list_active
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_gc_tweak_list_active(_unit) {
+  return 0;
+}

runtime/js/obj.js

@@ -64,6 +64,28 @@ function caml_update_dummy_lazy(dummy, newval) {
   return 0;
 }
 
+//Provides: caml_obj_is_stack
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_obj_is_stack(_x) {
+  return 0;
+}
+
+//Provides: caml_succ_scannable_prefix_len
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_succ_scannable_prefix_len(_x) {
+  return 0;
+}
+
+//Provides: caml_obj_uniquely_reachable_words
+//Requires: caml_failwith
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_obj_uniquely_reachable_words(_x) {
+  caml_failwith("Obj.uniquely_reachable_words is not available in javascript.");
+}
+
 //Provides: caml_obj_tag
 //Requires: caml_is_ml_bytes, caml_is_ml_string
 function caml_obj_tag(x) {

runtime/js/runtime_events.js

@@ -83,7 +83,8 @@ function caml_runtime_events_read_poll(_cursor, _callbacks, _num) {
 }
 
 //Provides: caml_ml_runtime_events_path const
-//Version: >= 5.3
+//Version: >= 5.2
+//Since 5.3 in OCaml mainstream, but also available in OxCaml
 function caml_ml_runtime_events_path(_unit) {
   return 0;
 }

runtime/wasm/gc.wat

@@ -117,6 +117,9 @@
    (func (export "caml_memprof_discard") (param (ref eq)) (result (ref eq))
       (ref.i31 (i32.const 0)))
 
+   (func (export "caml_memprof_participate") (param (ref eq)) (result (ref eq))
+      (ref.i31 (i32.const 0)))
+
    (func (export "caml_eventlog_pause") (param (ref eq)) (result (ref eq))
       (ref.i31 (i32.const 0)))
 

runtime/wasm/obj.wat

@@ -99,6 +99,22 @@
    (global $double_array_tag (export "double_array_tag") i32 (i32.const 254))
    (global $custom_tag i32 (i32.const 255))
 
+   (func (export "caml_obj_is_stack")
+      (param (ref eq)) (result (ref eq))
+      (ref.i31 (i32.const 0)))
+
+   (func (export "caml_succ_scannable_prefix_len")
+      (param (ref eq)) (result (ref eq))
+      (ref.i31 (i32.const 0)))
+
+   (@string $unique_words_unsupported
+      "Obj.uniquely_reachable_words is not available in wasm.")
+
+   (func (export "caml_obj_uniquely_reachable_words")
+      (param (ref eq)) (result (ref eq))
+      (call $caml_failwith (global.get $unique_words_unsupported))
+      (ref.i31 (i32.const 0)))
+
    (func $caml_is_closure (export "caml_is_closure")
       (param $v (ref eq)) (result i32)
       (i32.or (ref.test (ref $closure) (local.get $v))