summaryrefslogtreecommitdiffstats
path: root/generic/tclObj.c
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2004-09-27 19:59:31 (GMT)
committerKevin B Kenny <kennykb@acm.org>2004-09-27 19:59:31 (GMT)
commit5ae4e609229f4f6627a9d5d6e3a9aad6b61fbbec (patch)
tree485242b3b8ea8dd14322c4f42a8f3e9acaf350c8 /generic/tclObj.c
parent6221ab7a6f6578462654bc7ab0b8e16a329ee2c4 (diff)
downloadtcl-5ae4e609229f4f6627a9d5d6e3a9aad6b61fbbec.zip
tcl-5ae4e609229f4f6627a9d5d6e3a9aad6b61fbbec.tar.gz
tcl-5ae4e609229f4f6627a9d5d6e3a9aad6b61fbbec.tar.bz2
removed some workarounds for Bug 868489
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r--generic/tclObj.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index d681a26..4f993ba 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclObj.c,v 1.66 2004/09/11 18:57:56 kennykb Exp $
+ * RCS: @(#) $Id: tclObj.c,v 1.67 2004/09/27 19:59:38 kennykb Exp $
*/
#include "tclInt.h"
@@ -1236,11 +1236,7 @@ SetBooleanFromAny(interp, objPtr)
newBool = (objPtr->internalRep.doubleValue != 0.0);
goto goodBoolean;
} else if (objPtr->typePtr == &tclWideIntType) {
-#ifdef TCL_WIDE_INT_IS_LONG
- newBool = (objPtr->internalRep.longValue != 0);
-#else /* !TCL_WIDE_INT_IS_LONG */
- newBool = (objPtr->internalRep.wideValue != Tcl_LongAsWide(0));
-#endif /* TCL_WIDE_INT_IS_LONG */
+ newBool = (objPtr->internalRep.wideValue != 0);
goto goodBoolean;
}