Fix crash with tiny initial stack size (#5993)

ghc · Apr 12, 2012 · 5eabdc1 · 5eabdc1
1 parent 392c288
commit 5eabdc1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/rts/Threads.c b/rts/Threads.c
@@ -66,8 +66,8 @@ createThread(Capability *cap, nat size)
     /* sched_mutex is *not* required */
 
     /* catch ridiculously small stack sizes */
-    if (size < MIN_STACK_WORDS + sizeofW(StgStack)) {
-        size = MIN_STACK_WORDS + sizeofW(StgStack);
+    if (size < MIN_STACK_WORDS + sizeofW(StgStack) + sizeofW(StgTSO)) {
+        size = MIN_STACK_WORDS + sizeofW(StgStack) + sizeofW(StgTSO);
     }
 
     /* The size argument we are given includes all the per-thread