From e61549bd9b4bf386404a6ef067c26fe4930b6383 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 13 Mar 1997 08:01:14 +0000
Subject: [PATCH] [project @ 1997-03-13 08:01:14 by sof] Inc. SM_MAXROOTS
setting to make room for StablePointerTable
---
ghc/includes/SMinterface.lh | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/includes/SMinterface.lh b/ghc/includes/SMinterface.lh
index a6c4c0fc5dec..88a7eb74d126 100644
--- a/ghc/includes/SMinterface.lh
+++ b/ghc/includes/SMinterface.lh
@@ -78,14 +78,14 @@ Question: Where are the stable pointer roots? (JSM)
Answer: They're on the heap in a "Stable Pointer Table". (ADR)
\begin{code}
#ifndef CONCURRENT
-# define SM_MAXROOTS 8 /* 8 Vanilla Regs */
+# define SM_MAXROOTS 9 /* 8 Vanilla Regs + stable pointer table*/
#else
# ifndef PAR
# ifdef GRAN
# define SM_MAXROOTS (10 + (MAX_PROC*2) + 2 )
/* unthreaded + hd/tl thread queues + Current/Main TSOs */
# else
-# define SM_MAXROOTS 5 /* See c-as-asm/HpOverflow.lc */
+# define SM_MAXROOTS 6 /* See c-as-asm/HpOverflow.lc */
# endif
# else
# define SM_MAXROOTS 6 /* See c-as-asm/HpOverflow.lc */
--
GitLab