*/
#define field_type_(str, s_type, field) \
printf("#define REP_" str " b"); \
*/
#define field_type_(str, s_type, field) \
printf("#define REP_" str " b"); \
#define field_type_gcptr_(str, s_type, field) \
printf("#define REP_" str " gcptr\n");
#endif
#define field_type_gcptr_(str, s_type, field) \
printf("#define REP_" str " gcptr\n");
#endif
#if defined(GEN_HASKELL)
#define def_size(str, size) \
printf("sIZEOF_" str " :: Int\n"); \
#if defined(GEN_HASKELL)
#define def_size(str, size) \
printf("sIZEOF_" str " :: Int\n"); \
#endif
#if defined(GEN_HASKELL)
#define def_closure_size(str, size) /* nothing */
#else
#define def_closure_size(str, size) \
#endif
#if defined(GEN_HASKELL)
#define def_closure_size(str, size) /* nothing */
#else
#define def_closure_size(str, size) \
- printf("#define PROF_HDR_SIZE %d\n", sizeofW(StgProfHeader));
- printf("#define GRAN_HDR_SIZE %d\n", sizeofW(StgGranHeader));
+ printf("#define PROF_HDR_SIZE %lu\n", (unsigned long)sizeofW(StgProfHeader));
+ printf("#define GRAN_HDR_SIZE %lu\n", (unsigned long)sizeofW(StgGranHeader));
- printf("#define BLOCK_SIZE %d\n", BLOCK_SIZE);
- printf("#define MBLOCK_SIZE %d\n", MBLOCK_SIZE);
+ printf("#define BLOCK_SIZE %u\n", BLOCK_SIZE);
+ printf("#define MBLOCK_SIZE %u\n", MBLOCK_SIZE);
closure_field(StgWeak,key);
closure_field(StgWeak,value);
closure_field(StgWeak,finalizer);
closure_field(StgWeak,key);
closure_field(StgWeak,value);
closure_field(StgWeak,finalizer);
closure_size(StgDeadWeak);
closure_field(StgDeadWeak,link);
closure_size(StgDeadWeak);
closure_field(StgDeadWeak,link);