diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-24 11:28:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-24 11:28:33 (GMT) |
| commit | 706e42d83b031a66ae797b0fec80e91bd4be0751 (patch) | |
| tree | eb921e850240f233ef80a6a882f334f869078828 | |
| parent | 129d93bc40d03c707897ba2cf24dbef5870bea6a (diff) | |
| parent | 8dfd4b7f0268e1515691149fa13814aae8742cec (diff) | |
| download | tcl-706e42d83b031a66ae797b0fec80e91bd4be0751.zip tcl-706e42d83b031a66ae797b0fec80e91bd4be0751.tar.gz tcl-706e42d83b031a66ae797b0fec80e91bd4be0751.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 }; |