summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2005-07-23 01:31:59 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2005-07-23 01:31:59 (GMT)
commit6184e1e1f212b1517022a8b023a686033f4faad8 (patch)
treefdd252612957dd7faf8436380807cb8430824ac7 /generic
parentb83f174a6751a9cdcebffe5c9c36c66f11657a61 (diff)
downloadtcl-6184e1e1f212b1517022a8b023a686033f4faad8.zip
tcl-6184e1e1f212b1517022a8b023a686033f4faad8.tar.gz
tcl-6184e1e1f212b1517022a8b023a686033f4faad8.tar.bz2
* generic/tclExecute.c (INST_DICT_*): stop 2 compiler
warnings for uninitialised variables.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index aff2bc3..ff165cf 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.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: tclExecute.c,v 1.197 2005/07/22 23:56:34 dkf Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.198 2005/07/23 01:32:04 msofer Exp $
*/
#include "tclInt.h"
@@ -4888,7 +4888,7 @@ TclExecuteByteCode(interp, codePtr)
Tcl_DictObjPut(NULL, dictPtr, *tosPtr,
Tcl_NewLongObj(value + opnd));
} else {
- long value;
+ long value = 0; /* stop compiler warning */
Tcl_WideInt wvalue;
REQUIRE_WIDE_OR_INT(result, valPtr, value, wvalue);
@@ -4910,6 +4910,7 @@ TclExecuteByteCode(interp, codePtr)
tosPtr - (opnd-1));
break;
default:
+ cleanup = 0; /* stop compiler warning */
Tcl_Panic("Should not happen!");
}