summaryrefslogtreecommitdiffstats
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
parent63bc8ab8cf7635622a2f4da1feeff6a13acfd8df (diff)
downloadtcl-cd11d099dd7f15827a06ad59c9144530163d1047.zip
tcl-cd11d099dd7f15827a06ad59c9144530163d1047.tar.gz
tcl-cd11d099dd7f15827a06ad59c9144530163d1047.tar.bz2
* generic/tclExecute.c: fixing errors in last commit.
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclExecute.c4
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index ad5813c..f19bd5f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-10 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclExecute.c: fixing errors in last commit.
+
2005-10-09 Miguel Sofer <msofer@users.sf.net>
* generic/tclBasic.c:
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;