Index: generic/nsfDebug.c =================================================================== diff -u -N -r62dc29237e6a643169841f002784c7dc0b29f201 -ra77455e1b6836cc0d0d9d36b27e72d4eb6610dda --- generic/nsfDebug.c (.../nsfDebug.c) (revision 62dc29237e6a643169841f002784c7dc0b29f201) +++ generic/nsfDebug.c (.../nsfDebug.c) (revision a77455e1b6836cc0d0d9d36b27e72d4eb6610dda) @@ -125,8 +125,7 @@ Tcl_Obj *cmdObj = Tcl_NewObj(); fprintf(stderr, "\tFrame=%p ", (void *)f); - if ((f != NULL) - && (f->isProcCallFrame != 0) + if ((f->isProcCallFrame != 0) && (f->procPtr != NULL) && (f->procPtr->cmdPtr != NULL) ) { @@ -135,7 +134,7 @@ 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 != NULL && f->varTablePtr != NULL) { + if (f->varTablePtr != NULL) { fprintf(stderr, "var_table = %p ", (void *)f->varTablePtr); } fprintf(stderr, "- \n"); @@ -148,8 +147,6 @@ 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);