diff options
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 25 |
1 files changed, 2 insertions, 23 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 0965d48..9574e0f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.389 2008/07/29 13:45:17 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.390 2008/07/29 20:53:21 msofer Exp $ */ #include "tclInt.h" @@ -1137,25 +1137,6 @@ StackReallocWords( } void -TclStackPurge( - Tcl_Interp *interp, - Tcl_Obj **tosPtr) -{ - Tcl_Obj **newTosPtr = GET_TOSPTR(interp); - - if (!tosPtr) { - Tcl_Panic("TclStackPurge: cannot purge to NULL"); - } - while (newTosPtr && (newTosPtr != tosPtr)) { - TclStackFree(interp, NULL); - newTosPtr = GET_TOSPTR(interp); - } - if (newTosPtr != tosPtr) { - Tcl_Panic("TclStackPurge: requested tosPtr not here"); - } -} - -void TclStackFree( Tcl_Interp *interp, void *freePtr) @@ -1490,9 +1471,7 @@ TclCompileObj( { register Interp *iPtr = (Interp *) interp; register ByteCode *codePtr; /* Tcl Internal type of bytecode. */ - Namespace *namespacePtr; - - namespacePtr = iPtr->varFramePtr->nsPtr; + Namespace *namespacePtr = iPtr->varFramePtr->nsPtr; /* * If the object is not already of tclByteCodeType, compile it (and reset |