From c0c85bb80e12beb24a93c7e5155e513be1daa625 Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Sun, 28 Mar 1999 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1999-03-28

---
 carrera/clock.c | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/carrera/clock.c b/carrera/clock.c
index b671e7f2e419688acda60048020e4a3b0528ebcc..0fafe182f3d65a7e0af80c8b3da2769de944869c 100644
--- a/carrera/clock.c
+++ b/carrera/clock.c
@@ -146,14 +146,23 @@ clock(Ureg *ur)
 		sched();
 }
 
+ulong timewarp;
+
 vlong
 fastticks(uvlong *hz)
 {
 	uvlong cyclecount;
+	ulong cnt, d;
 	int x;
 
 	x = splhi();
-	cyclecount = updatefastclock(rdcount());
+	cnt = rdcount();
+	cyclecount = updatefastclock(cnt);
+	d = lastcmp - cnt + 100;
+	if(d > incr+100){
+		wrcompare(lastcmp = cnt+incr);
+		timewarp++;
+	}
 	splx(x);
 
 	if(hz)
@@ -162,11 +171,10 @@ fastticks(uvlong *hz)
 	return (vlong)cyclecount;
 }
 
-ulong timewarp;
-
 void
 idlehands(void)
 {
+#ifdef adsfasdf
 	ulong cnt, cmp, d;
 	int x;
 
@@ -181,4 +189,5 @@ idlehands(void)
 //		print("%lud %lud %d %lux\n", cnt, cmp, cnt-cmp, d);
 	}
 	splx(x);
+#endif
 }