summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixChan.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-11-21 02:36:18 (GMT)
committerhobbs <hobbs>2001-11-21 02:36:18 (GMT)
commitcff9c3309b2e3c096c301a94bff0d9804be13520 (patch)
treed6c9734d5b8944f4d96bc77057fc560b661f57c4 /unix/tclUnixChan.c
parentf59ffab94e11d0dc9efd7189ec5c64e904cdfedd (diff)
downloadtcl-cff9c3309b2e3c096c301a94bff0d9804be13520.zip
tcl-cff9c3309b2e3c096c301a94bff0d9804be13520.tar.gz
tcl-cff9c3309b2e3c096c301a94bff0d9804be13520.tar.bz2
added TIP#73 patch #483500 from Kevin Kenny.
This deprecates TclpGetTime in favor of new Tcl_GetTime.
Diffstat (limited to 'unix/tclUnixChan.c')
-rw-r--r--unix/tclUnixChan.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index dbdf453..23bb599 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixChan.c,v 1.22 2001/10/25 15:50:49 dkf Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.23 2001/11/21 02:36:21 hobbs Exp $
*/
#include "tclInt.h" /* Internal definitions for Tcl. */
@@ -2706,7 +2706,7 @@ TclUnixWaitForFile(fd, mask, timeout)
*/
if (timeout > 0) {
- TclpGetTime(&now);
+ Tcl_GetTime(&now);
abortTime.sec = now.sec + timeout/1000;
abortTime.usec = now.usec + (timeout%1000)*1000;
if (abortTime.usec >= 1000000) {
@@ -2796,7 +2796,7 @@ TclUnixWaitForFile(fd, mask, timeout)
* The select returned early, so we need to recompute the timeout.
*/
- TclpGetTime(&now);
+ Tcl_GetTime(&now);
if ((abortTime.sec < now.sec)
|| ((abortTime.sec == now.sec)
&& (abortTime.usec <= now.usec))) {