copied += mut_list_size;
debugTrace(DEBUG_gc,
- "mut_list_size: %ld (%d vars, %d arrays, %d others)",
- mut_list_size * sizeof(W_),
+ "mut_list_size: %lu (%d vars, %d arrays, %d others)",
+ (unsigned long)(mut_list_size * sizeof(W_)),
mutlist_MUTVARS, mutlist_MUTARRS, mutlist_OTHERS);
}
}
return q;
- case CONSTR_INTLIKE:
- case CONSTR_CHARLIKE:
case CONSTR_NOCAF_STATIC:
/* no need to put these on the static linked list, they don't need
* to be scavenged.
if (closure_IND(bh) || bh->header.info == &stg_BLACKHOLE_info) {
debugTrace(DEBUG_squeeze,
"suspending duplicate work: %ld words of stack",
- (StgPtr)frame - tso->sp);
+ (long)((StgPtr)frame - tso->sp));
// If this closure is already an indirection, then
// suspend the computation up to this point: