summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-02-11 19:33:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-02-11 19:33:24 (GMT)
commit95504e489088e89fb179000ccf42553b620183d8 (patch)
tree456611c4c15c584230b6131e7485b4871b578d6e
parentd30eaa00001670c9031797d534be65f1c21a868b (diff)
downloadtcl-95504e489088e89fb179000ccf42553b620183d8.zip
tcl-95504e489088e89fb179000ccf42553b620183d8.tar.gz
tcl-95504e489088e89fb179000ccf42553b620183d8.tar.bz2
Removed casts now unnecessary after type of stringPtr->allocated changed.
-rw-r--r--generic/tclStringObj.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 3fa8528..8e1aacf 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -33,7 +33,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclStringObj.c,v 1.96 2009/02/11 15:28:56 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.97 2009/02/11 19:33:24 dgp Exp $ */
#include "tclInt.h"
#include "tommath.h"
@@ -799,7 +799,7 @@ Tcl_SetObjLength(
* Check that we're not extending a pure unicode string.
*/
- if (length > (int) stringPtr->allocated &&
+ if (length > stringPtr->allocated &&
(objPtr->bytes != NULL || stringPtr->hasUnicode == 0)) {
/*
* Not enough space in current string. Reallocate the string space and
@@ -912,7 +912,7 @@ Tcl_AttemptSetObjLength(
* Check that we're not extending a pure unicode string.
*/
- if ((size_t)length > stringPtr->allocated &&
+ if (length > stringPtr->allocated &&
(objPtr->bytes != NULL || stringPtr->hasUnicode == 0)) {
char *newBytes;
@@ -1540,7 +1540,7 @@ AppendUtfToUtfRep(
newLength = numBytes + oldLength;
stringPtr = GET_STRING(objPtr);
- if (newLength > (int) stringPtr->allocated) {
+ if (newLength > stringPtr->allocated) {
/*
* There isn't currently enough space in the string representation so
* allocate additional space. First, try to double the length
@@ -1651,7 +1651,7 @@ Tcl_AppendStringsToObjVA(
}
stringPtr = GET_STRING(objPtr);
- if (oldLength + newLength > (int) stringPtr->allocated) {
+ if (oldLength + newLength > stringPtr->allocated) {
/*
* There isn't currently enough space in the string representation, so
* allocate additional space. If the current string representation