summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-08-20 13:14:41 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-08-20 13:14:41 (GMT)
commitb2fbd3af7fb8e933d6689b24dd0328b311da11fa (patch)
tree0e6b552955804fcb7fed67961d45f937b3415ac6
parent446c1175b59ef4cb95c7fc050a187c8855df7500 (diff)
downloadtcl-b2fbd3af7fb8e933d6689b24dd0328b311da11fa.zip
tcl-b2fbd3af7fb8e933d6689b24dd0328b311da11fa.tar.gz
tcl-b2fbd3af7fb8e933d6689b24dd0328b311da11fa.tar.bz2
Remove pointless casts
-rw-r--r--generic/tclTest.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index f332bf8..be7853e 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.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: tclTest.c,v 1.123 2008/08/20 11:45:19 das Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.124 2008/08/20 13:14:41 dkf Exp $
*/
#define TCL_TEST
@@ -6618,14 +6618,14 @@ TestconcatobjCmd(
list1Ptr = Tcl_NewStringObj("foo bar sum", -1);
Tcl_ListObjLength(NULL, list1Ptr, &len);
if (list1Ptr->bytes != NULL) {
- ckfree((char *) list1Ptr->bytes);
+ ckfree(list1Ptr->bytes);
list1Ptr->bytes = NULL;
}
list2Ptr = Tcl_NewStringObj("eeny meeny", -1);
Tcl_ListObjLength(NULL, list2Ptr, &len);
if (list2Ptr->bytes != NULL) {
- ckfree((char *) list2Ptr->bytes);
+ ckfree(list2Ptr->bytes);
list2Ptr->bytes = NULL;
}