summaryrefslogtreecommitdiffstats
path: root/generic/tclDictObj.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-04-07 12:39:00 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-04-07 12:39:00 (GMT)
commitb9bef57682b6ea3902bc232a3364abb563ebde59 (patch)
tree432a791fe8280d957cf19e15d843b11df8320fa4 /generic/tclDictObj.c
parentd0a21c54ad4d13296bcc9f3294c4ebb63327734a (diff)
downloadtcl-b9bef57682b6ea3902bc232a3364abb563ebde59.zip
tcl-b9bef57682b6ea3902bc232a3364abb563ebde59.tar.gz
tcl-b9bef57682b6ea3902bc232a3364abb563ebde59.tar.bz2
Stopped compilers from moaning about switch fall-through. [Bug 716327]
Diffstat (limited to 'generic/tclDictObj.c')
-rw-r--r--generic/tclDictObj.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index ee8d5c4..3c59ea7 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.4 2003/04/07 10:12:09 dkf Exp $
+ * RCS: @(#) $Id: tclDictObj.c,v 1.5 2003/04/07 12:39:08 dkf Exp $
*/
#include "tclInt.h"
@@ -2527,4 +2527,8 @@ Tcl_DictObjCmd(/*ignored*/ clientData, interp, objc, objv)
case DICT_VALUES: return DictValuesCmd(interp, objc, objv);
}
panic("unexpected fallthrough!");
+ /*
+ * Next line is NOT REACHED - stops compliler complaint though...
+ */
+ return TCL_ERROR;
}