diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-17 04:37:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-17 04:37:32 (GMT) |
| commit | 0bb265c3bdbc5ca21de5af6238307d73e863603d (patch) | |
| tree | 62a19bfcb6159f9beaa9ffb26dcd2b680126c7c8 /generic/tclIOUtil.c | |
| parent | 2955a401d559c6249d4f2ad18a4c7b000df1a3de (diff) | |
| download | tcl-0bb265c3bdbc5ca21de5af6238307d73e863603d.zip tcl-0bb265c3bdbc5ca21de5af6238307d73e863603d.tar.gz tcl-0bb265c3bdbc5ca21de5af6238307d73e863603d.tar.bz2 | |
* More TIP 27 updates in tclIOUtil.c and tclIndexObj.c that were
overlooked before. Updated callers.
***POTENTIAL INCOMPATIBILITY***
Includes a source incompatibility in the tablePtr arguments of
the Tcl_GetIndexFromObj* routines.
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 7aa8ccf..adb73c0 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.29 2002/01/15 21:19:07 dgp Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.30 2002/01/17 04:37:33 dgp Exp $ */ #include "tclInt.h" @@ -70,7 +70,7 @@ Tcl_ObjType tclFsPathType = { * them in tclInt.h, because they are not (and should not be) used * anywhere else. */ -extern char * tclpFileAttrStrings[]; +extern CONST char * tclpFileAttrStrings[]; extern CONST TclFileAttrProcs tclpFileAttrProcs[]; /* @@ -141,7 +141,7 @@ Tcl_Chdir(dirName) } /* Obsolete */ -char * +CONST char * Tcl_GetCwd(interp, cwdPtr) Tcl_Interp *interp; Tcl_DString *cwdPtr; @@ -1937,7 +1937,7 @@ Tcl_FSUtime (pathPtr, tval) *---------------------------------------------------------------------- */ -static char** +static CONST char** NativeFileAttrStrings(pathPtr, objPtrRef) Tcl_Obj *pathPtr; Tcl_Obj** objPtrRef; @@ -2036,7 +2036,7 @@ NativeFileAttrsSet(interp, index, pathPtr, objPtr) *---------------------------------------------------------------------- */ -char** +CONST char ** Tcl_FSFileAttrStrings(pathPtr, objPtrRef) Tcl_Obj* pathPtr; Tcl_Obj** objPtrRef; @@ -3806,7 +3806,7 @@ Tcl_FSGetTranslatedPath(interp, pathPtr) * *--------------------------------------------------------------------------- */ -char* +CONST char* Tcl_FSGetTranslatedStringPath(interp, pathPtr) Tcl_Interp *interp; Tcl_Obj* pathPtr; @@ -4038,11 +4038,11 @@ Tcl_FSGetInternalRep(pathObjPtr, fsPtr) *--------------------------------------------------------------------------- */ -char* +CONST char* Tcl_FSGetNativePath(pathObjPtr) Tcl_Obj* pathObjPtr; { - return (char*)Tcl_FSGetInternalRep(pathObjPtr, &nativeFilesystem); + return (CONST char *)Tcl_FSGetInternalRep(pathObjPtr, &nativeFilesystem); } /* |