@live-codes/ocaml 0.0.0-stage → 0.1.1

package/assets/compiler/runtime/gc.js

@@ -0,0 +1,201 @@
+//Provides: caml_gc_minor
+function caml_gc_minor(_unit) {
+  //available with [node --expose-gc]
+  if (typeof globalThis.gc === "function") globalThis.gc(true);
+  return 0;
+}
+//Provides: caml_gc_major
+function caml_gc_major(_unit) {
+  //available with [node --expose-gc]
+  if (typeof globalThis.gc === "function") globalThis.gc();
+  return 0;
+}
+//Provides: caml_gc_full_major
+function caml_gc_full_major(_unit) {
+  //available with [node --expose-gc]
+  if (typeof globalThis.gc === "function") globalThis.gc();
+  return 0;
+}
+//Provides: caml_gc_compaction
+function caml_gc_compaction(_unit) {
+  return 0;
+}
+//Provides: caml_gc_counters
+function caml_gc_counters(_unit) {
+  return [0, 0, 0, 0];
+}
+//Provides: caml_gc_quick_stat
+//Version: < 5.5
+function caml_gc_quick_stat(_unit) {
+  return [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0];
+}
+
+//Provides: caml_gc_quick_stat
+//Version: >= 5.5
+function caml_gc_quick_stat(_unit) {
+  return [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0];
+}
+
+//Provides: caml_gc_stat
+//Requires: caml_gc_quick_stat
+function caml_gc_stat(unit) {
+  return caml_gc_quick_stat(unit);
+}
+
+//Provides: caml_gc_set
+function caml_gc_set(_control) {
+  return 0;
+}
+
+//Provides: caml_gc_get
+function caml_gc_get(_unit) {
+  return [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0];
+}
+
+//Provides: caml_final_register const
+function caml_final_register(_f, _x) {
+  return 0;
+}
+
+//Provides: caml_final_register_called_without_value
+//Requires: caml_callback
+var all_finalizers = new globalThis.Set();
+function caml_final_register_called_without_value(cb, a) {
+  if (globalThis.FinalizationRegistry && a instanceof Object) {
+    var x = new globalThis.FinalizationRegistry(function (x) {
+      all_finalizers.delete(x);
+      // Go through caml_callback so that the CPS calling convention
+      // is respected and exceptions are handled
+      caml_callback(cb, [0]);
+      return;
+    });
+    x.register(a, x);
+    all_finalizers.add(x);
+  }
+  return 0;
+}
+
+//Provides: caml_final_release const
+function caml_final_release(_unit) {
+  return 0;
+}
+
+//Provides: caml_memprof_start
+function caml_memprof_start(_rate, _stack_size, _tracker) {
+  return 0;
+}
+
+//Provides: caml_memprof_stop
+function caml_memprof_stop(_unit) {
+  return 0;
+}
+
+//Provides: caml_memprof_discard
+//Version: >= 5.2
+function caml_memprof_discard(_t) {
+  return 0;
+}
+
+//Provides: caml_memprof_is_sampling const
+//Version: >= 5.5
+function caml_memprof_is_sampling(_unit) {
+  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.2
+//(actually < 5.0, but OxCaml still references it)
+function caml_eventlog_resume(_unit) {
+  return 0;
+}
+
+//Provides: caml_eventlog_pause
+//Version: <= 5.2
+//(actually < 5.0, but OxCaml still references it)
+function caml_eventlog_pause(_unit) {
+  return 0;
+}
+
+//Provides: caml_gc_huge_fallback_count
+//Version: < 5.0
+function caml_gc_huge_fallback_count(_unit) {
+  return 0;
+}
+
+//Provides: caml_gc_major_slice
+function caml_gc_major_slice(_work) {
+  return 0;
+}
+
+//Provides: caml_gc_minor_words
+function caml_gc_minor_words(_unit) {
+  return 0;
+}
+
+//Provides: caml_get_minor_free
+function caml_get_minor_free(_unit) {
+  return 0;
+}
+
+//Provides: caml_get_major_bucket
+//Version: < 5.0
+function caml_get_major_bucket(_n) {
+  return 0;
+}
+
+//Provides: caml_get_major_credit
+//Version: < 5.0
+function caml_get_major_credit(_n) {
+  return 0;
+}
+
+//Provides: caml_gc_tweak_get
+//Requires: caml_invalid_argument
+//Version: >= 5.5
+//OxCaml
+function caml_gc_tweak_get(_name) {
+  caml_invalid_argument("Gc.Tweak: parameter not found");
+}
+
+//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.5
+function caml_gc_tweak_set(_name, _v) {
+  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 const
+//Version: >= 5.5
+function caml_gc_tweak_list_active(_unit) {
+  return 0;
+}
+
+//Provides: caml_gc_tweak_list_active
+//Version: >= 5.2, < 5.3
+//OxCaml
+function caml_gc_tweak_list_active(_unit) {
+  return 0;
+}