diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-12-02 12:07:35 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-12-02 12:07:35 +0000 |
| commit | 164be7854f6de07bb4bc15f60af727ddb562cde7 (patch) | |
| tree | 1a731627a6d78e425098f27082aa428fead2cd25 /includes | |
| parent | c0378a2774a400e2992bc57a7ec580df3f142b29 (diff) | |
| download | haskell-164be7854f6de07bb4bc15f60af727ddb562cde7.tar.gz | |
Fix more problems caused by padding in the Capability structure
Fixes crashes on Windows and Sparc
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/Regs.h | 2 | ||||
| -rw-r--r-- | includes/Stg.h | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/includes/Regs.h b/includes/Regs.h index 49366ed342..45f9149af5 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) diff --git a/includes/Stg.h b/includes/Stg.h index 7ac6b1a864..394c987f07 100644 --- a/includes/Stg.h +++ b/includes/Stg.h @@ -74,6 +74,10 @@ #define BITS_PER_BYTE 8 #define BITS_IN(x) (BITS_PER_BYTE * sizeof(x)) +/* Compute offsets of struct fields + */ +#define FIELD_OFFSET(s_type, field) ((StgWord)&(((s_type*)0)->field)) + /* * 'Portable' inlining: * INLINE_HEADER is for inline functions in header files (macros) |