fix for ASSIGN_BaseReg() in the unregisterised way

[ghc-hetmet.git] / ghc / includes / Regs.h

diff --git a/ghc/includes/Regs.h b/ghc/includes/Regs.h
index 2181de2..b6e2921 100644 (file)
--- 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)