From 44ccabe68c496078d023bacc9d99720b2df19ee6 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 28 May 2009 13:34:40 +0000 Subject: [PATCH] Round stack size to a whole number of megablocks This is not a bug fix, it just makes better use of memory --- rts/Threads.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/Threads.c b/rts/Threads.c index 501c751..d578cc2 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); -- 1.7.10.4