diff options
| -rw-r--r-- | rts/Threads.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 501c7514c7..d578cc29c7 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -84,7 +84,7 @@ createThread(Capability *cap, nat size) size = MIN_STACK_WORDS + TSO_STRUCT_SIZEW; } - stack_size = size - TSO_STRUCT_SIZEW; + stack_size = round_to_mblocks(size) - TSO_STRUCT_SIZEW; tso = (StgTSO *)allocateLocal(cap, size); TICK_ALLOC_TSO(stack_size, 0); |