diff options
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/includes/InfoTables.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h index ae3b2c2675..8fa699a097 100644 --- a/ghc/includes/InfoTables.h +++ b/ghc/includes/InfoTables.h @@ -321,7 +321,9 @@ typedef struct _StgFunInfoExtraFwd { StgHalfWord fun_type; /* function type */ StgHalfWord arity; /* function arity */ StgSRT *srt; /* pointer to the SRT table */ - StgWord bitmap; /* arg ptr/nonptr bitmap */ + union { /* union for compat. with TABLES_NEXT_TO_CODE version */ + StgWord bitmap; /* arg ptr/nonptr bitmap */ + } b; StgFun *slow_apply; /* apply to args on the stack */ } StgFunInfoExtraFwd; @@ -414,7 +416,7 @@ typedef struct _StgThunkInfoTable { #define GET_FUN_LARGE_BITMAP(info) ((StgLargeBitmap*) (((StgWord) ((info)+1)) \ + (info)->f.b.bitmap_offset)) #else -#define GET_FUN_LARGE_BITMAP(info) ((StgLargeBitmap*) ((info)->f.b.bitmap_offset)) +#define GET_FUN_LARGE_BITMAP(info) ((StgLargeBitmap*) ((info)->f.b.bitmap)) #endif |