From: sof <unknown>
Date: Thu, 13 Mar 1997 08:01:14 +0000 (+0000)
Subject: [project @ 1997-03-13 08:01:14 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~825
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e61549bd9b4bf386404a6ef067c26fe4930b6383;p=ghc-hetmet.git

[project @ 1997-03-13 08:01:14 by sof]
Inc. SM_MAXROOTS setting to make room for StablePointerTable
---

diff --git a/ghc/includes/SMinterface.lh b/ghc/includes/SMinterface.lh
index a6c4c0f..88a7eb7 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 */