diff options
| author | dkf <dkf@noemail.net> | 2002-06-12 15:05:19 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2002-06-12 15:05:19 (GMT) |
| commit | 9fdd4ba18a0d97508d8d910c29a1b530151899fb (patch) | |
| tree | b5035cf42961fd4e8b90a31edefe38c526f453f6 /unix/tclUnixFile.c | |
| parent | 9fb1c3d7c506d82fdff4ca6716402acfe0b95d3e (diff) | |
| download | tcl-9fdd4ba18a0d97508d8d910c29a1b530151899fb.zip tcl-9fdd4ba18a0d97508d8d910c29a1b530151899fb.tar.gz tcl-9fdd4ba18a0d97508d8d910c29a1b530151899fb.tar.bz2 | |
Made this file compile!
FossilOrigin-Name: 0814d34f8df4970c923cb6bfdbfef3589d1d619e
Diffstat (limited to 'unix/tclUnixFile.c')
| -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; |