diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-10-27 21:16:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-10-27 21:16:21 (GMT) |
| commit | 14fe352f86796bc2af0c6cf75980841e3c39eb3f (patch) | |
| tree | 948808b18676b3b2575a88009eb430f7924fc8e6 | |
| parent | c6a3c5953c725382438adb91f97a40c184fbb15f (diff) | |
| download | tcl-14fe352f86796bc2af0c6cf75980841e3c39eb3f.zip tcl-14fe352f86796bc2af0c6cf75980841e3c39eb3f.tar.gz tcl-14fe352f86796bc2af0c6cf75980841e3c39eb3f.tar.bz2 | |
CONST-ification update.
| -rw-r--r-- | generic/tclFileName.c | 5 | ||||
| -rw-r--r-- | generic/tclInt.h | 2 |
2 files changed, 4 insertions, 3 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); diff --git a/generic/tclInt.h b/generic/tclInt.h index 854404f..e1ce6d5 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2741,7 +2741,7 @@ MODULE_SCOPE int TclpMatchFiles(Tcl_Interp *interp, char *separators, Tcl_DString *dirPtr, char *pattern, char *tail); MODULE_SCOPE int TclpObjNormalizePath(Tcl_Interp *interp, Tcl_Obj *pathPtr, int nextCheckpoint); -MODULE_SCOPE void TclpNativeJoinPath(Tcl_Obj *prefix, char *joining); +MODULE_SCOPE void TclpNativeJoinPath(Tcl_Obj *prefix, const char *joining); MODULE_SCOPE Tcl_Obj * TclpNativeSplitPath(Tcl_Obj *pathPtr, int *lenPtr); MODULE_SCOPE Tcl_PathType TclpGetNativePathType(Tcl_Obj *pathPtr, int *driveNameLengthPtr, Tcl_Obj **driveNameRef); |