diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-23 18:53:09 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-23 18:53:09 (GMT) |
commit | 4f50d303e2352deed7b6020a08a095466f6306b8 (patch) | |
tree | 9dd27e42ded2cc1cc95c6bd3f4779d4c77bbabc0 /generic/tclBasic.c | |
parent | 8079e10d030cf672bc00e73d705afe52452fae5e (diff) | |
download | tcl-4f50d303e2352deed7b6020a08a095466f6306b8.zip tcl-4f50d303e2352deed7b6020a08a095466f6306b8.tar.gz tcl-4f50d303e2352deed7b6020a08a095466f6306b8.tar.bz2 |
* generic/tclBasic.c: Removed unused var; fixed function
* generic/tclOOInt.h: pointer declarations (why did gcc start
* generic/tclOOMethod.c: complaining all of a sudden?)
* generic/tclProc.c:
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 30631a5..3eb9908 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.361 2008/08/23 01:48:25 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.362 2008/08/23 18:53:09 msofer Exp $ */ #include "tclInt.h" @@ -8159,8 +8159,6 @@ static void PlugCoroutineChains( CoroutineData *corPtr) { - Tcl_Interp *interp = corPtr->eePtr->interp; - /* * Called to plug the coroutine's running environment into the caller's, * so that the frame chains are uninterrupted. Note that the levels and |