summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-07-21 03:49:52 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-07-21 03:49:52 (GMT)
commit37df80fe19f5198cd59e7e0d61363316325a7878 (patch)
tree6f9645f9ddee21e50bbe3e126f78548170faf805 /generic/tclBasic.c
parent456ffc75f24234b21ad5de58e70e33366df2563c (diff)
downloadtcl-37df80fe19f5198cd59e7e0d61363316325a7878.zip
tcl-37df80fe19f5198cd59e7e0d61363316325a7878.tar.gz
tcl-37df80fe19f5198cd59e7e0d61363316325a7878.tar.bz2
fix uninited and unused var warnings
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index c06a514..554e5d2 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.317 2008/07/21 03:43:26 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.318 2008/07/21 03:49:52 msofer Exp $
*/
#include "tclInt.h"
@@ -7642,7 +7642,6 @@ TclTailcallObjCmd(
TEOV_callback *headPtr, *tailPtr;
TEOV_record *tmpPtr;
Tcl_Obj *listPtr;
- Command *cmdPtr;
Namespace *nsPtr = iPtr->varFramePtr->nsPtr;
if (!iPtr->varFramePtr->isProcCallFrame) {
@@ -7709,7 +7708,7 @@ TailcallCallback(
Tcl_Obj *listPtr = data[0], *namePtr;
Namespace *nsPtr = data[1];
TEOV_record *recordPtr = TOP_RECORD(iPtr);
- Command *cmdPtr;
+ Command *cmdPtr = NULL;
if (!recordPtr->cmdPtr || recordPtr->callbackPtr) {
Tcl_Panic("TailcallCallback: should not happen!");