InfoTables.h

typedef struct {
  StgInt closure_type_off;
  StgInt closure_desc_off;
} StgProfInfo;

extern StgWord16 closure_flags[];

typedef struct {
  StgWord size;
  StgWord bitmap[];
} StgLargeBitmap;

typedef StgClosure *StgSRT[];

typedef struct StgLargeSRT_ {
  StgSRT *srt;
  StgLargeBitmap l;
} StgLargeSRT;

typedef union {
  struct {
    StgHalfWord ptrs;
    StgHalfWord nptrs;
  } payload;
  StgWord bitmap;
  StgInt large_bitmap_offset;
  StgWord selector_offset;
} StgClosureInfo;

typedef struct StgInfoTable_ {
  StgClosureInfo layout;
  StgHalfWord type;
  StgHalfWord srt_bitmap;
  StgCode code[];
} * StgInfoTablePtr;

typedef struct StgFunInfoExtraRev_ {
  StgInt slow_apply_offset;
  union {
    StgWord bitmap;
    StgInt bitmap_offset;
  } b;
  StgInt srt_offset;
  StgHalfWord fun_type;
  StgHalfWord arity;
} StgFunInfoExtraRev;

typedef struct StgFunInfoExtraFwd_ {
  StgHalfWord fun_type;
  StgHalfWord arity;
  StgSRT *srt;
  union {
    StgWord bitmap;
  } b;
  StgFun *slow_apply;
} StgFunInfoExtraFwd;

typedef struct {
  StgFunInfoExtraRev f;
  StgInfoTable i;
} StgFunInfoTable;

extern StgWord stg_arg_bitmaps[];

typedef struct {
  StgInt srt_offset;
  StgInfoTable i;
} StgRetInfoTable;

typedef struct StgThunkInfoTable_ {
  StgInt srt_offset;
  StgInfoTable i;
} StgThunkInfoTable;

typedef struct StgConInfoTable_ {
  StgInt con_desc;
  StgInfoTable i;
} StgConInfoTable;