diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-17 12:58:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-17 12:58:43 (GMT) |
| commit | 289ab3d6335f6ab2fb808df9f94319f471013eac (patch) | |
| tree | 1bbbb11ff03e4ef0302bc8f39aaa9579c725025f /generic/tclFileName.c | |
| parent | d171543388eb0149647f980eb25c80a9bfdadd1e (diff) | |
| parent | a824edfe93321dc7cc71b2dfc700544a7fc6b45a (diff) | |
| download | tcl-289ab3d6335f6ab2fb808df9f94319f471013eac.zip tcl-289ab3d6335f6ab2fb808df9f94319f471013eac.tar.gz tcl-289ab3d6335f6ab2fb808df9f94319f471013eac.tar.bz2 | |
rebase to 8.7
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 9620f8c..b553621 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -413,7 +413,6 @@ TclpGetNativePathType( if (path[0] == '/') { ++path; -#if defined(__CYGWIN__) || defined(__QNX__) /* * Check for "//" network path prefix */ @@ -422,22 +421,10 @@ TclpGetNativePathType( while (*path && *path != '/') { ++path; } -#if defined(__CYGWIN__) - /* UNC paths need to be followed by a share name */ - if (*path++ && (*path && *path != '/')) { - ++path; - while (*path && *path != '/') { - ++path; - } - } else { - path = origPath + 1; - } -#endif } -#endif if (driveNameLengthPtr != NULL) { /* - * We need this addition in case the QNX or Cygwin code was used. + * We need this addition in case the "//" code was used. */ *driveNameLengthPtr = (path - origPath); @@ -656,7 +643,6 @@ SplitUnixPath( if (*path == '/') { Tcl_Obj *rootElt; ++path; -#if defined(__CYGWIN__) || defined(__QNX__) /* * Check for "//" network path prefix */ @@ -665,19 +651,7 @@ SplitUnixPath( while (*path && *path != '/') { ++path; } -#if defined(__CYGWIN__) - /* UNC paths need to be followed by a share name */ - if (*path++ && (*path && *path != '/')) { - ++path; - while (*path && *path != '/') { - ++path; - } - } else { - path = origPath + 1; - } -#endif } -#endif rootElt = Tcl_NewStringObj(origPath, path - origPath); Tcl_ListObjAppendElement(NULL, result, rootElt); while (*path == '/') { |