diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-05-11 11:26:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-05-11 11:26:35 (GMT) |
| commit | 2a340ce4c19c7e7ad149a1263f169a1749c3465c (patch) | |
| tree | 93ca7493ebe94c66e12fc76c96a0ba80721d3905 /unix/tclUnixFile.c | |
| parent | 4d9ba4a6528b96b85dd0037953e94a5f4aa623be (diff) | |
| parent | 9cb3b15616e82cdd2edc695371adfeed5f4fb023 (diff) | |
| download | tcl-2a340ce4c19c7e7ad149a1263f169a1749c3465c.zip tcl-2a340ce4c19c7e7ad149a1263f169a1749c3465c.tar.gz tcl-2a340ce4c19c7e7ad149a1263f169a1749c3465c.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); |