diff options
Diffstat (limited to 'tcl8.6/compat/gettod.c')
-rw-r--r-- | tcl8.6/compat/gettod.c | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/tcl8.6/compat/gettod.c b/tcl8.6/compat/gettod.c deleted file mode 100644 index ca20cf8..0000000 --- a/tcl8.6/compat/gettod.c +++ /dev/null @@ -1,30 +0,0 @@ -/* - * gettod.c -- - * - * This file provides the gettimeofday function on systems - * that only have the System V ftime function. - * - * Copyright (c) 1995 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#include "tclPort.h" -#include <sys/timeb.h> - -#undef timezone - -int -gettimeofday( - struct timeval *tp, - struct timezone *tz) -{ - struct timeb t; - - ftime(&t); - tp->tv_sec = t.time; - tp->tv_usec = t. millitm * 1000; - return 0; -} - |