diff options
| author | simonmar <unknown> | 2005-04-05 21:24:53 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-04-05 21:24:53 +0000 |
| commit | 060a1134ac4879aadccb5fbba981dd75227f2461 (patch) | |
| tree | 8085c252d99525c72b9c5daa231b73d6abc45dcf /ghc | |
| parent | 4ddd2cf7a0bb81ae4d19f74139ae9df548961a39 (diff) | |
| download | haskell-060a1134ac4879aadccb5fbba981dd75227f2461.tar.gz | |
[project @ 2005-04-05 21:24:53 by simonmar]
wibble to fix the unreg way
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 |