summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-10-10 19:52:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-10-10 19:52:43 (GMT)
commit0dce4fa5b68010813737f31033012ad6d4cb5bc3 (patch)
treeeb550b53c77c043fc0c7debdce2a23c2ca21711b
parent6678ee462153f79ea3258c65a6e3902f6aa68de1 (diff)
downloadtcl-0dce4fa5b68010813737f31033012ad6d4cb5bc3.zip
tcl-0dce4fa5b68010813737f31033012ad6d4cb5bc3.tar.gz
tcl-0dce4fa5b68010813737f31033012ad6d4cb5bc3.tar.bz2
* generic/tclExecute.c: Corrections to the NO_WIDE_TYPE build. Also
added missing "break" to a switch that broke wide XOR operations.
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclExecute.c3
-rw-r--r--generic/tclInt.h4
3 files changed, 6 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 3b8579a..4577bd6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,7 @@
2005-10-10 Don Porter <dgp@users.sourceforge.net>
- * generic/tclExecute.c: Corrections to the NO_WIDE_TYPE build.
- * generic/tclInt.h: Restored HEAD to the NO_WIDE_TYPE
- configuration until some breakage in the #undef NO_WIDE_TYPE
- configuration is corrected.
+ * generic/tclExecute.c: Corrections to the NO_WIDE_TYPE build. Also
+ added missing "break" to a switch that broke wide XOR operations.
2005-10-10 Donal K. Fellows <donal.k.fellows@man.ac.uk>
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 12ca59d..67f2615 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.206 2005/10/10 18:00:10 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.207 2005/10/10 19:52:43 dgp Exp $
*/
#include "tclInt.h"
@@ -4084,6 +4084,7 @@ TclExecuteByteCode(interp, codePtr)
break;
case INST_BITXOR:
wResult = w1 ^ w2;
+ break;
default:
/* Unused, here to silence compiler warning. */
wResult = 0;
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 117c25e..32ef3b0 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -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: tclInt.h,v 1.254 2005/10/10 18:00:10 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.255 2005/10/10 19:52:44 dgp Exp $
*/
#ifndef _TCLINT
@@ -22,7 +22,7 @@
* Some numerics configuration options
*/
-#define NO_WIDE_TYPE
+#undef NO_WIDE_TYPE
#undef ACCEPT_NAN
/*