X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FOSThreads.c;fp=rts%2Fposix%2FOSThreads.c;h=84b111fcb7404f4795a9b51be19f5b1583352ad3;hb=5cdb1ff5e889d3361e80e7b01bcb90b682dd9136;hp=9bcd56f8adec73eb3c76a44df54f51a4bade7201;hpb=77998ef4dc3277c3037460125d8fc8a7dc8ead75;p=ghc-hetmet.git

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);
 }