143 # define gl_lock_define(STORAGECLASS, NAME) \  argument
144     STORAGECLASS pthread_mutex_t NAME;
145 # define gl_lock_define_initialized(STORAGECLASS, NAME) \  argument
146     STORAGECLASS pthread_mutex_t NAME = gl_lock_initializer;
149 # define gl_lock_init(NAME) \  argument
150     if (pthread_in_use () && pthread_mutex_init (&NAME, NULL) != 0) abort ()
151 # define gl_lock_lock(NAME) \  argument
152     if (pthread_in_use () && pthread_mutex_lock (&NAME) != 0) abort ()
153 # define gl_lock_unlock(NAME) \  argument
154     if (pthread_in_use () && pthread_mutex_unlock (&NAME) != 0) abort ()
155 # define gl_lock_destroy(NAME) \  argument
156     if (pthread_in_use () && pthread_mutex_destroy (&NAME) != 0) abort ()
165 #   define gl_rwlock_define(STORAGECLASS, NAME) \  argument
166       STORAGECLASS pthread_rwlock_t NAME;
167 #   define gl_rwlock_define_initialized(STORAGECLASS, NAME) \  argument
168       STORAGECLASS pthread_rwlock_t NAME = gl_rwlock_initializer;
171 #   define gl_rwlock_init(NAME) \  argument
172       if (pthread_in_use () && pthread_rwlock_init (&NAME, NULL) != 0) abort ()
173 #   define gl_rwlock_rdlock(NAME) \  argument
174       if (pthread_in_use () && pthread_rwlock_rdlock (&NAME) != 0) abort ()
175 #   define gl_rwlock_wrlock(NAME) \  argument
176       if (pthread_in_use () && pthread_rwlock_wrlock (&NAME) != 0) abort ()
177 #   define gl_rwlock_unlock(NAME) \  argument
178       if (pthread_in_use () && pthread_rwlock_unlock (&NAME) != 0) abort ()
179 #   define gl_rwlock_destroy(NAME) \  argument
180       if (pthread_in_use () && pthread_rwlock_destroy (&NAME) != 0) abort ()
191 #   define gl_rwlock_define(STORAGECLASS, NAME) \  argument
192       STORAGECLASS gl_rwlock_t NAME;
193 #   define gl_rwlock_define_initialized(STORAGECLASS, NAME) \  argument
194       STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer;
197 #   define gl_rwlock_init(NAME) \  argument
198       if (pthread_in_use ()) glthread_rwlock_init (&NAME)
199 #   define gl_rwlock_rdlock(NAME) \  argument
200       if (pthread_in_use ()) glthread_rwlock_rdlock (&NAME)
201 #   define gl_rwlock_wrlock(NAME) \  argument
202       if (pthread_in_use ()) glthread_rwlock_wrlock (&NAME)
203 #   define gl_rwlock_unlock(NAME) \  argument
204       if (pthread_in_use ()) glthread_rwlock_unlock (&NAME)
205 #   define gl_rwlock_destroy(NAME) \  argument
206       if (pthread_in_use ()) glthread_rwlock_destroy (&NAME)
226 # define gl_rwlock_define(STORAGECLASS, NAME) \  argument
227     STORAGECLASS gl_rwlock_t NAME;
228 # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \  argument
229     STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer;
232 # define gl_rwlock_init(NAME) \  argument
233     if (pthread_in_use ()) glthread_rwlock_init (&NAME)
234 # define gl_rwlock_rdlock(NAME) \  argument
235     if (pthread_in_use ()) glthread_rwlock_rdlock (&NAME)
236 # define gl_rwlock_wrlock(NAME) \  argument
237     if (pthread_in_use ()) glthread_rwlock_wrlock (&NAME)
238 # define gl_rwlock_unlock(NAME) \  argument
239     if (pthread_in_use ()) glthread_rwlock_unlock (&NAME)
240 # define gl_rwlock_destroy(NAME) \  argument
241     if (pthread_in_use ()) glthread_rwlock_destroy (&NAME)
257 #   define gl_recursive_lock_define(STORAGECLASS, NAME) \  argument
258       STORAGECLASS pthread_mutex_t NAME;
259 #   define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \  argument
260       STORAGECLASS pthread_mutex_t NAME = gl_recursive_lock_initializer;
268 #   define gl_recursive_lock_init(NAME) \  argument
269       if (pthread_in_use () && pthread_mutex_init (&NAME, NULL) != 0) abort ()
270 #   define gl_recursive_lock_lock(NAME) \  argument
271       if (pthread_in_use () && pthread_mutex_lock (&NAME) != 0) abort ()
272 #   define gl_recursive_lock_unlock(NAME) \  argument
273       if (pthread_in_use () && pthread_mutex_unlock (&NAME) != 0) abort ()
274 #   define gl_recursive_lock_destroy(NAME) \  argument
275       if (pthread_in_use () && pthread_mutex_destroy (&NAME) != 0) abort ()
286 #   define gl_recursive_lock_define(STORAGECLASS, NAME) \  argument
287       STORAGECLASS gl_recursive_lock_t NAME;
288 #   define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \  argument
289       STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer;
292 #   define gl_recursive_lock_init(NAME) \  argument
293       if (pthread_in_use ()) glthread_recursive_lock_init (&NAME)
294 #   define gl_recursive_lock_lock(NAME) \  argument
295       if (pthread_in_use ()) glthread_recursive_lock_lock (&NAME)
296 #   define gl_recursive_lock_unlock(NAME) \  argument
297       if (pthread_in_use ()) glthread_recursive_lock_unlock (&NAME)
298 #   define gl_recursive_lock_destroy(NAME) \  argument
299       if (pthread_in_use ()) glthread_recursive_lock_destroy (&NAME)
319 #  define gl_recursive_lock_define(STORAGECLASS, NAME) \  argument
320      STORAGECLASS gl_recursive_lock_t NAME;
321 #  define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \  argument
322      STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer;
325 #  define gl_recursive_lock_init(NAME) \  argument
326      if (pthread_in_use ()) glthread_recursive_lock_init (&NAME)
327 #  define gl_recursive_lock_lock(NAME) \  argument
328      if (pthread_in_use ()) glthread_recursive_lock_lock (&NAME)
329 #  define gl_recursive_lock_unlock(NAME) \  argument
330      if (pthread_in_use ()) glthread_recursive_lock_unlock (&NAME)
331 #  define gl_recursive_lock_destroy(NAME) \  argument
332      if (pthread_in_use ()) glthread_recursive_lock_destroy (&NAME)
343 # define gl_once_define(STORAGECLASS, NAME) \  argument
344     STORAGECLASS pthread_once_t NAME = PTHREAD_ONCE_INIT;
345 # define gl_once(NAME, INITFUNCTION) \  argument
350             if (pthread_once (&NAME, INITFUNCTION) != 0) \
355             if (glthread_once_singlethreaded (&NAME))    \
405 # define gl_lock_define(STORAGECLASS, NAME) \  argument
406     STORAGECLASS pth_mutex_t NAME;
407 # define gl_lock_define_initialized(STORAGECLASS, NAME) \  argument
408     STORAGECLASS pth_mutex_t NAME = gl_lock_initializer;
411 # define gl_lock_init(NAME) \  argument
412     if (pth_in_use() && !pth_mutex_init (&NAME)) abort ()
413 # define gl_lock_lock(NAME) \  argument
414     if (pth_in_use() && !pth_mutex_acquire (&NAME, 0, NULL)) abort ()
415 # define gl_lock_unlock(NAME) \  argument
416     if (pth_in_use() && !pth_mutex_release (&NAME)) abort ()
417 # define gl_lock_destroy(NAME) \  argument
418     (void)(&NAME)
423 #  define gl_rwlock_define(STORAGECLASS, NAME) \  argument
424      STORAGECLASS pth_rwlock_t NAME;
425 #  define gl_rwlock_define_initialized(STORAGECLASS, NAME) \  argument
426      STORAGECLASS pth_rwlock_t NAME = gl_rwlock_initializer;
429 #  define gl_rwlock_init(NAME) \  argument
430      if (pth_in_use() && !pth_rwlock_init (&NAME)) abort ()
431 #  define gl_rwlock_rdlock(NAME) \  argument
432      if (pth_in_use() && !pth_rwlock_acquire (&NAME, PTH_RWLOCK_RD, 0, NULL)) abort ()
433 #  define gl_rwlock_wrlock(NAME) \  argument
434      if (pth_in_use() && !pth_rwlock_acquire (&NAME, PTH_RWLOCK_RW, 0, NULL)) abort ()
435 #  define gl_rwlock_unlock(NAME) \  argument
436      if (pth_in_use() && !pth_rwlock_release (&NAME)) abort ()
437 #  define gl_rwlock_destroy(NAME) \  argument
438      (void)(&NAME)
444 #  define gl_recursive_lock_define(STORAGECLASS, NAME) \  argument
445      STORAGECLASS pth_mutex_t NAME;
446 #  define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \  argument
447      STORAGECLASS pth_mutex_t NAME = gl_recursive_lock_initializer;
450 #  define gl_recursive_lock_init(NAME) \  argument
451      if (pth_in_use() && !pth_mutex_init (&NAME)) abort ()
452 #  define gl_recursive_lock_lock(NAME) \  argument
453      if (pth_in_use() && !pth_mutex_acquire (&NAME, 0, NULL)) abort ()
454 #  define gl_recursive_lock_unlock(NAME) \  argument
455      if (pth_in_use() && !pth_mutex_release (&NAME)) abort ()
456 #  define gl_recursive_lock_destroy(NAME) \  argument
457      (void)(&NAME)
462 # define gl_once_define(STORAGECLASS, NAME) \  argument
463     STORAGECLASS pth_once_t NAME = PTH_ONCE_INIT;
464 # define gl_once(NAME, INITFUNCTION) \  argument
470             if (!pth_once (&NAME, glthread_once_call, &gl_once_temp)) \
475             if (glthread_once_singlethreaded (&NAME))                 \
530 # define gl_lock_define(STORAGECLASS, NAME) \  argument
531     STORAGECLASS mutex_t NAME;
532 # define gl_lock_define_initialized(STORAGECLASS, NAME) \  argument
533     STORAGECLASS mutex_t NAME = gl_lock_initializer;
536 # define gl_lock_init(NAME) \  argument
537     if (thread_in_use () && mutex_init (&NAME, USYNC_THREAD, NULL) != 0) abort ()
538 # define gl_lock_lock(NAME) \  argument
539     if (thread_in_use () && mutex_lock (&NAME) != 0) abort ()
540 # define gl_lock_unlock(NAME) \  argument
541     if (thread_in_use () && mutex_unlock (&NAME) != 0) abort ()
542 # define gl_lock_destroy(NAME) \  argument
543     if (thread_in_use () && mutex_destroy (&NAME) != 0) abort ()
548 # define gl_rwlock_define(STORAGECLASS, NAME) \  argument
549     STORAGECLASS rwlock_t NAME;
550 # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \  argument
551     STORAGECLASS rwlock_t NAME = gl_rwlock_initializer;
554 # define gl_rwlock_init(NAME) \  argument
555     if (thread_in_use () && rwlock_init (&NAME, USYNC_THREAD, NULL) != 0) abort ()
556 # define gl_rwlock_rdlock(NAME) \  argument
557     if (thread_in_use () && rw_rdlock (&NAME) != 0) abort ()
558 # define gl_rwlock_wrlock(NAME) \  argument
559     if (thread_in_use () && rw_wrlock (&NAME) != 0) abort ()
560 # define gl_rwlock_unlock(NAME) \  argument
561     if (thread_in_use () && rw_unlock (&NAME) != 0) abort ()
562 # define gl_rwlock_destroy(NAME) \  argument
563     if (thread_in_use () && rwlock_destroy (&NAME) != 0) abort ()
577 # define gl_recursive_lock_define(STORAGECLASS, NAME) \  argument
578     STORAGECLASS gl_recursive_lock_t NAME;
579 # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \  argument
580     STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer;
583 # define gl_recursive_lock_init(NAME) \  argument
584     if (thread_in_use ()) glthread_recursive_lock_init (&NAME)
585 # define gl_recursive_lock_lock(NAME) \  argument
586     if (thread_in_use ()) glthread_recursive_lock_lock (&NAME)
587 # define gl_recursive_lock_unlock(NAME) \  argument
588     if (thread_in_use ()) glthread_recursive_lock_unlock (&NAME)
589 # define gl_recursive_lock_destroy(NAME) \  argument
590     if (thread_in_use ()) glthread_recursive_lock_destroy (&NAME)
604 # define gl_once_define(STORAGECLASS, NAME) \  argument
605     STORAGECLASS gl_once_t NAME = { 0, DEFAULTMUTEX };
606 # define gl_once(NAME, INITFUNCTION) \  argument
611             glthread_once (&NAME, INITFUNCTION);      \
615             if (glthread_once_singlethreaded (&NAME)) \
660 # define gl_lock_define(STORAGECLASS, NAME) \  argument
661     STORAGECLASS gl_lock_t NAME;
662 # define gl_lock_define_initialized(STORAGECLASS, NAME) \  argument
663     STORAGECLASS gl_lock_t NAME = gl_lock_initializer;
666 # define gl_lock_init(NAME) \  argument
667     glthread_lock_init (&NAME)
668 # define gl_lock_lock(NAME) \  argument
669     glthread_lock_lock (&NAME)
670 # define gl_lock_unlock(NAME) \  argument
671     glthread_lock_unlock (&NAME)
672 # define gl_lock_destroy(NAME) \  argument
673     glthread_lock_destroy (&NAME)
702 # define gl_rwlock_define(STORAGECLASS, NAME) \  argument
703     STORAGECLASS gl_rwlock_t NAME;
704 # define gl_rwlock_define_initialized(STORAGECLASS, NAME) \  argument
705     STORAGECLASS gl_rwlock_t NAME = gl_rwlock_initializer;
708 # define gl_rwlock_init(NAME) \  argument
709     glthread_rwlock_init (&NAME)
710 # define gl_rwlock_rdlock(NAME) \  argument
711     glthread_rwlock_rdlock (&NAME)
712 # define gl_rwlock_wrlock(NAME) \  argument
713     glthread_rwlock_wrlock (&NAME)
714 # define gl_rwlock_unlock(NAME) \  argument
715     glthread_rwlock_unlock (&NAME)
716 # define gl_rwlock_destroy(NAME) \  argument
717     glthread_rwlock_destroy (&NAME)
738 # define gl_recursive_lock_define(STORAGECLASS, NAME) \  argument
739     STORAGECLASS gl_recursive_lock_t NAME;
740 # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME) \  argument
741     STORAGECLASS gl_recursive_lock_t NAME = gl_recursive_lock_initializer;
744 # define gl_recursive_lock_init(NAME) \  argument
745     glthread_recursive_lock_init (&NAME)
746 # define gl_recursive_lock_lock(NAME) \  argument
747     glthread_recursive_lock_lock (&NAME)
748 # define gl_recursive_lock_unlock(NAME) \  argument
749     glthread_recursive_lock_unlock (&NAME)
750 # define gl_recursive_lock_destroy(NAME) \  argument
751     glthread_recursive_lock_destroy (&NAME)
766 # define gl_once_define(STORAGECLASS, NAME) \  argument
767     STORAGECLASS gl_once_t NAME = { -1, -1 };
768 # define gl_once(NAME, INITFUNCTION) \  argument
769     glthread_once (&NAME, INITFUNCTION)
787 # define gl_lock_define(STORAGECLASS, NAME)  argument
788 # define gl_lock_define_initialized(STORAGECLASS, NAME)  argument
789 # define gl_lock_init(NAME)  argument
790 # define gl_lock_lock(NAME)  argument
791 # define gl_lock_unlock(NAME)  argument
796 # define gl_rwlock_define(STORAGECLASS, NAME)  argument
797 # define gl_rwlock_define_initialized(STORAGECLASS, NAME)  argument
798 # define gl_rwlock_init(NAME)  argument
799 # define gl_rwlock_rdlock(NAME)  argument
800 # define gl_rwlock_wrlock(NAME)  argument
801 # define gl_rwlock_unlock(NAME)  argument
806 # define gl_recursive_lock_define(STORAGECLASS, NAME)  argument
807 # define gl_recursive_lock_define_initialized(STORAGECLASS, NAME)  argument
808 # define gl_recursive_lock_init(NAME)  argument
809 # define gl_recursive_lock_lock(NAME)  argument
810 # define gl_recursive_lock_unlock(NAME)  argument
815 # define gl_once_define(STORAGECLASS, NAME) \  argument
816     STORAGECLASS gl_once_t NAME = 0;
817 # define gl_once(NAME, INITFUNCTION) \  argument
820         if (NAME == 0)       \
822             NAME = ~ 0;      \