diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-03-17 23:11:54 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-03-17 23:11:54 +0000 |
commit | 8ff3ca467c45642f73b998c97f13a340d018d9bd (patch) | |
tree | 7a30c84eedaea0a6fedc37166d6feeb81640c2eb /libguile/arbiters.c | |
parent | e96f5ee768e9ecdbd9566482ba5d7bb92cd36b92 (diff) | |
download | guile-8ff3ca467c45642f73b998c97f13a340d018d9bd.tar.gz |
(FETCH_STORE) [generic C]: Should be
scm_i_scm_pthread_mutex_lock/unlock now. Reported by Ludovic Courtès.
Diffstat (limited to 'libguile/arbiters.c')
-rw-r--r-- | libguile/arbiters.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/arbiters.c b/libguile/arbiters.c index 35011917a..ec1eb7804 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996, 1997, 2000, 2001, 2004 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996, 1997, 2000, 2001, 2004, 2005 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -64,12 +64,12 @@ atomic. Unfortunately this approach probably makes arbiters no faster than mutexes (though still using less memory of course), so some CPU-specifics are highly desirable. */ -#define FETCH_STORE(fet,mem,sto) \ - do { \ - scm_mutex_lock (&scm_i_misc_mutex); \ - (fet) = (mem); \ - (mem) = (sto); \ - scm_mutex_unlock (&scm_i_misc_mutex); \ +#define FETCH_STORE(fet,mem,sto) \ + do { \ + scm_i_scm_pthread_mutex_lock (&scm_i_misc_mutex); \ + (fet) = (mem); \ + (mem) = (sto); \ + scm_i_pthread_mutex_unlock (&scm_i_misc_mutex); \ } while (0) #endif |