diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-05-11 11:38:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-05-11 11:38:54 (GMT) |
| commit | 03fd40904f7bfc22edfbea047cd97dc0f0a82230 (patch) | |
| tree | 57a680a986ab4aa2ef455e507868c3f9b9ae01bb /unix/tclUnixFile.c | |
| parent | 13bcd282e3970b483fe00aa53e58ccf456d17bbc (diff) | |
| parent | 9cb3b15616e82cdd2edc695371adfeed5f4fb023 (diff) | |
| download | tcl-03fd40904f7bfc22edfbea047cd97dc0f0a82230.zip tcl-03fd40904f7bfc22edfbea047cd97dc0f0a82230.tar.gz tcl-03fd40904f7bfc22edfbea047cd97dc0f0a82230.tar.bz2 | |
merge 8.7
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 5f5bfe0..8cb93b4 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -259,7 +259,7 @@ TclpMatchInDirectory( Tcl_DecrRefCount(tailPtr); Tcl_DecrRefCount(fileNamePtr); } else { - DIR *d; + TclDIR *d; Tcl_DirEntry *entryPtr; const char *dirName; size_t dirLength, nativeDirLen; @@ -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) { @@ -388,7 +388,7 @@ TclpMatchInDirectory( } } - closedir(d); + TclOSclosedir(d); Tcl_DStringFree(&ds); Tcl_DStringFree(&dsOrig); Tcl_DecrRefCount(fileNamePtr); |