Use Local_store for the local allocations ref

stedolan · stedolan · commit 94454f5f1cb5 · 2021-12-08T13:27:26.000Z
diff --git a/typing/typecore.ml b/typing/typecore.ml
@@ -337,7 +337,7 @@ let simple_pat_mode mode =
 let tuple_pat_mode mode tuple_modes =
   { mode; tuple_modes }
 
-let allocations : Alloc_mode.t list ref = ref []
+let allocations : Alloc_mode.t list ref = Local_store.s_ref []
 
 let reset_allocations () = allocations := []
 
