From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 10 Feb 2006 12:35:52 +0000 (+0000)
Subject: fix test for REG_BaseReg (it's spelled REG_Base)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=19ecaccf6bcc6bd64d9dd4ee332b8635b1d75844

fix test for REG_BaseReg (it's spelled REG_Base)
---

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