diff options
| author | simonmar <unknown> | 2003-05-14 09:11:49 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-05-14 09:11:49 +0000 |
| commit | efbac4137aea853ab5ac0b651cfd7c6b591904f6 (patch) | |
| tree | 9fca453dcfd1080f0559557cef2f28268a12f9e5 | |
| parent | c7268677eec041516dad5e0b804c393b8e0e9adb (diff) | |
| download | haskell-efbac4137aea853ab5ac0b651cfd7c6b591904f6.tar.gz | |
[project @ 2003-05-14 09:11:49 by simonmar]
Comments only
| -rw-r--r-- | ghc/rts/Schedule.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index 74c561bd81..2d99ad18be 100644 --- a/ghc/rts/Schedule.c +++ b/ghc/rts/Schedule.c @@ -1,5 +1,5 @@ /* --------------------------------------------------------------------------- - * $Id: Schedule.c,v 1.168 2003/04/08 15:53:51 sof Exp $ + * $Id: Schedule.c,v 1.169 2003/05/14 09:11:49 simonmar Exp $ * * (c) The GHC Team, 1998-2000 * @@ -217,14 +217,15 @@ static StgThreadID next_thread_id = 1; /* The smallest stack size that makes any sense is: * RESERVED_STACK_WORDS (so we can get back from the stack overflow) * + sizeofW(StgStopFrame) (the stg_stop_thread_info frame) - * + 1 (the realworld token for an IO thread) * + 1 (the closure to enter) + * + 1 (stg_ap_v_ret) + * + 1 (spare slot req'd by stg_ap_v_ret) * * A thread with this stack will bomb immediately with a stack * overflow, which will increase its stack size. */ -#define MIN_STACK_WORDS (RESERVED_STACK_WORDS + sizeofW(StgStopFrame) + 2) +#define MIN_STACK_WORDS (RESERVED_STACK_WORDS + sizeofW(StgStopFrame) + 3) #if defined(GRAN) |