fprintf(stderr, "PRMark Start (%s): 0x%lx, info 0x%lx ptrs %ld\n", \
type, Mark, INFO_PTR(Mark), ptrsvar)
#define DEBUG_PRIN(type, posvar) \
fprintf(stderr, "PRMark Start (%s): 0x%lx, info 0x%lx ptrs %ld\n", \
type, Mark, INFO_PTR(Mark), ptrsvar)
#define DEBUG_PRIN(type, posvar) \
fprintf(stderr, "PRRet In (%s): 0x%lx, info 0x%lx pos %ld\n", \
type, MStack, INFO_PTR(MStack), posvar)
#define DEBUG_PRLAST(type, ptrvar) \
fprintf(stderr, "PRRet In (%s): 0x%lx, info 0x%lx pos %ld\n", \
type, MStack, INFO_PTR(MStack), posvar)
#define DEBUG_PRLAST(type, ptrvar) \
fprintf(stderr, "PRRet Last (%s): 0x%lx, info 0x%lx ptrs %ld\n", \
type, MStack, INFO_PTR(MStack), ptrvar)
#define DEBUG_PR_MARKED \
fprintf(stderr, "PRRet Last (%s): 0x%lx, info 0x%lx ptrs %ld\n", \
type, MStack, INFO_PTR(MStack), ptrvar)
#define DEBUG_PR_MARKED \
fprintf(stderr, "PRMark Marked : 0x%lx, info 0x%lx\n", \
Mark, INFO_PTR(Mark))
#define DEBUG_PR_STAT \
fprintf(stderr, "PRMark Marked : 0x%lx, info 0x%lx\n", \
Mark, INFO_PTR(Mark))
#define DEBUG_PR_STAT \
fprintf(stderr, "PRMark Static : 0x%lx, info 0x%lx\n", \
Mark, INFO_PTR(Mark))
#define DEBUG_PR_IND \
fprintf(stderr, "PRMark Static : 0x%lx, info 0x%lx\n", \
Mark, INFO_PTR(Mark))
#define DEBUG_PR_IND \
fprintf(stderr, "PRMark Ind : 0x%lx -> PRMark(0x%lx), info 0x%lx\n", \
Mark, IND_CLOSURE_PTR(Mark), INFO_PTR(Mark))
#define DEBUG_PR_CAF \
fprintf(stderr, "PRMark Ind : 0x%lx -> PRMark(0x%lx), info 0x%lx\n", \
Mark, IND_CLOSURE_PTR(Mark), INFO_PTR(Mark))
#define DEBUG_PR_CAF \
fprintf(stderr, "PRMark Caf : 0x%lx -> PRMark(0x%lx), info 0x%lx\n", \
Mark, IND_CLOSURE_PTR(Mark), INFO_PTR(Mark))
#define DEBUG_PR_CONST \
fprintf(stderr, "PRMark Caf : 0x%lx -> PRMark(0x%lx), info 0x%lx\n", \
Mark, IND_CLOSURE_PTR(Mark), INFO_PTR(Mark))
#define DEBUG_PR_CONST \
fprintf(stderr, "PRMark Const : 0x%lx -> 0x%lx, info 0x%lx\n", \
Mark, CONST_STATIC_CLOSURE(INFO_PTR(Mark)), INFO_PTR(Mark))
#define DEBUG_PR_CHARLIKE \
fprintf(stderr, "PRMark Const : 0x%lx -> 0x%lx, info 0x%lx\n", \
Mark, CONST_STATIC_CLOSURE(INFO_PTR(Mark)), INFO_PTR(Mark))
#define DEBUG_PR_CHARLIKE \
fprintf(stderr, "PRMark CharLike (%lx) : 0x%lx -> 0x%lx, info 0x%lx\n", \
CHARLIKE_VALUE(Mark), Mark, CHARLIKE_CLOSURE(CHARLIKE_VALUE(Mark)), INFO_PTR(Mark))
#define DEBUG_PR_INTLIKE_TO_STATIC \
fprintf(stderr, "PRMark CharLike (%lx) : 0x%lx -> 0x%lx, info 0x%lx\n", \
CHARLIKE_VALUE(Mark), Mark, CHARLIKE_CLOSURE(CHARLIKE_VALUE(Mark)), INFO_PTR(Mark))
#define DEBUG_PR_INTLIKE_TO_STATIC \
fprintf(stderr, "PRMark IntLike to Static (%ld) : 0x%lx -> 0x%lx, info 0x%lx\n", \
INTLIKE_VALUE(Mark), Mark, INTLIKE_CLOSURE(INTLIKE_VALUE(Mark)), INFO_PTR(Mark))
#define DEBUG_PR_INTLIKE_IN_HEAP \
fprintf(stderr, "PRMark IntLike to Static (%ld) : 0x%lx -> 0x%lx, info 0x%lx\n", \
INTLIKE_VALUE(Mark), Mark, INTLIKE_CLOSURE(INTLIKE_VALUE(Mark)), INFO_PTR(Mark))
#define DEBUG_PR_INTLIKE_IN_HEAP \
fprintf(stderr, "PRMark IntLike in Heap (%ld) : 0x%lx, info 0x%lx\n", \
INTLIKE_VALUE(Mark), Mark, INFO_PTR(Mark))
#define DEBUG_PR_OLDIND \
fprintf(stderr, "PRMark IntLike in Heap (%ld) : 0x%lx, info 0x%lx\n", \
INTLIKE_VALUE(Mark), Mark, INFO_PTR(Mark))
#define DEBUG_PR_OLDIND \
fprintf(stderr, "PRMark OldRoot Ind : 0x%lx -> PRMark(0x%lx), info 0x%lx\n", \
Mark, IND_CLOSURE_PTR(Mark), INFO_PTR(Mark))
fprintf(stderr, "PRMark OldRoot Ind : 0x%lx -> PRMark(0x%lx), info 0x%lx\n", \
Mark, IND_CLOSURE_PTR(Mark), INFO_PTR(Mark))