Bugfix: ensure local domain state is initialised

stedolan · Dec 15, 2021 · 8f22ad8 · 8f22ad8
1 parent 80f54dd
commit 8f22ad8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/runtime/domain.c b/runtime/domain.c
@@ -56,6 +56,12 @@ void caml_init_domain ()
   Caml_state->external_raise = NULL;
   Caml_state->exn_bucket = Val_unit;
 
+  Caml_state->local_arenas = NULL;
+  Caml_state->local_sp = 0;
+  Caml_state->local_top = NULL;
+  Caml_state->local_limit = 0;
+  Caml_state->local_total = 0;
+
   Caml_state->top_of_stack = NULL;
   Caml_state->bottom_of_stack = NULL; /* no stack initially */
   Caml_state->last_return_address = 1; /* not in OCaml code initially */