Improved the [time] resolution on windows.

2 files changed, 9 insertions, 1 deletions

diff --git a/bench.tcl b/bench.tcl
index 37a905a..edd1bc0 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -2,7 +2,8 @@ proc bench {title script} {
     while {[string length $title] < 20} {
 	append title " "
     }
-    puts "$title - [time $script]"
+    catch {time $script} res
+    puts "$title - $res"
 }
 
 ### BUSY LOOP ##################################################################
diff --git a/jim.c b/jim.c
index aca713d..35161ba 100644
--- a/jim.c
+++ b/jim.c
@@ -457,9 +457,16 @@ char *Jim_StrDupLen(char *s, int l)
 /* Returns microseconds of CPU used since start. */
 static long JimClock(void)
 {
+#ifdef WIN32
+    LARGE_INTEGER t, f;
+    QueryPerformanceFrequency(&f);
+    QueryPerformanceCounter(&t);
+    return (long)((t.QuadPart * 1000000) / f.QuadPart);
+#else /* ! WIN32 */
     clock_t clocks = clock();
 
     return (long)(clocks*(1000000/CLOCKS_PER_SEC));
+#endif /* WIN32 */
 }
 
 /* -----------------------------------------------------------------------------