From 2c53ef1bfee7c7afea889f42b9ef13e1007ad228 Mon Sep 17 00:00:00 2001
From: Yorick van Pelt <yorick@yorickvanpelt.nl>
Date: Fri, 3 Feb 2023 17:50:01 +0100
Subject: Disable GC inside coroutines on mac OS

---
 src/libexpr/eval.cc | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'src/libexpr/eval.cc')

diff --git a/src/libexpr/eval.cc b/src/libexpr/eval.cc
index 7f2065656..f7c056998 100644
--- a/src/libexpr/eval.cc
+++ b/src/libexpr/eval.cc
@@ -345,6 +345,20 @@ static Symbol getName(const AttrName & name, EvalState & state, Env & env)
 }
 
 
+class BoehmDisableGC : public DisableGC {
+public:
+    BoehmDisableGC() {
+#if HAVE_BOEHMGC
+        GC_disable();
+#endif
+    };
+    virtual ~BoehmDisableGC() override {
+#if HAVE_BOEHMGC
+        GC_enable();
+#endif
+    };
+};
+
 static bool gcInitialised = false;
 
 void initGC()
@@ -368,6 +382,12 @@ void initGC()
 
     StackAllocator::defaultAllocator = &boehmGCStackAllocator;
 
+
+    /* Used to disable GC when entering coroutines on macOS */
+    DisableGC::create = []() {
+        return std::dynamic_pointer_cast<DisableGC>(std::make_shared<BoehmDisableGC>());
+    };
+
     /* Set the initial heap size to something fairly big (25% of
        physical RAM, up to a maximum of 384 MiB) so that in most cases
        we don't need to garbage collect at all.  (Collection has a
-- 
cgit v1.2.3