From: simonmar <unknown>
Date: Mon, 24 Oct 2005 09:28:38 +0000 (+0000)
Subject: [project @ 2005-10-24 09:28:38 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~146
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=de981f8124226b8798596978c20da29e5fc5cea7

[project @ 2005-10-24 09:28:38 by simonmar]
Fix build for way "u"
---

diff --git a/ghc/includes/Regs.h b/ghc/includes/Regs.h
index 7333f2d..b65d242 100644
--- a/ghc/includes/Regs.h
+++ b/ghc/includes/Regs.h
@@ -328,7 +328,7 @@ GLOBAL_REG_DECL(StgRegTable *,BaseReg,REG_Base)
 #ifdef SMP
 #error BaseReg must be in a register for SMP
 #endif
-#define BaseReg (&((struct Capability_)MainCapability).r)
+#define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
 #endif
 
 #if defined(REG_Sp) && !defined(NO_GLOBAL_REG_DECLS)