diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-06-12 15:05:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-06-12 15:05:20 (GMT) |
| commit | fa378f1c65892a20898177e93d89a3ca2d55e505 (patch) | |
| tree | b5035cf42961fd4e8b90a31edefe38c526f453f6 | |
| parent | 85fa4c1014f2115447bba5458e877fe974f04f1b (diff) | |
| download | tcl-fa378f1c65892a20898177e93d89a3ca2d55e505.zip tcl-fa378f1c65892a20898177e93d89a3ca2d55e505.tar.gz tcl-fa378f1c65892a20898177e93d89a3ca2d55e505.tar.bz2 | |
Made this file compile!
| -rw-r--r-- | unix/tclUnixFile.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 2fd7b11..cdd6697 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixFile.c,v 1.21 2002/06/12 09:28:58 vincentdarley Exp $ + * RCS: @(#) $Id: tclUnixFile.c,v 1.22 2002/06/12 15:05:20 dkf Exp $ */ #include "tclInt.h" @@ -728,9 +728,11 @@ TclpObjLink(pathPtr, toPtr) Tcl_Obj *pathPtr; Tcl_Obj *toPtr; { + extern Tcl_Filesystem nativeFilesystem; + if (toPtr != NULL) { CONST char *src = Tcl_FSGetNativePath(pathPtr); - CONST char *target Tcl_FSGetNativePath(toPtr); + CONST char *target = Tcl_FSGetNativePath(toPtr); if (src == NULL || target == NULL) { return NULL; |