summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c25
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