diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-29 20:53:20 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-29 20:53:20 (GMT) |
| commit | 580724e069e7de6cbe19b235d60d6a6abe6712e3 (patch) | |
| tree | 11f27063fd6dfc6f363573bce19b26f0758be39b /generic/tclExecute.c | |
| parent | e0dc5ad1dac50c004c16b1b5945aeda964c40ecd (diff) | |
| download | tcl-580724e069e7de6cbe19b235d60d6a6abe6712e3.zip tcl-580724e069e7de6cbe19b235d60d6a6abe6712e3.tar.gz tcl-580724e069e7de6cbe19b235d60d6a6abe6712e3.tar.bz2 | |
a timid start at cleaning up
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 |