From 14fe352f86796bc2af0c6cf75980841e3c39eb3f Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 27 Oct 2011 21:16:21 +0000 Subject: CONST-ification update. --- generic/tclFileName.c | 5 +++-- 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); -- cgit v0.12