X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRegs.h;h=45f9149af5108d5ad3625e779d7968a6b6e6c878;hb=3710a4ef1ca665fe4ed705a6b0f4400d680c7b54;hp=49366ed342829f4e0e576d4c1b95315c0b50bcca;hpb=d600bf7a6afdbfc4a22f9379406a9c6f789a4c2d;p=ghc-hetmet.git

diff --git a/includes/Regs.h b/includes/Regs.h
index 49366ed..45f9149 100644
--- a/includes/Regs.h
+++ b/includes/Regs.h
@@ -398,7 +398,7 @@ GLOBAL_REG_DECL(bdescr *,HpAlloc,REG_HpAlloc)
    -------------------------------------------------------------------------- */
 
 
-#define FunReg ((StgFunTable *)((void *)BaseReg - sizeof(StgFunTable)))
+#define FunReg ((StgFunTable *)((void *)BaseReg - FIELD_OFFSET(struct PartCapability_, r)))
 
 #define stg_EAGER_BLACKHOLE_info  (FunReg->stgEagerBlackholeInfo)
 #define stg_gc_enter_1            (FunReg->stgGCEnter1)