From c6a516a7eeeb3d1f03fc23f11e5f29bf547800e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= Date: Tue, 17 Jun 2025 18:36:27 +0200 Subject: [PATCH] Fix call to caml_memprof_run_callbacks_res MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Jérôme Vouillon --- core/src/gc_stubs.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/src/gc_stubs.c b/core/src/gc_stubs.c index fb19da9..c0fb8e5 100644 --- a/core/src/gc_stubs.c +++ b/core/src/gc_stubs.c @@ -77,7 +77,7 @@ CAMLprim value core_gc_run_memprof_callbacks(value unit) { #if OCAML_5_MINUS /* This function is renamed upstream. */ value res = caml_memprof_run_callbacks_exn(); #elif OCAML_VERSION >= 50300 /* Supported upstream as of 5.3 */ - value res = caml_memprof_run_callbacks_res(); + value res = caml_get_value_or_raise(caml_memprof_run_callbacks_res()); #else value res = Val_unit; #endif