From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 22 Feb 2006 14:18:36 +0000 (+0000)
Subject: fix for ASSIGN_BaseReg() in the unregisterised way
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dde3de8c8d457049d9ff0a43db4d98239b75e95e

fix for ASSIGN_BaseReg() in the unregisterised way
---

diff --git a/ghc/includes/Regs.h b/ghc/includes/Regs.h
index 2181de2..b6e2921 100644
--- a/ghc/includes/Regs.h
+++ b/ghc/includes/Regs.h
@@ -355,7 +355,7 @@ GLOBAL_REG_DECL(StgRegTable *,BaseReg,REG_Base)
 #error BaseReg must be in a register for THREADED_RTS
 #endif
 #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
-#define ASSIGN_BaseReg(e) /*nothing*/
+#define ASSIGN_BaseReg(e) (e)
 #endif
 
 #if defined(REG_Sp) && !defined(NO_GLOBAL_REG_DECLS)