X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsFlags.c;h=b3b95b32d9f78af3b40c049256bf976b441b5e51;hb=0ee0be109fd00ec629f7a2ad6a597885a0c9d5b4;hp=2af67e7dc212dbed98139215097b8635a7639d2f;hpb=4e3542263207ae49963811aeb84927027e7bb61d;p=ghc-hetmet.git

diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index 2af67e7..b3b95b3 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -1152,17 +1152,7 @@ error = rtsTrue;
 #if defined(PROFILING)
 		    RtsFlags.ParFlags.nNodes = 1;
 #else
-#if defined(mingw32_HOST_OS)
-                    {
-                        SYSTEM_INFO si;
-                        GetSystemInfo(&si);
-                        RtsFlags.ParFlags.nNodes = si.dwNumberOfProcessors;
-                    }
-#elif defined(HAVE_SYSCONF)
-                    RtsFlags.ParFlags.nNodes = sysconf(_SC_NPROCESSORS_CONF);
-#else
-                    RtsFlags.ParFlags.nNodes = 1;
-#endif
+                    RtsFlags.ParFlags.nNodes = getNumberOfProcessors();
 #endif
 		} else {
 		    RtsFlags.ParFlags.nNodes