summaryrefslogtreecommitdiffstats
path: root/tcl8.6/compat/gettod.c
diff options
context:
space:
mode:
Diffstat (limited to 'tcl8.6/compat/gettod.c')
-rw-r--r--tcl8.6/compat/gettod.c30
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;
-}
-