From 29b6104eada0b1c6c1ae9a08fd5da227f3899a23 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Apr 2007 10:59:28 +0000
Subject: [PATCH] reduce overhead of checking sleeping thread on every
 scheduling iteration

svn: r5954
---
 src/mzscheme/src/thread.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/thread.c b/src/mzscheme/src/thread.c
index 4f72d7228b..f74d81ab76 100644
--- a/src/mzscheme/src/thread.c
+++ b/src/mzscheme/src/thread.c
@@ -3615,6 +3615,8 @@ void scheme_thread_block(float sleep_time)
   check_scheduled_kills();
 
   if (!do_atomic && (sleep_end >= 0.0)) {
+    double msecs = 0.0;
+
     /* Find the next process. Skip processes that are definitely
        blocked. */
     
@@ -3683,9 +3685,12 @@ void scheme_thread_block(float sleep_time)
 	    if (f(next->blocker, &sinfo))
 	      break;
 	    next->sleep_end = sinfo.sleep_end;
+            msecs = 0.0; /* that could have taken a while */
 	  }
 	} else if (next->block_descriptor == SLEEP_BLOCKED) {
-	  if (next->sleep_end <= scheme_get_inexact_milliseconds())
+          if (!msecs)
+            msecs = scheme_get_inexact_milliseconds();
+	  if (next->sleep_end <= msecs)
 	    break;
 	} else
 	  break;