summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-10-27 21:16:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-10-27 21:16:21 (GMT)
commit14fe352f86796bc2af0c6cf75980841e3c39eb3f (patch)
tree948808b18676b3b2575a88009eb430f7924fc8e6 /generic
parentc6a3c5953c725382438adb91f97a40c184fbb15f (diff)
downloadtcl-14fe352f86796bc2af0c6cf75980841e3c39eb3f.zip
tcl-14fe352f86796bc2af0c6cf75980841e3c39eb3f.tar.gz
tcl-14fe352f86796bc2af0c6cf75980841e3c39eb3f.tar.bz2
CONST-ification update.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclFileName.c5
-rw-r--r--generic/tclInt.h2
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);