diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-05-08 09:49:16 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-05-08 09:49:16 (GMT) |
| commit | 78ee8c697e423a5b4718fabb53eef1c5f6a2a2b1 (patch) | |
| tree | 56621e264162af5c4f27a4b99f134cee38f73223 /unix/tclUnixFile.c | |
| parent | 0fc27b893e12027a6b5136fb96ba216b823f43e1 (diff) | |
| download | tcl-78ee8c697e423a5b4718fabb53eef1c5f6a2a2b1.zip tcl-78ee8c697e423a5b4718fabb53eef1c5f6a2a2b1.tar.gz tcl-78ee8c697e423a5b4718fabb53eef1c5f6a2a2b1.tar.bz2 | |
fixes [92564326a98b5510]: wrong x64-aligned handle from readdir64 by opendir/rewinddir/closedir, if HAVE_STRUCT_DIRENT64 used.
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 0a2099c..1dc73ae 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -310,7 +310,7 @@ TclpMatchInDirectory( return TCL_OK; } - d = opendir(native); /* INTL: Native. */ + d = TclOSopendir(native); /* INTL: Native. */ if (d == NULL) { Tcl_DStringFree(&ds); if (interp != NULL) { @@ -383,7 +383,7 @@ TclpMatchInDirectory( } } - closedir(d); + TclOSclosedir(d); Tcl_DStringFree(&ds); Tcl_DStringFree(&dsOrig); Tcl_DecrRefCount(fileNamePtr); |