From ab843ae81eb445d94ed6821e45df8a782d2886e6 Mon Sep 17 00:00:00 2001
From: Tavian Barnes <tavianator@gmail.com>
Date: Sun, 20 Sep 2009 01:09:24 +0000
Subject: Don't change the `ts' parameter in sandglass_spin.

---
 src/tsc.c | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'src/tsc.c')

diff --git a/src/tsc.c b/src/tsc.c
index 554a6d8..135cd2a 100644
--- a/src/tsc.c
+++ b/src/tsc.c
@@ -29,11 +29,24 @@ sandglass_tsc_resolution()
 {
   static long tsc = 0;
   static struct timespec ts = { .tv_sec = 0, .tv_nsec = 10000000L };
+  struct timespec curr, until;
 
   if (tsc == 0) {
+    sandglass_get_currtime(&curr);
+    until = curr;
+    sandglass_timespec_add(&until, &ts);
     tsc = sandglass_get_tsc();
-    sandglass_spin(&ts);
+
+    /* Spin */
+    do {
+      sandglass_get_currtime(&curr);
+    } while (sandglass_timespec_cmp(&curr, &until) < 0);
+
     tsc = sandglass_get_tsc() - tsc;
+
+    /* Adjust ts to the time actually waited */
+    sandglass_timespec_sub(&curr, &until);
+    sandglass_timespec_add(&ts, &curr);
   }
 
   return tsc*1.0e9/ts.tv_nsec;
-- 
cgit v1.2.3