void
XOTclStackDump(Tcl_Interp *interp) {
Interp *iPtr = (Interp *)interp;
CallFrame *f = iPtr->framePtr, *v = iPtr->varFramePtr;
Tcl_Obj *varCmdObj;
XOTclNewObj(varCmdObj);
fprintf (stderr, " TCL STACK:\n");
if (f == 0) fprintf(stderr, "- ");
while (f) {
Tcl_Obj *cmdObj;
XOTclNewObj(cmdObj);
fprintf(stderr, "\tFrame=%p ", f);
if (f && f->isProcCallFrame && f->procPtr && f->procPtr->cmdPtr) {
fprintf(stderr,"caller %p ",Tcl_CallFrame_callerPtr(f));
fprintf(stderr,"callerV %p ",Tcl_CallFrame_callerVarPtr(f));
Tcl_GetCommandFullName(interp, (Tcl_Command) f->procPtr->cmdPtr, cmdObj);
fprintf(stderr, "%s (%p) lvl=%d\n", ObjStr(cmdObj), f->procPtr->cmdPtr, f->level);
DECR_REF_COUNT(cmdObj);
} else fprintf(stderr, "- \n");
f = f->callerPtr;
}
fprintf (stderr, " VARFRAME:\n");
fprintf(stderr, "\tFrame=%p", v);
if (v) {fprintf(stderr, "caller %p", v->callerPtr);}
if (v && v->isProcCallFrame && v->procPtr && v->procPtr->cmdPtr) {
Tcl_GetCommandFullName(interp, (Tcl_Command) v->procPtr->cmdPtr, varCmdObj);
if (varCmdObj) {
fprintf(stderr, " %s (%d)\n", ObjStr(varCmdObj), v->level);
}
} else fprintf(stderr, "- \n");
DECR_REF_COUNT(varCmdObj);
}
void
NsfStackDump(Tcl_Interp *interp) {
Interp *iPtr = (Interp *)interp;
CallFrame *f, *v;
Tcl_Obj *varCmdObj;
nonnull_assert(interp != NULL);
f = iPtr->framePtr;
v = iPtr->varFramePtr;
varCmdObj = Tcl_NewObj();
fprintf (stderr, " TCL STACK:\n");
if (f == 0) {
fprintf(stderr, "- ");
}
while (f) {
Tcl_Obj *cmdObj = Tcl_NewObj();
fprintf(stderr, "\tFrame=%p ", (void *)f);
if (f && f->isProcCallFrame && f->procPtr && f->procPtr->cmdPtr) {
fprintf(stderr,"caller %p ", (void *)Tcl_CallFrame_callerPtr(f));
fprintf(stderr,"callerV %p ", (void *)Tcl_CallFrame_callerVarPtr(f));
Tcl_GetCommandFullName(interp, (Tcl_Command)f->procPtr->cmdPtr, cmdObj);
fprintf(stderr, "%s (%p) lvl=%d\n", ObjStr(cmdObj), (void *)f->procPtr->cmdPtr, f->level);
} else {
if (f && f->varTablePtr) {
fprintf(stderr, "var_table = %p ", (void *)f->varTablePtr);
}
fprintf(stderr, "- \n");
}
DECR_REF_COUNT(cmdObj);
f = f->callerPtr;
}
fprintf (stderr, " VARFRAME:\n");
fprintf(stderr, "\tFrame=%p ", (void *)v);
if (v != NULL) {
fprintf(stderr, "caller %p var_table %p ", (void *)v->callerPtr, (void *)v->varTablePtr);
/* if (v->varTablePtr != NULL)
panic(0, "testing");*/
}
if (v != NULL && v->isProcCallFrame && v->procPtr && v->procPtr->cmdPtr) {
Tcl_GetCommandFullName(interp, (Tcl_Command) v->procPtr->cmdPtr, varCmdObj);
fprintf(stderr, " %s (%d)\n", ObjStr(varCmdObj), v->level);
} else {
fprintf(stderr, "- \n");
}
DECR_REF_COUNT(varCmdObj);
}
