From f4cae46f14c4c58ca843902fb18e9b5d60e66695 Mon Sep 17 00:00:00 2001 From: James Swaine Date: Thu, 3 Mar 2011 16:56:29 -0600 Subject: [PATCH] Added fsemaphore logging via the FSEMA_LOGGING preprocessor flag. --- src/racket/src/future.c | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/src/racket/src/future.c b/src/racket/src/future.c index ffba0ffb74..f98b45e88d 100644 --- a/src/racket/src/future.c +++ b/src/racket/src/future.c @@ -943,6 +943,14 @@ Scheme_Object *scheme_fsemaphore_post(int argc, Scheme_Object **argv) } sema = (fsemaphore_t*)argv[0]; + +#ifdef FSEMA_LOGGING + printf("[Thread %p]: scheme_fsemaphore_post for sema at %p. Count before V: %d\n", + pthread_self(), + sema, + sema->ready); +#endif + fs = scheme_future_state; mzrt_mutex_lock(sema->mut); @@ -993,6 +1001,14 @@ Scheme_Object *scheme_fsemaphore_wait(int argc, Scheme_Object **argv) } sema = (fsemaphore_t*)argv[0]; + +#ifdef FSEMA_LOGGING + printf("[Thread %p]: scheme_fsemaphore_wait for sema at %p. Count before P: %d\n", + pthread_self(), + sema, + sema->ready); +#endif + jit_future_storage[0] = (void*)sema; mzrt_mutex_lock(sema->mut); if (!sema->ready) {