Fix caml_natdynlink_run_toplevel to actually call the registration fu…

…nction
ocaml-flambda · Nov 20, 2023 · bc9a60d · bc9a60d
1 parent 61c5e3a
commit bc9a60d
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/ocaml/runtime4/dynlink_nat.c b/ocaml/runtime4/dynlink_nat.c
@@ -185,7 +185,7 @@ CAMLprim value caml_natdynlink_run(value handle_v, value symbol) {
 CAMLprim value caml_natdynlink_run_toplevel(value filename, value symbol)
 {
   CAMLparam2 (filename, symbol);
-  CAMLlocal3 (res, v, handle_v);
+  CAMLlocal4 (res, v, handle_v, symbols);
   void *handle;
   char_os *p;
 
@@ -203,10 +203,16 @@ CAMLprim value caml_natdynlink_run_toplevel(value filename, value symbol)
     Store_field(res, 0, v);
   } else {
     handle_v = Val_handle(handle);
+
+    symbols = caml_alloc_small(1, 0);
+    Field(symbols, 0) = symbol;
+    (void) caml_natdynlink_register(handle_v, symbols);
+
     res = caml_alloc(1,0);
     v = caml_natdynlink_run(handle_v, symbol);
     Store_field(res, 0, v);
   }
+
   CAMLreturn(res);
 }