X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.c;h=7120436bb47d387ef3484bffe53d2877e2d8df05;hb=4af25e1a72f2d0f1f523fe5b13c71f1b3dc7a5a5;hp=0ec60f750854cf25fbf2838a9a55ec1d8645834d;hpb=d5b20065218f2650a60cafd179a318e98c080f05;p=ghc-hetmet.git

diff --git a/rts/Task.c b/rts/Task.c
index 0ec60f7..7120436 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -114,7 +114,8 @@ newTask (void)
 #endif
     Task *task;
 
-    task = stgMallocBytes(sizeof(Task), "newTask");
+#define ROUND_TO_CACHE_LINE(x) ((((x)+63) / 64) * 64)
+    task = stgMallocBytes(ROUND_TO_CACHE_LINE(sizeof(Task)), "newTask");
     
     task->cap  = NULL;
     task->stopped = rtsFalse;