summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-04-22 16:29:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-04-22 16:29:57 (GMT)
commite3d20a2783044861949b7a0230410548b1c59982 (patch)
tree3eafbed9214dc65b3107a5a8200d660379db2c50 /generic
parent9925d5b2fcaa8ed663d1558fbf0b2227607f40e0 (diff)
downloadtcl-e3d20a2783044861949b7a0230410548b1c59982.zip
tcl-e3d20a2783044861949b7a0230410548b1c59982.tar.gz
tcl-e3d20a2783044861949b7a0230410548b1c59982.tar.bz2
* generic/tclCmdMZ.c: Corrected intrep-dependence of
* tests/string.test: [string is boolean] [Bug 1187123]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdMZ.c12
1 files changed, 3 insertions, 9 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index ce28e54..45a2bed 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.82.2.15 2005/03/18 16:33:42 dgp Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.82.2.16 2005/04/22 16:30:02 dgp Exp $
*/
#include "tclInt.h"
@@ -1592,14 +1592,8 @@ Tcl_StringObjCmd(dummy, interp, objc, objv)
case STR_IS_BOOL:
case STR_IS_TRUE:
case STR_IS_FALSE:
- if (objPtr->typePtr == &tclBooleanType) {
- if ((((enum isOptions) index == STR_IS_TRUE) &&
- objPtr->internalRep.longValue == 0) ||
- (((enum isOptions) index == STR_IS_FALSE) &&
- objPtr->internalRep.longValue != 0)) {
- result = 0;
- }
- } else if ((Tcl_GetBoolean(NULL, string1, &i)
+ /* Optimizers, beware Bug 1187123 ! */
+ if ((Tcl_GetBoolean(NULL, string1, &i)
== TCL_ERROR) ||
(((enum isOptions) index == STR_IS_TRUE) &&
i == 0) ||