diff options
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index e69fb29..b4a62b9 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -203,7 +203,7 @@ TclSetEnv( const char *value) /* New value for variable (UTF-8). */ { Tcl_DString envString; - unsigned nameLength, valueLength; + size_t nameLength, valueLength; size_t index, length; char *p, *oldValue; const char *p2; @@ -260,7 +260,7 @@ TclSetEnv( Tcl_DStringFree(&envString); oldValue = environ[index]; - nameLength = (unsigned) length; + nameLength = length; } /* @@ -281,7 +281,7 @@ TclSetEnv( */ p = Tcl_Realloc(p, Tcl_DStringLength(&envString) + 1); - memcpy(p, p2, (unsigned) Tcl_DStringLength(&envString) + 1); + memcpy(p, p2, Tcl_DStringLength(&envString) + 1); Tcl_DStringFree(&envString); #ifdef USE_PUTENV @@ -453,7 +453,7 @@ TclUnsetEnv( Tcl_UtfToExternalDString(NULL, string, -1, &envString); string = Tcl_Realloc(string, Tcl_DStringLength(&envString) + 1); memcpy(string, Tcl_DStringValue(&envString), - (unsigned) Tcl_DStringLength(&envString)+1); + Tcl_DStringLength(&envString)+1); Tcl_DStringFree(&envString); putenv(string); |