diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-10 15:58:58 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-10 15:58:58 (GMT) |
| commit | d661e47c352a7501f151528ad5b6e94e8de7bd46 (patch) | |
| tree | c3c4ee183abbde2c988a4a87ef2e79e520646df7 /generic/tclProc.c | |
| parent | 0424a43c3010587b193ad4675b83670e0a0849eb (diff) | |
| download | tcl-d661e47c352a7501f151528ad5b6e94e8de7bd46.zip tcl-d661e47c352a7501f151528ad5b6e94e8de7bd46.tar.gz tcl-d661e47c352a7501f151528ad5b6e94e8de7bd46.tar.bz2 | |
remove unused vars
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 12ae064..bee78ca 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.156 2008/08/10 15:35:36 msofer Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.157 2008/08/10 15:58:58 msofer Exp $ */ #include "tclInt.h" @@ -1904,11 +1904,9 @@ TclProcCompileProc( const char *procName) /* Name of this procedure. */ { Interp *iPtr = (Interp *) interp; - int i; Tcl_CallFrame *framePtr; Proc *saveProcPtr; ByteCode *codePtr = bodyPtr->internalRep.otherValuePtr; - CompiledLocal *localPtr; /* * If necessary, compile the procedure's body. The compiler will allocate |