Merge pull request ocaml#12994 from tmcgilchrist/remove_drop_continua…

…tion Remove un-used and unsafe caml_drop_continuation
tmcgilchrist · Feb 28, 2024 · db150fc · db150fc
2 parents 33502d6 + f55c821
commit db150fc
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 7 deletions.
diff --git a/Changes b/Changes
@@ -92,6 +92,9 @@ _______________
   (Chris Casinghino and Florian Angeletti, review by Florian Angeletti and
    Richard Eisenberg)
 
+- #12994: Remove un-used and unsafe caml_drop_continuation
+  (Tim McGilchrist, reviewed by Gabriel Scherer and Miod Vallat)
+
 OCaml 5.2.0
 ------------
 

diff --git a/boot/ocamlc b/boot/ocamlc
diff --git a/boot/ocamllex b/boot/ocamllex
diff --git a/runtime/fiber.c b/runtime/fiber.c
@@ -659,13 +659,6 @@ void caml_continuation_replace(value cont, struct stack_info* stk)
   (void)b; /* squash unused warning */
 }
 
-CAMLprim value caml_drop_continuation (value cont)
-{
-  struct stack_info* stk = Ptr_val(caml_continuation_use(cont));
-  caml_free_stack(stk);
-  return Val_unit;
-}
-
 static const value * _Atomic caml_unhandled_effect_exn = NULL;
 static const value * _Atomic caml_continuation_already_resumed_exn = NULL;