summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-10-24 11:28:33 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-10-24 11:28:33 (GMT)
commit9c1bac129cc0a8d54989866bfaf2a98e48f933ed (patch)
treeeb921e850240f233ef80a6a882f334f869078828 /generic
parentc450611fa62e31564086453d6921a47bd7fb9044 (diff)
parent6687886af05bb7fff4e70ccbf3903ac3a275ab32 (diff)
downloadtcl-9c1bac129cc0a8d54989866bfaf2a98e48f933ed.zip
tcl-9c1bac129cc0a8d54989866bfaf2a98e48f933ed.tar.gz
tcl-9c1bac129cc0a8d54989866bfaf2a98e48f933ed.tar.bz2
make tclTest.c compilable against version 2 filesystems
Diffstat (limited to 'generic')
-rw-r--r--generic/tclTest.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 5dc95f9..1734968 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -381,7 +381,8 @@ static Tcl_FSRenameFileProc TestReportRenameFile;
static Tcl_FSCreateDirectoryProc TestReportCreateDirectory;
static Tcl_FSCopyDirectoryProc TestReportCopyDirectory;
static Tcl_FSRemoveDirectoryProc TestReportRemoveDirectory;
-static Tcl_FSLoadFileProc TestReportLoadFile;
+static int TestReportLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
+ Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr);
static Tcl_FSLinkProc TestReportLink;
static Tcl_FSFileAttrStringsProc TestReportFileAttrStrings;
static Tcl_FSFileAttrsGetProc TestReportFileAttrsGet;
@@ -446,7 +447,7 @@ static const Tcl_Filesystem testReportingFilesystem = {
TestReportRenameFile,
TestReportCopyDirectory,
TestReportLstat,
- TestReportLoadFile,
+ (Tcl_FSLoadFileProc *) TestReportLoadFile,
NULL /* cwd */,
TestReportChdir
};