summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-04-29 08:13:41 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-04-29 08:13:41 (GMT)
commit4afc5e10f5072f6e31d8a12ce5f465a6710b1c80 (patch)
tree1b0b51330d6a0835bd9f9731582b92b1aeadc346
parent9fe48f681df7e7a45aee145405151f0bef5d5808 (diff)
downloadtcl-4afc5e10f5072f6e31d8a12ce5f465a6710b1c80.zip
tcl-4afc5e10f5072f6e31d8a12ce5f465a6710b1c80.tar.gz
tcl-4afc5e10f5072f6e31d8a12ce5f465a6710b1c80.tar.bz2
Stopped warning about uninitialised variables in DictIncrCmd
Thanks to Andreas Kupries for reporting this.
-rw-r--r--generic/tclDictObj.c47
1 files changed, 21 insertions, 26 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index dfafccf..3a03e2c 100644
--- a/generic/tclDictObj.c
+++ b/generic/tclDictObj.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDictObj.c,v 1.8 2003/04/28 12:34:24 dkf Exp $
+ * RCS: @(#) $Id: tclDictObj.c,v 1.9 2003/04/29 08:13:41 dkf Exp $
*/
#include "tclInt.h"
@@ -1195,7 +1195,7 @@ Tcl_DbNewDictObj(file, line)
*
* This function implements the "dict create" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1243,7 +1243,7 @@ DictCreateCmd(interp, objc, objv)
*
* This function implements the "dict get" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1334,7 +1334,7 @@ DictGetCmd(interp, objc, objv)
*
* This function implements the "dict replace" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1380,7 +1380,7 @@ DictReplaceCmd(interp, objc, objv)
*
* This function implements the "dict remove" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1426,7 +1426,7 @@ DictRemoveCmd(interp, objc, objv)
*
* This function implements the "dict keys" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1480,7 +1480,7 @@ DictKeysCmd(interp, objc, objv)
*
* This function implements the "dict values" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1534,7 +1534,7 @@ DictValuesCmd(interp, objc, objv)
*
* This function implements the "dict size" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1571,7 +1571,7 @@ DictSizeCmd(interp, objc, objv)
*
* This function implements the "dict exists" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1615,7 +1615,7 @@ DictExistsCmd(interp, objc, objv)
*
* This function implements the "dict info" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1660,7 +1660,7 @@ DictInfoCmd(interp, objc, objv)
*
* This function implements the "dict incr" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1678,9 +1678,9 @@ DictIncrCmd(interp, objc, objv)
Tcl_Obj *CONST *objv;
{
Tcl_Obj *dictPtr, *valuePtr, *resultPtr;
- int result, isWide;
- long incrValue;
- Tcl_WideInt wideIncrValue;
+ int result, isWide = 0;
+ long incrValue = 1;
+ Tcl_WideInt wideIncrValue = 0;
if (objc < 4 || objc > 5) {
Tcl_WrongNumArgs(interp, 2, objv, "varName key ?increment?");
@@ -1690,7 +1690,6 @@ DictIncrCmd(interp, objc, objv)
if (objc == 5) {
if (objv[4]->typePtr == &tclIntType) {
incrValue = objv[4]->internalRep.longValue;
- isWide = 0;
} else if (objv[4]->typePtr == &tclWideIntType) {
wideIncrValue = objv[4]->internalRep.wideValue;
isWide = 1;
@@ -1701,16 +1700,12 @@ DictIncrCmd(interp, objc, objv)
}
if (wideIncrValue <= Tcl_LongAsWide(LONG_MAX)
&& wideIncrValue >= Tcl_LongAsWide(LONG_MIN)) {
- isWide = 0;
incrValue = Tcl_WideAsLong(wideIncrValue);
objv[4]->typePtr = &tclIntType;
} else {
isWide = 1;
}
}
- } else {
- incrValue = 1;
- isWide = 0;
}
dictPtr = Tcl_ObjGetVar2(interp, objv[2], NULL, 0);
@@ -1841,7 +1836,7 @@ DictIncrCmd(interp, objc, objv)
*
* This function implements the "dict lappend" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -1930,7 +1925,7 @@ DictLappendCmd(interp, objc, objv)
*
* This function implements the "dict append" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -2004,7 +1999,7 @@ DictAppendCmd(interp, objc, objv)
*
* This function implements the "dict for" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -2146,7 +2141,7 @@ DictForCmd(interp, objc, objv)
*
* This function implements the "dict set" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -2208,7 +2203,7 @@ DictSetCmd(interp, objc, objv)
*
* This function implements the "dict unset" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -2269,7 +2264,7 @@ DictUnsetCmd(interp, objc, objv)
*
* This function implements the "dict filter" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.
@@ -2516,7 +2511,7 @@ DictFilterCmd(interp, objc, objv)
*
* This function is invoked to process the "dict" Tcl command.
* See the user documentation for details on what it does, and
- * TIP#??? for the formal specification.
+ * TIP#111 for the formal specification.
*
* Results:
* A standard Tcl result.