suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added fsemaphore logging via the FSEMA_LOGGING preprocessor flag.

Browse Source
This commit is contained in:
James Swaine 2011-03-03 16:56:29 -06:00
parent adf18c7dc0
commit f4cae46f14
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/racket/src/future.c
View File

@ -943,6 +943,14 @@ Scheme_Object *scheme_fsemaphore_post(int argc, Scheme_Object **argv)
} }
sema = (fsemaphore_t*)argv[0]; 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; fs = scheme_future_state;
mzrt_mutex_lock(sema->mut); mzrt_mutex_lock(sema->mut);
@ -993,6 +1001,14 @@ Scheme_Object *scheme_fsemaphore_wait(int argc, Scheme_Object **argv)
} }
sema = (fsemaphore_t*)argv[0]; 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; jit_future_storage[0] = (void*)sema;
mzrt_mutex_lock(sema->mut); mzrt_mutex_lock(sema->mut);
if (!sema->ready) { if (!sema->ready) {