summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-10-24 11:14:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-10-24 11:14:51 (GMT)
commitee55e87c478c26094a52d1c38d702b67e4a1c4cb (patch)
treec1a2632bd73860179d6b6f6e77d54fb740028195
parentbafa7f02dd3f0b546333c1be8c947ae10a27abe1 (diff)
downloadtcl-ee55e87c478c26094a52d1c38d702b67e4a1c4cb.zip
tcl-ee55e87c478c26094a52d1c38d702b67e4a1c4cb.tar.gz
tcl-ee55e87c478c26094a52d1c38d702b67e4a1c4cb.tar.bz2
Add dummy 0 parameter (unused flags) to internal Tcl_FSLoadFileProc call, for upwards compatibility with version 2 filesystems
-rw-r--r--generic/tclIOUtil.c6
-rw-r--r--generic/tclTest.c2
2 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 69b7e44..cfa01f0 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -2774,6 +2774,9 @@ Tcl_FSChdir(pathPtr)
*----------------------------------------------------------------------
*/
+typedef int (Tcl_FSLoadFileProc2) (Tcl_Interp *interp, Tcl_Obj *pathPtr,
+ Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr, int flags);
+
int
Tcl_FSLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,
handlePtr, unloadProcPtr)
@@ -2797,7 +2800,8 @@ Tcl_FSLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,
if (fsPtr != NULL) {
Tcl_FSLoadFileProc *proc = fsPtr->loadFileProc;
if (proc != NULL) {
- int retVal = (*proc)(interp, pathPtr, handlePtr, unloadProcPtr);
+ int retVal = ((Tcl_FSLoadFileProc2 *)proc)
+ (interp, pathPtr, handlePtr, unloadProcPtr, 0);
if (retVal != TCL_OK) {
return retVal;
}
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 8256461..998416c 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -468,7 +468,7 @@ static Tcl_Filesystem testReportingFilesystem = {
&TestReportRenameFile,
&TestReportCopyDirectory,
&TestReportLstat,
- &TestReportLoadFile,
+ (Tcl_FSLoadFileProc *) &TestReportLoadFile,
NULL /* cwd */,
&TestReportChdir
};