From ea95f0d14c0b77ab177a0bd4c90043695cede31c Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 14 Aug 2017 13:57:49 -0700 Subject: [PATCH] glib: Do not add time blocked in run_glib to glib-thread's run time. --- src/glib/glib-thread.scm | 2 ++ src/glib/glib.pkg | 4 ++++ 2 files changed, 6 insertions(+) diff --git a/src/glib/glib-thread.scm b/src/glib/glib-thread.scm index 2b1dd8051..3f0561df1 100644 --- a/src/glib/glib-thread.scm +++ b/src/glib/glib-thread.scm @@ -78,7 +78,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (timer-record/time timer-records)) -1))) (%trace ";run-glib until "time"\n") + (account-for-times self (get-system-times)) (run-glib (select-registry-handle io-registry) time) + (record-start-times! self) (%trace ";run-glib done at "(real-time-clock)"\n")))) (%trace ";run-glib yields\n") (yield-current-thread) diff --git a/src/glib/glib.pkg b/src/glib/glib.pkg index 8d82cd95b..57ff2698f 100644 --- a/src/glib/glib.pkg +++ b/src/glib/glib.pkg @@ -116,5 +116,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. run-glib-daemons) (import (glib main) run-glib) + (import (runtime thread) + account-for-times + get-system-times + record-start-times!) (import (runtime primitive-io) select-registry-handle)) \ No newline at end of file -- 2.25.1