From 5cdb1ff5e889d3361e80e7b01bcb90b682dd9136 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 20 Mar 2009 10:04:46 +0000
Subject: [PATCH] Fix bug in setThreadAffinity() (Linux)

---
 rts/posix/OSThreads.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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