summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-04 10:51:00 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-04 10:51:00 (GMT)
commit586e53a4ac38b4a017a8be29a3832632ef62705a (patch)
tree0fec8c7f2acfd218238c4f65771d849440f1b44e /generic/tclCmdMZ.c
parentd92d307894b14bbb065fdb65c5158f391da00cf1 (diff)
downloadtcl-586e53a4ac38b4a017a8be29a3832632ef62705a.zip
tcl-586e53a4ac38b4a017a8be29a3832632ef62705a.tar.gz
tcl-586e53a4ac38b4a017a8be29a3832632ef62705a.tar.bz2
Eliminate all Tcl_ConvertToType calls and all direct calls to typePtr->setFromAnyProc (except the call from inside the Tcl_ConvertToType function) from the Tcl core.
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r--generic/tclCmdMZ.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 95debf8..f9f2a28 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -1540,7 +1540,8 @@ StringIsCmd(
case STR_IS_BOOL:
case STR_IS_TRUE:
case STR_IS_FALSE:
- if (TCL_OK != Tcl_ConvertToType(NULL, objPtr, &tclBooleanType)) {
+ if ((objPtr->typePtr != &tclBooleanType)
+ && (TCL_OK != TclSetBooleanFromAny(NULL, objPtr))) {
if (strict) {
result = 0;
} else {