diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-10-24 11:28:33 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-10-24 11:28:33 (GMT) |
| commit | 3cf81b3149b8eb4c7c401ffed66730f15d7f306f (patch) | |
| tree | eb921e850240f233ef80a6a882f334f869078828 | |
| parent | f9700b7d4c5d1212c70e2d1c02053653cfe56365 (diff) | |
| parent | 8039c1ef2901caaab9153bd69362f37eda04bb54 (diff) | |
| download | tcl-3cf81b3149b8eb4c7c401ffed66730f15d7f306f.zip tcl-3cf81b3149b8eb4c7c401ffed66730f15d7f306f.tar.gz tcl-3cf81b3149b8eb4c7c401ffed66730f15d7f306f.tar.bz2 | |
make tclTest.c compilable against version 2 filesystems
| -rw-r--r-- | generic/tclTest.c | 5 |
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 }; |