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 | 9c1bac129cc0a8d54989866bfaf2a98e48f933ed (patch) | |
| tree | eb921e850240f233ef80a6a882f334f869078828 | |
| parent | c450611fa62e31564086453d6921a47bd7fb9044 (diff) | |
| parent | 6687886af05bb7fff4e70ccbf3903ac3a275ab32 (diff) | |
| download | tcl-9c1bac129cc0a8d54989866bfaf2a98e48f933ed.zip tcl-9c1bac129cc0a8d54989866bfaf2a98e48f933ed.tar.gz tcl-9c1bac129cc0a8d54989866bfaf2a98e48f933ed.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 }; |