summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2002-06-13 09:39:58 (GMT)
committervincentdarley <vincentdarley>2002-06-13 09:39:58 (GMT)
commit3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6 (patch)
treebf267b96362f0e9d923d36bea51aa6f4a245f873 /generic/tclIOUtil.c
parent49a14aec1a0aca882321df160ad18576749c19c4 (diff)
downloadtcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.zip
tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.tar.gz
tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.tar.bz2
vfs, winfs testsuite
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 0858a58..2bf584c 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOUtil.c,v 1.48 2002/06/12 09:28:58 vincentdarley Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.49 2002/06/13 09:40:00 vincentdarley Exp $
*/
#include "tclInt.h"
@@ -2708,15 +2708,16 @@ FSUnloadTempFile(clientData)
*/
Tcl_Obj *
-Tcl_FSLink(pathPtr, toPtr)
+Tcl_FSLink(pathPtr, toPtr, linkType)
Tcl_Obj *pathPtr; /* Path of file to readlink or link */
Tcl_Obj *toPtr; /* NULL or path to be linked to */
+ int linkType; /* Type of link to create */
{
Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
if (fsPtr != NULL) {
Tcl_FSLinkProc *proc = fsPtr->linkProc;
if (proc != NULL) {
- return (*proc)(pathPtr, toPtr);
+ return (*proc)(pathPtr, toPtr, linkType);
}
}
/*