Keep a maximum of 6 spare worker threads per Capability (#4262)

[ghc-hetmet.git] / includes / rts / Constants.h

diff --git a/includes/rts/Constants.h b/includes/rts/Constants.h
index 140aaa4..e21a893 100644 (file)
--- a/includes/rts/Constants.h
+++ b/includes/rts/Constants.h
@@ -311,4 +311,13 @@
  */
 #define SPIN_COUNT 1000
 
+/* -----------------------------------------------------------------------------
+   Spare workers per Capability in the threaded RTS
+
+   No more than MAX_SPARE_WORKERS will be kept in the thread pool
+   associated with each Capability.
+   -------------------------------------------------------------------------- */
+
+#define MAX_SPARE_WORKERS 6
+
 #endif /* RTS_CONSTANTS_H */