summaryrefslogtreecommitdiffstats
path: root/generic/tclUtil.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-03-26 11:53:59 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-03-26 11:53:59 (GMT)
commit0d7a57fc567f099dc8c77bc0a5d278ced70946d9 (patch)
treeab47b39e8bedb1021813e1161e79eb9a80359b53 /generic/tclUtil.c
parent9033bb3224bc4a81c96315455704bac2d109c860 (diff)
downloadtcl-0d7a57fc567f099dc8c77bc0a5d278ced70946d9.zip
tcl-0d7a57fc567f099dc8c77bc0a5d278ced70946d9.tar.gz
tcl-0d7a57fc567f099dc8c77bc0a5d278ced70946d9.tar.bz2
Reduce the number of casts used to manage Tcl_Obj internal representations.
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r--generic/tclUtil.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index f41830a..69bd4d2 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -1057,7 +1057,7 @@ Tcl_ConcatObj(
continue;
}
}
- listRepPtr = (List *) objPtr->internalRep.twoPtrValue.ptr1;
+ listRepPtr = objPtr->internalRep.twoPtrValue.ptr1;
if (objPtr->bytes != NULL && !listRepPtr->canonicalFlag) {
break;
}