Dummy C stubs

ocaml-flambda · Jan 3, 2024 · 4e6eefd · 4e6eefd
1 parent fc56d6f
commit 4e6eefd
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/ocaml/runtime4/misc.c b/ocaml/runtime4/misc.c
@@ -271,3 +271,25 @@ CAMLprim value caml_atomic_fetch_add(value ref, value incr)
   *p = Val_long(Long_val(ret) + Long_val(incr));
   return ret;
 }
+
+// Dummy implementations so effect.ml can compile
+
+CAMLprim value caml_continuation_use_noexc()
+{
+  caml_fatal_error("Effects not implemented in runtime4");
+}
+
+CAMLprim value caml_alloc_stack()
+{
+  caml_fatal_error("Effects not implemented in runtime4");
+}
+
+CAMLprim value caml_get_continuation_callstack()
+{
+  caml_fatal_error("Effects not implemented in runtime4");
+}
+
+CAMLprim value caml_continuation_use_and_update_handler_noexc()
+{
+  caml_fatal_error("Effects not implemented in runtime4");
+}