summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2005-10-10 15:51:01 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2005-10-10 15:51:01 (GMT)
commitcd11d099dd7f15827a06ad59c9144530163d1047 (patch)
treee3fc3b163d8e5491d60321740d13169854fbd923 /generic
parent63bc8ab8cf7635622a2f4da1feeff6a13acfd8df (diff)
downloadtcl-cd11d099dd7f15827a06ad59c9144530163d1047.zip
tcl-cd11d099dd7f15827a06ad59c9144530163d1047.tar.gz
tcl-cd11d099dd7f15827a06ad59c9144530163d1047.tar.bz2
* generic/tclExecute.c: fixing errors in last commit.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 096873f..d9021d4 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.203 2005/10/09 20:05:18 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.204 2005/10/10 15:51:01 msofer Exp $
*/
#include "tclInt.h"
@@ -3823,6 +3823,7 @@ TclExecuteByteCode(interp, codePtr)
case TCL_NUMBER_BIG:
/* TODO: const correctness ? */
zero = (mp_cmp_d((mp_int *)ptr1, 0) == MP_GT);
+ break;
default:
/* Unused, here to silence compiler warning. */
zero = 0;
@@ -4111,6 +4112,7 @@ TclExecuteByteCode(interp, codePtr)
break;
case INST_BITXOR:
lResult = l1 ^ l2;
+ break;
default:
/* Unused, here to silence compiler warning. */
lResult = 0;