Add temporary Gc.minor workaround in UIEventCallback

briskml · Apr 3, 2019 · 1a0797e · 1a0797e
1 parent 44d7d95
commit 1a0797e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/renderer-macos/lib/bindings/UIEventCallback.re b/renderer-macos/lib/bindings/UIEventCallback.re
@@ -1,5 +1,11 @@
 let make = (callback, ()) => {
   callback();
+  /* This is a workaround for non-deterministic crashes 
+   * when OCaml wants to allocate huge amounts of memory.
+   * This crash still happens but is a lot less frequent.
+   * A very negative side effect is terrible performance.
+   */
+  Gc.minor();
   Brisk.UI.flushPendingUpdates();
   Brisk.UI.executeHostViewUpdatesAndLayout();
   LwtFakeIOEvent.send();