diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-03 20:25:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-03 20:25:14 (GMT) |
| commit | ee3826893da771c3254ecf2aa2da59790d1d0541 (patch) | |
| tree | 4dde8a27dc8ba84476dbd8eaf698329ee7ba75fe /generic/tclEnv.c | |
| parent | 474d95712ea623f7cccf704be60d713aa2ebe309 (diff) | |
| parent | e74974e6cddc887a442d6134824509aeeb1ce0f7 (diff) | |
| download | tcl-ee3826893da771c3254ecf2aa2da59790d1d0541.zip tcl-ee3826893da771c3254ecf2aa2da59790d1d0541.tar.gz tcl-ee3826893da771c3254ecf2aa2da59790d1d0541.tar.bz2 | |
Merge tip-548 (since using the *WChar* functions leads to less type-casts in c++)
Als finish implementaton for MacOSX
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 5e840e9..da4bfe3 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -123,7 +123,7 @@ TclSetupEnv( char *p2; p1 = Tcl_ExternalToUtfDString(NULL, environ[i], -1, &envString); - p2 = strchr(p1, '='); + p2 = (char *)strchr(p1, '='); if (p2 == NULL) { /* * This condition seem to happen occasionally under some @@ -379,7 +379,7 @@ Tcl_PutEnv( */ name = Tcl_ExternalToUtfDString(NULL, assignment, -1, &nameString); - value = strchr(name, '='); + value = (char *)strchr(name, '='); if ((value != NULL) && (value != name)) { value[0] = '\0'; |