From 5c7cc56d32de30098fc443a2148de7a4c0479c2f Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sat, 9 Aug 2008 00:13:36 +0000
Subject: fix warnings

---
 generic/tclExecute.c | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 213b99b..f9d8bae 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.401 2008/08/07 22:29:09 nijtmans Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.402 2008/08/09 00:13:36 das Exp $
  */
 
 #include "tclInt.h"
@@ -1152,7 +1152,7 @@ TclStackFree(
     Interp *iPtr = (Interp *) interp;
     ExecEnv *eePtr;
     ExecStack *esPtr;
-    Tcl_Obj **markerPtr;
+    Tcl_Obj **markerPtr, *marker;
 
     if (iPtr == NULL || iPtr->execEnvPtr == NULL) {
 	Tcl_Free((char *) freePtr);
@@ -1168,15 +1168,16 @@ TclStackFree(
     eePtr = iPtr->execEnvPtr;
     esPtr = eePtr->execStackPtr;
     markerPtr = esPtr->markerPtr;
+    marker = *markerPtr;
 
     if ((freePtr != NULL) && (MEMSTART(markerPtr) != (Tcl_Obj **)freePtr)) {
 	Tcl_Panic("TclStackFree: incorrect freePtr. Call out of sequence?");
     }
 
-    esPtr->tosPtr = markerPtr-1;
-    esPtr->markerPtr = (Tcl_Obj **) *markerPtr;
-    if (*markerPtr) {
- 	return;
+    esPtr->tosPtr = markerPtr - 1;
+    esPtr->markerPtr = (Tcl_Obj **) marker;
+    if (marker) {
+	return;
     }
 
     /*
@@ -1750,11 +1751,11 @@ TclExecuteByteCode(
      * Bottom of allocated stack holds the NR data
      */
 
-    int initLevel;
+    int initLevel = 0;
 
     /* NR_TEBC */
 
-    BottomData *bottomPtr;
+    BottomData *bottomPtr = NULL;
     BottomData *oldBottomPtr = NULL;
 
     /*
@@ -1762,12 +1763,12 @@ TclExecuteByteCode(
      * sporadically.
      */
 
-    ExecStack *esPtr;
-    Tcl_Obj **initTosPtr;	/* Stack top at start of execution. */
-    ptrdiff_t *initCatchTop;	/* Catch stack top at start of execution. */
-    Var *compiledLocals;
-    Namespace *namespacePtr;
-    CmdFrame *bcFramePtr;	/* TIP #280: Structure for tracking lines. */
+    ExecStack *esPtr = NULL;
+    Tcl_Obj **initTosPtr = NULL;    /* Stack top at start of execution. */
+    ptrdiff_t *initCatchTop = NULL; /* Catch stack top at start of execution */
+    Var *compiledLocals = NULL;
+    Namespace *namespacePtr = NULL;
+    CmdFrame *bcFramePtr = NULL;    /* TIP #280 Structure for tracking lines */
     Tcl_Obj **constants = &iPtr->execEnvPtr->constants[0];
 
     /*
@@ -1782,7 +1783,7 @@ TclExecuteByteCode(
                                 /* The current program counter. */
     int instructionCount = 0;	/* Counter that is used to work out when to
 				 * call Tcl_AsyncReady() */
-    Tcl_Obj *auxObjList;        /* Linked list of aux data, used for {*} and
+    Tcl_Obj *auxObjList = NULL; /* Linked list of aux data, used for {*} and
 				 * for same-level NR calls. */
     int checkInterp = 0;	/* Indicates when a check of interp readyness
 				 * is necessary. Set by CACHE_STACK_INFO() */
@@ -1792,7 +1793,7 @@ TclExecuteByteCode(
      * executing an instruction.
      */
 
-    register int cleanup;
+    register int cleanup = 0;
     Tcl_Obj *objResultPtr;
 
     /*
@@ -1812,7 +1813,7 @@ TclExecuteByteCode(
     int traceInstructions = (tclTraceExec == 3);
     char cmdNameBuf[21];
 #endif
-    char *curInstName;
+    char *curInstName = NULL;
 
     /*
      * The execution uses a unified stack: first a BottomData, immediately
-- 
cgit v0.12