* Copyright (c) 1994-2000.
*
* $RCSfile: Interpreter.c,v $
* Copyright (c) 1994-2000.
*
* $RCSfile: Interpreter.c,v $
fprintf(stderr, "%d %p\n", i, (StgPtr)(*(iSp+i)));
fprintf(stderr,"\n");
}
fprintf(stderr, "%d %p\n", i, (StgPtr)(*(iSp+i)));
fprintf(stderr,"\n");
}
fprintf(stderr,"\tBuilt ");
printObj((StgClosure*)pap);
);
fprintf(stderr,"\tBuilt ");
printObj((StgClosure*)pap);
);
StgInfoTable* magic_itbl = BCO_ITBL(o_itoc_itbl);
if (magic_itbl != NULL) {
StackWord(0) = (W_)magic_itbl;
StgInfoTable* magic_itbl = BCO_ITBL(o_itoc_itbl);
if (magic_itbl != NULL) {
StackWord(0) = (W_)magic_itbl;