X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FCapability.c;h=a4380e776d5dd478f1413e52a7c8267c023ddf8f;hb=3034a6c8cfb50e2b5af4ef57c419986039b53a94;hp=24d9a636b004c1dc2b4e0177d68c3432ef45a8df;hpb=eba7b660a36878cd8d926845807913d7ec5734c9;p=ghc-hetmet.git

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 24d9a63..a4380e7 100644
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -163,7 +163,7 @@ initCapabilities( void )
 #if defined(THREADED_RTS)
     nat i;
 
-#ifndef REG_BaseReg
+#ifndef REG_Base
     // We can't support multiple CPUs if BaseReg is not a register
     if (RtsFlags.ParFlags.nNodes > 1) {
 	errorBelch("warning: multiple CPUs not supported in this build, reverting to 1");