diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-06-20 19:49:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-06-20 19:49:31 (GMT) |
| commit | f9037344f87d9722ef8152dd4c5b404cdd7ba983 (patch) | |
| tree | 856404b798f52f31461f6b5895d0b117284ae42a /generic/tclPathObj.c | |
| parent | 57d68d7c1623442deab713279fdfeb6daf13eff9 (diff) | |
| parent | 38f0b4d80988173806607621adbf9258d555f033 (diff) | |
| download | tcl-f9037344f87d9722ef8152dd4c5b404cdd7ba983.zip tcl-f9037344f87d9722ef8152dd4c5b404cdd7ba983.tar.gz tcl-f9037344f87d9722ef8152dd4c5b404cdd7ba983.tar.bz2 | |
Purge more dead fs path code.
Diffstat (limited to 'generic/tclPathObj.c')
| -rw-r--r-- | generic/tclPathObj.c | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index 8e45ef1..147c619 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -152,12 +152,7 @@ typedef struct FsPath { Tcl_Obj * TclFSNormalizeAbsolutePath( Tcl_Interp *interp, /* Interpreter to use */ - Tcl_Obj *pathPtr, /* Absolute path to normalize */ - ClientData *clientDataPtr) /* If non-NULL, then may be set to the - * fs-specific clientData for this path. This - * will happen when that extra information can - * be calculated efficiently as a side-effect - * of normalization. */ + Tcl_Obj *pathPtr) /* Absolute path to normalize */ { const char *dirSep, *oldDirSep; int first = 1; /* Set to zero once we've passed the first @@ -439,9 +434,6 @@ TclFSNormalizeAbsolutePath( */ TclFSMakePathFromNormalized(interp, retVal); - if (clientDataPtr != NULL) { - *clientDataPtr = NULL; - } /* * This has a refCount of 1 for the caller, unlike many Tcl_Obj APIs. @@ -1873,7 +1865,7 @@ Tcl_FSGetNormalizedPath( * we avoid [Bug 2385549] ... */ - Tcl_Obj *newCopy = TclFSNormalizeAbsolutePath(interp, copy, NULL); + Tcl_Obj *newCopy = TclFSNormalizeAbsolutePath(interp, copy); Tcl_DecrRefCount(copy); copy = newCopy; } else { @@ -1968,7 +1960,6 @@ Tcl_FSGetNormalizedPath( } } if (fsPathPtr->normPathPtr == NULL) { - ClientData clientData = NULL; Tcl_Obj *useThisCwd = NULL; int pureNormalized = 1; @@ -2050,12 +2041,7 @@ Tcl_FSGetNormalizedPath( */ fsPathPtr->normPathPtr = TclFSNormalizeAbsolutePath(interp, - absolutePath, - (fsPathPtr->nativePathPtr == NULL ? &clientData : NULL)); - if (0 && (clientData != NULL)) { - fsPathPtr->nativePathPtr = - (*fsPathPtr->fsRecPtr->fsPtr->dupInternalRepProc)(clientData); - } + absolutePath); /* * Check if path is pure normalized (this can only be the case if it |