We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d8a5ef0 commit d45e845Copy full SHA for d45e845
src/fsevents/fsevents_stubs.c
@@ -33,13 +33,14 @@ CAMLprim value dune_fsevents_runloop_current(value v_unit) {
33
34
CAMLprim value dune_fsevents_runloop_run(value v_runloop) {
35
CAMLparam1(v_runloop);
36
+ CAMLlocal1(v_exn);
37
dune_runloop *runloop = (dune_runloop *)Nativeint_val(v_runloop);
38
caml_release_runtime_system();
39
CFRunLoopRun();
40
caml_acquire_runtime_system();
41
caml_remove_global_root(&runloop->v_exn);
42
v_exn = runloop->v_exn;
- calm_stat_free(runloop);
43
+ caml_stat_free(runloop);
44
if (v_exn != Val_unit)
45
caml_raise(v_exn);
46
CAMLreturn(Val_unit);
0 commit comments