diff options
| author | nijtmans <nijtmans> | 2008-07-28 21:31:13 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-07-28 21:31:13 (GMT) |
| commit | cf2289dd006cf8960813d308551da6f06e96d0e6 (patch) | |
| tree | a9d4ceee1cc3849e9cd53358533900efba3950be /generic/tclTest.c | |
| parent | 8f13bd76fede30fc0ad2cce6aa00582ec5eecd70 (diff) | |
| download | tcl-cf2289dd006cf8960813d308551da6f06e96d0e6.zip tcl-cf2289dd006cf8960813d308551da6f06e96d0e6.tar.gz tcl-cf2289dd006cf8960813d308551da6f06e96d0e6.tar.bz2 | |
* doc/FileSystem.3: CONSTified many functions using Tcl_FileSystem
* generic/tcl.decls: which all are supposed to be a constant, but
* generic/tclDecls.h: this was not reflected in the API:
* generic/tclFileSystem.h: Tcl_FSGetInternalRep
* generic/tclIOUtil.c: Tcl_FSNewNativePath, Tcl_FSData
* generic/tclPathObj.c: Tcl_FSRegister, Tcl_FSUnregister
* generic/tclTest.c: Tcl_FSGetFileSystemForPath ...
This change complies with TIP #24.
***POTENTIAL INCOMPATIBILITY***
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 3d6e2fb..3052cc9 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.117 2008/07/21 21:25:21 nijtmans Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.118 2008/07/28 21:31:19 nijtmans Exp $ */ #define TCL_TEST @@ -403,7 +403,7 @@ static int TestHashSystemHashCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -static Tcl_Filesystem testReportingFilesystem = { +static const Tcl_Filesystem testReportingFilesystem = { "reporting", sizeof(Tcl_Filesystem), TCL_FILESYSTEM_VERSION_1, @@ -437,7 +437,7 @@ static Tcl_Filesystem testReportingFilesystem = { &TestReportChdir }; -static Tcl_Filesystem simpleFilesystem = { +static const Tcl_Filesystem simpleFilesystem = { "simple", sizeof(Tcl_Filesystem), TCL_FILESYSTEM_VERSION_1, |