From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 20 Mar 2009 10:04:46 +0000 (+0000)
Subject: Fix bug in setThreadAffinity() (Linux)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5cdb1ff5e889d3361e80e7b01bcb90b682dd9136

Fix bug in setThreadAffinity() (Linux)
---

diff --git a/rts/posix/OSThreads.c b/rts/posix/OSThreads.c
index 9bcd56f..84b111f 100644
--- a/rts/posix/OSThreads.c
+++ b/rts/posix/OSThreads.c
@@ -224,7 +224,7 @@ setThreadAffinity (nat n, nat m)
     nproc = getNumberOfProcessors();
     CPU_ZERO(&cs);
     for (i = n; i < nproc; i+=m) {
-        CPU_SET(n, &cs);
+        CPU_SET(i, &cs);
     }
     sched_setaffinity(0, sizeof(cpu_set_t), &cs);
 }