diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-10-31 17:06:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-10-31 17:06:31 (GMT) |
| commit | cf9df921f620da4fa43f83f17cee6b789c910002 (patch) | |
| tree | 4dc6dab0786e1ed7df03bb95f5447f08f2c66792 /generic/tclFileName.c | |
| parent | 5ca626b4e6d4c45aa0ba1798b382251f70625de7 (diff) | |
| parent | f756b0c2a727168bdc397f67c905951991e35a32 (diff) | |
| download | tcl-cf9df921f620da4fa43f83f17cee6b789c910002.zip tcl-cf9df921f620da4fa43f83f17cee6b789c910002.tar.gz tcl-cf9df921f620da4fa43f83f17cee6b789c910002.tar.bz2 | |
3414754 Fix the PATHFLAGS != 0 intrep normalizing trailing slashes.
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index a8c4f42..26587ee 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -823,10 +823,11 @@ Tcl_FSJoinToPath( void TclpNativeJoinPath( Tcl_Obj *prefix, - char *joining) + const char *joining) { int length, needsSep; - char *dest, *p, *start; + const char *p; + char *dest, *start; start = Tcl_GetStringFromObj(prefix, &length); |